if (FALSE) {
# Not run
# Downloading EDGAR data ####
get_edgar(
dataset = "v432_VOC_spec",
destpath = "V50_432_AP/TOT/",
sector = c("TOTALS"),
type = "nc",
year = 2012
)
get_edgar(
dataset = "v50_AP",
destpath = "V50_432_AP/TOT",
sector = c("TOTALS"),
type = "nc",
year = 2014
)
get_edgar(
dataset = "v432_VOC_spec",
destpath = "V50_432_AP/TRO/",
sector = c("TRO"),
type = "nc",
year = 2012, ask = F
)
get_edgar(
dataset = "v50_AP",
destpath = "V50_432_AP/TRO",
sector = c("TRO_RES", "TRO_noRES"),
type = "nc",
year = 2014
)
totals <- list.files(
path = "V50_432_AP/TOT/",
full.names = TRUE,
pattern = ".zip"
)
lapply(totals, unzip, exdir = "V50_432_AP/TOT//")
tros <- list.files(
path = "V50_432_AP/TRO",
full.names = TRUE,
pattern = ".zip"
)
lapply(tros, unzip, exdir = "V50_432_AP/TRO/")
edgar_chem("V50_432_AP/TOT", "radm")
}
Run the code above in your browser using DataLab