my_test/testing.R

In soetang/xbrlr: XBRL in R

library('magrittr')

uri = "https://datacvr.virk.dk/data/offentliggorelse?dl_ref=ZG9rdW1lbnRsYWdlcjovLzAzL2YxL2NhLzVlLzNmLzFkYmYtNGRmNC04ZDk2LTI1MGI2YTJlNzY1YQ"
httr::set_config(httr::config(ssl_verifypeer = 0L))
test <- httr::GET(url = uri) %>% httr::content()

devtools::load_all()

hej1 <- xbrl(test)

facts <- hej1$facts
contexts <- hej1$contexts
units <- hej1$units

table <- to_one_table(hej1)

this_period <- get_this_period_dk(table)


pubs_from_today <- query_api_dk(as.character(Sys.Date()-1), "2011-01-01") %>% 
  dplyr::filter(xml_link != "")