Added header info

jimhester · May 13, 2021 · a648ee5 · a648ee5
1 parent 3612029
commit a648ee5
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/R/download_french_data.R b/R/download_french_data.R
@@ -165,7 +165,6 @@ download_french_data <- function(dataset_name,
   assertthat::assert_that(NROW(url_info) == 1,
                           msg = "There are more than one match to the  data set name, please verify the contents of the parameter `dataset_name`")
 
-
   link_to_file <- paste0(base_url, url_info$file_url[1])
 
   temp_file_name <- fs::file_temp(pattern =
@@ -201,6 +200,12 @@ download_french_data <- function(dataset_name,
         dplyr::summarise(start = dplyr::first(.data$line) - 1,
                          end = dplyr::last(.data$line))
 
+      header_info <-
+        readr::read_lines(file_content,
+                          n_max = subsets$start[1] - 3) %>%
+        stringr::str_trim(side = "both") %>%
+        paste(collapse = " ")
+
       subsets <- subsets %>%
         dplyr::mutate(
           name = purrr::map_chr(.data$start - 2, read_info,
@@ -245,7 +250,7 @@ download_french_data <- function(dataset_name,
   } else {
     results <-
       structure(list(
-        info = paste(
+        info = paste(header_info, "\n\n",
           "Information collected from:",
           link_to_file,
           "on",