我正在尝试将 csv 文件放入 R 中。我制作了以下代码来创建指向 csv 文件的链接。当我在浏览器中使用生成的链接时,代码运行良好。但是当我运行代码时不能正常工作。希望有人可以提供帮助。
雅各布
library(httr)
library(tidyverse)
library(stringr)
library(jsonlite)
metadata.dst <- function(tableid){
link.metadata <- "http://api.statbank.dk/v1/tableinfo/"
GET(str_c(link.metadata,tableid)) %>%
content("text") %>%
fromJSON()
}
download.link.dst <- function(tableid){
table <- tolower(tableid)
base.link_start <- "http://api.statbank.dk/v1/data/"
base.link_end <- "/CSV?delimiter=Semicolon"
link_start <- str_c(base.link_start, table,base.link_end)
variables <- metadata.dst(tableid)$variables$id
link_end <- str_c("&",variables) %>%
str_c("=*") %>%
str_c(collapse = "")
download.link <- str_c(link_start, link_end) %>%
str_replace("Å","%C3%85") %>%
str_replace("å", "%C3%A5") %>%
str_replace("Ø", "%C3%98") %>%
str_replace("ø", "%C3%B8") %>%
str_replace("Æ", "%C3%86") %>%
str_replace("æ", "%C3%A6")
download.link
}
read_csv2(download.link.dst("FOLK1B"))