为什么Datawrapper API向我的httr请求返回代码400？

编程问答 2022-06-07

问题描述

我正在尝试将数据集发送到Datawrapper API。但是我总是得到Status 400作为回应。 httr对我来说是新手，我不知道如何正确格式化数据。

我在做什么错？另外，有没有办法查看我的实际要求？

datum <- format(Sys.Date(),"%d/%m/%Y")
datum <- "19/10/2020"
data <- read.csv("https://opendata.ecdc.europa.eu/covid19/casedistribution/csv",na.strings = "",fileEncoding = "UTF-8-BOM")

heute <- data %>%
        filter(dateRep == datum)
heute$Cumulative_number_for_14_days_of_COVID.19_cases_per_100000_gerundet <- round(heute$Cumulative_number_for_14_days_of_COVID.19_cases_per_100000,digits = 2) %>%
      as.numeric()
    df_heute <- cbind.data.frame(heute$countriesAndTerritories,heute$Cumulative_number_for_14_days_of_COVID.19_cases_per_100000_gerundet)
    colnames(df_heute)<- c("Region","Zahlen")

string_heute <- paste(df_heute$Region,df_heute$Zahlen,collapse = "\n")
string_heute <- gsub(string_heute,pattern = " ",replacement = ";")

send <- paste0("{","title :","xxx","\n","data:",string_heute,"}")%>%
  toJSON()

POST(url = 'https://api.datawrapper.de/v3/charts',add_headers(Authorization = paste("Bearer",api_token,sep = " ")),body = send,verbose())

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

apiapihttrjsonrr