问题描述
我正在尝试使用BLS中的示例代码来提取本地就业数据。除了最近的观察,它工作得很好。有一列额外的数据返回true而不是第一个值。该月份不存在。任何纠正此问题的帮助将不胜感激。
$Results$series[[14]]$data[[1]]$latest
[1] "true"
这是我正在使用的代码:
library(rjson)
library(blsAPI)
## Pull the data via the API
payload <- list(
'seriesid'=c('SMU32298200000000001'),'startyear'=2019,'endyear'=2020,'catalog'=FALSE,'calculations'=TRUE,'annualaverage'=TRUE,'registrationKey'='------')
response <- blsAPI(payload,2)
json <- fromJSON(response)
json <-str_replace(json,"true","")
## Process results
apiDF <- function(data){
df <- data.frame(year=character(),period=character(),periodName=character(),value=character(),stringsAsFactors=FALSE)
i <- 0
for(d in data){
i <- i + 1
df[i,] <- unlist(d)
}
return(df)
}
total_emp.df <- apiDF(json$Results$series[[1]]$data)
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)