编写一个从 URL 获取数据的函数

Question

我正在尝试编写以下函数，用于从 URL 获取 Facebook 数据，然后转换为数据框。

read_URL <- function(df_name,start_date,end_date,token){
  URL <-  fromJSON(paste0("https://graph.facebook.com/v5.0/me?fields=posts.limit(30).until"start_date".since"end_date"&access_token=",token,""))
  df_name <- URL$posts$data
}

不幸的是，我的功能不起作用，我不知道为什么。 显然 URL 在尝试转换为函数之前有效。 这是我得到的错误：

Error: unexpected symbol in:
"read_URL <- function(df_name,start_date,end_date,token){
  URL <-  fromJSON(paste0("https://graph.facebook.com/v5.0/me?fields=posts.limit(30).until"start_date"
>   df_name <- URL$posts$data
Error: object 'URL' not found
> }

任何帮助将不胜感激 错误：“}”中出现意外的“}”

Answer 1

我认为您正在尝试使用粘贴来构造 URL。试试看：

library(jsonlite)

read_URL <- function(df_name,start_date,end_date,token){
   URL <-  fromJSON(paste0('https://graph.facebook.com/v5.0/me?fields=posts.limit(30).until', start_date, ".since", end_date, "&access_token=",token))
   df_name <- URL$posts$data
   return(df_name)
}

---

您还可以查看glue 包，它使带参数的 URL 构造变得简单。

read_URL <- function(df_name,start_date,end_date,token){
    URL <-  fromJSON(glue::glue('https://graph.facebook.com/v5.0/me?fields=posts.limit(30).until{start_date}.since{end_date}&access_token={token}'))
    df_name <- URL$posts$data
    return(df_name)
}