R/access_tax_data.R

In sebastianbarfort/taxdk: Access Tax Information for Danish Companies

#' Access Tax Information for Danish Companies from the Danish IRS
#'
#' @title access_tax_data
#'
#' @author Sebastian Barfort (\email{sebastianbarfort@@gmail.com})
#' @name access_tax_data
#'
#' @param start Numeric scalar. What is the first year you want to access?
#' @param end Numeric scalar. What is the last year you want to access?
#'
#' @seealso \url{https://github.com/sebastianbarfort/taxdk}
#' @examples
#' access_tax_data(start = 2012, end = 2013)

#' @export
#'

access_tax_data = function(start = 2012, end = 2014){
  if(start < end){
    tax.data = data.frame()
    for (i in start:end){
      df.i = read_csv(paste0("http://www.skat.dk/download/skatteliste-", i, ".csv"))
      names(df.i) = gsub(" ", "_", names(df.i))
      names(df.i) = gsub("\\.", "", names(df.i))
      names(df.i) = tolower(names(df.i))
      names(df.i) = gsub("-", "_", names(df.i))
      if(class(df.i$administrationsselskabets_cvr_nr) != "character")
        df.i$administrationsselskabets_cvr_nr = as.character(df.i$administrationsselskabets_cvr_nr)
      tax.data = bind_rows(tax.data, df.i[, -21])
    }
    tax.data[, 9:20] = apply(tax.data[, 9:20], 2, as.numeric)
    return(tax.data)
  }
  else if(start > end){
    stop("please make sure end is at least equal to start")
  }
  else{
    df.i = read_csv(paste0("http://www.skat.dk/download/skatteliste-", start, ".csv"))
    names(df.i) = gsub(" ", "_", names(df.i))
    names(df.i) = gsub("\\.", "", names(df.i))
    names(df.i) = tolower(names(df.i))
    names(df.i) = gsub("-", "_", names(df.i))
    return(df.i)
  }
}