Style pkg (#2)

.gitignore

@@ -4,3 +4,5 @@ movilidad.duckdb
 zonificacion_distritos*
 *.duckdb
 docs
+
+/.quarto/

R/get.R

@@ -1,73 +1,69 @@
+get_latest_v2_xml = function(
+    data_dir = get_data_dir(),
+    xml_url = "https://movilidad-opendata.mitma.es/RSS.xml",
+    current_timestamp = format(Sys.time(), format = "%Y-%m-01", usetz = FALSE, tz = "UTC")) {
+  if (!fs::dir_exists(data_dir)) {
+    fs::dir_create(data_dir)
+  }
 
-get_latest_v2_xml <- function(
-  data_dir = get_data_dir(),
-  xml_url = "https://movilidad-opendata.mitma.es/RSS.xml",
-  current_timestamp = format(Sys.time(), format = "%Y-%m-01", usetz = FALSE, tz = "UTC")
-  ) {
-    if (!fs::dir_exists(data_dir)) {
-        fs::dir_create(data_dir)
-    }
-
-    current_filename <- glue::glue("cache/{current_timestamp}_data_links.xml")
-    xml_requested <- curl::curl_download(url = xml_url, destfile = current_filename, quiet = FALSE)
+  current_filename = glue::glue("cache/{current_timestamp}_data_links.xml")
+  xml_requested = curl::curl_download(url = xml_url, destfile = current_filename, quiet = FALSE)
 }
 
-load_latest_v2_xml <- function(data_dir = get_data_dir()) {
-    xml_files_list <- fs::dir_ls(data_dir, type = "file", regexp = "data_links.xml") |> sort()
-    latest_data_links_xml_path <- tail(xml_files_list, 1)
-    
-    x_xml <- xml2::read_xml(latest_data_links_xml_path)
-    
-    download_dt <- data.table::data.table(
-        target_url = xml2::xml_find_all(x = x_xml, xpath = "//link") |> xml2::xml_text(),
-        pub_date = xml2::xml_find_all(x = x_xml, xpath = "//pubDate") |> xml2::xml_text()
-    )
-    
-    download_dt[, pub_ts := lubridate::dmy_hms(pub_date)]
-    download_dt[, file_extension := tools::file_ext(target_url)]
-    download_dt <- download_dt[file_extension != ""]
-    download_dt[, pub_date := NULL]
-    
-    download_dt[, data_ym := lubridate::ym(str_extract(target_url, "[0-9]{4}-[0-9]{2}"))]
-    download_dt[, data_ymd := lubridate::ymd(str_extract(target_url, "[0-9]{8}"))]
-    
-    setorder(download_dt, pub_ts)
-    
-    download_dt[, local_path := paste0(data_dir, stringr::str_replace(target_url, "https://movilidad-opendata.mitma.es/", ""))]
-    download_dt[, local_path := stringr::str_replace_all(local_path, "\\/\\/\\/|\\/\\/", "/")]
-    
-    return(download_dt)
+load_latest_v2_xml = function(data_dir = get_data_dir()) {
+  xml_files_list = fs::dir_ls(data_dir, type = "file", regexp = "data_links.xml") |> sort()
+  latest_data_links_xml_path = tail(xml_files_list, 1)
+
+  x_xml = xml2::read_xml(latest_data_links_xml_path)
+
+  download_dt = data.table::data.table(
+    target_url = xml2::xml_find_all(x = x_xml, xpath = "//link") |> xml2::xml_text(),
+    pub_date = xml2::xml_find_all(x = x_xml, xpath = "//pubDate") |> xml2::xml_text()
+  )
+
+  download_dt[, pub_ts := lubridate::dmy_hms(pub_date)]
+  download_dt[, file_extension := tools::file_ext(target_url)]
+  download_dt = download_dt[file_extension != ""]
+  download_dt[, pub_date := NULL]
+
+  download_dt[, data_ym := lubridate::ym(str_extract(target_url, "[0-9]{4}-[0-9]{2}"))]
+  download_dt[, data_ymd := lubridate::ymd(str_extract(target_url, "[0-9]{8}"))]
+
+  setorder(download_dt, pub_ts)
+
+  download_dt[, local_path := paste0(data_dir, stringr::str_replace(target_url, "https://movilidad-opendata.mitma.es/", ""))]
+  download_dt[, local_path := stringr::str_replace_all(local_path, "\\/\\/\\/|\\/\\/", "/")]
+
+  return(download_dt)
 }
 
-get_data_dir <- function() {
-    data_dir_env <- Sys.getenv("SPANISHOD_DATA_DIR")
-    if (data_dir_env == "") {
-        data_dir_env <- tempdir()
-    }
-    return(data_dir_env)
+get_data_dir = function() {
+  data_dir_env = Sys.getenv("SPANISHOD_DATA_DIR")
+  if (data_dir_env == "") {
+    data_dir_env = tempdir()
+  }
+  return(data_dir_env)
 }
 
-get_zones <- function(
+get_zones = function(
     data_dir = get_data_dir(),
-    type = "distritos"
-) {
-    shp_extensions <- c("cpg", "dbf", "prj", "qmd", "qpj", "shp", "shx")
-    base_url <- "https://movilidad-opendata.mitma.es/zonificacion"
-    # base_url <- "/zonificacion_distritos/zonificacion_distritos"
-    if (type == "distritos") {
-        zone_data_folder <- file.path(data_dir, "zonificacion_distritos")
+    type = "distritos") {
+  shp_extensions = c("cpg", "dbf", "prj", "qmd", "qpj", "shp", "shx")
+  base_url = "https://movilidad-opendata.mitma.es/zonificacion"
+  # base_url <- "/zonificacion_distritos/zonificacion_distritos"
+  if (type == "distritos") {
+    zone_data_folder = file.path(data_dir, "zonificacion_distritos")
 
     if (!fs::dir_exists(zone_data_folder)) {
-        base_url = paste0(base_url, "/zonificacion_distritos/zonificacion_distritos")
-        fs::dir_create(file.path(data_dir, "zonificacion_distritos"))
-        for (ext in shp_extensions) {
-            url <- paste0(base_url, ".", ext)
-            file <- file.path(zone_data_folder, basename(url))
-            download.file(url, file)
-        }
+      base_url = paste0(base_url, "/zonificacion_distritos/zonificacion_distritos")
+      fs::dir_create(file.path(data_dir, "zonificacion_distritos"))
+      for (ext in shp_extensions) {
+        url = paste0(base_url, ".", ext)
+        file = file.path(zone_data_folder, basename(url))
+        download.file(url, file)
+      }
     }
 
     return(sf::read_sf(zone_data_folder))
-
-    }
-}
+  }
+}