R/get_example.R

In soetang/xbrlr: XBRL in R

get_example <- function(contry_code){
  if(contry_code  == "de"){
    filename <- "de_example.xml"
  } else if(contry_code == "us"){
    filename <- "us_example.xml"
  }
  
  
  system.file("example", filename, package = "xbrlr")
}