From efd1297cf1d5a98575036da0200bc0c40458acf9 Mon Sep 17 00:00:00 2001 From: Paul Date: Thu, 7 Oct 2021 17:34:52 +1300 Subject: [PATCH] Changed url to Wordpress link, not GUID --- R/get-wp-posts.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/get-wp-posts.R b/R/get-wp-posts.R index 123c101..07ae731 100644 --- a/R/get-wp-posts.R +++ b/R/get-wp-posts.R @@ -38,7 +38,7 @@ get_wp_posts <- function(root_url, post_count = Inf,after_date = NULL) { return(posts_real) } for(k in 1:length(response)) { - response_df <- tibble(id = response[[k]]$id, date = response[[k]]$date, url = response[[k]]$guid$rendered, + response_df <- tibble(id = response[[k]]$id, date = response[[k]]$date, url = response[[k]]$link, title = response[[k]]$title$rendered, content = response[[k]]$content$rendered, author = response[[k]]$author) response_tags <- c() @@ -84,7 +84,7 @@ get_wp_posts <- function(root_url, post_count = Inf,after_date = NULL) { } if(length(response) > 0 & response[[3]]$status != 400) { for(k in 1:length(response)) { - response_df <- tibble(id = response[[k]]$id, date = response[[k]]$date, url = response[[k]]$guid$rendered, + response_df <- tibble(id = response[[k]]$id, date = response[[k]]$date, url = response[[k]]$link, title = response[[k]]$title$rendered, content = response[[k]]$content$rendered, author = response[[k]]$author) response_tags <- c()