编写一个从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。试试用.NET技术。

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)
}