get_cvr.R

library(httr)
# example 
cvrnumbers <- c('10112354', '57471719', '82675418')

cvr2name <- function(cvrnumbers, useragent="mit projekt") {
  # this gets company data from cvrapi.dk - its important to specify your project in useragent.
  # Its easy to get banned if you don't
  require(httr)
  results <- vector(length=length(cvrnumbers))
  for (i in 1:length(cvrnumbers)) {
  cvrvalue <- cvrnumbers[i]
  url=paste0('http://cvrapi.dk/api?search=', cvrvalue, "&country=dk")
  results[i]<- paste(httr::content(httr::GET(url=url, httr::add_headers("user-agent"=useragent)))[2])
  }
  return(results)
}

cvr2name(cvrnumbers)