edited parse metadata

R/demo-crowding.R

@@ -34,7 +34,7 @@
 #'   area = "WA",
 #'   areatype = "county",
 #'   crowding = "household with >1 person per room",
-#'   race = "All Races (includes Hispanic)", 
+#'   race = "All Races (includes Hispanic)",
 #'   include_metadata = TRUE
 #' )
 #'

R/parse_metadata.R

@@ -1,34 +1,35 @@
-parse_metadata <- function(resp, key, string_list) {
-  resp_data <- resp$data
-  resp_metadata <- resp$metadata
-
-  values <- string
-
-}
 
+#helper function to remove key from values
 extract_values <- function(key, resp_metadata) {
   values <- resp_metadata[grep(key, resp_metadata)]
   values <- gsub(paste0("^\\s*", key, ":?\\s*"), "", values)
   return(values)
 }
 
-report_header <- resp_metadata[1]
-m_report <- c(resp_metadata[2], resp_metadata[3], resp_metadata[4])
-sortedby <- extract_values("Sorted by", resp_metadata)
-createdby <- extract_values("Created by", resp_metadata)
-data_sources <- extract_values("Source", resp_metadata)
-data_dictionary <- extract_values("For more information about", resp_metadata)
-data_limitations <- extract_values("Data for", resp_metadata)
-
-
-demo_metadata_list <- list(
-  report_header <- resp_metadata[1],
-  m_report <- c(resp_metadata[2], resp_metadata[3], resp_metadata[4]),
-  sortedby = sortedby,
-  createdby = createdby,
-  data_sources = data_sources,
-  data_dictionary = data_dictionary,
-  data_limitations = data_limitations
-)
+parse_metadata <- function(resp) {
+  resp_metadata <- resp$metadata
+
+  resp_metadata <- gsub("\\\"", "", resp_metadata)
+
+  report_header <- resp_metadata[1]
+  data_report <- c(resp_metadata[2], resp_metadata[3], resp_metadata[4])
+  sortedby <- extract_values("Sorted by", resp_metadata)
+  createdby <- extract_values("Created by", resp_metadata)
+  data_sources <- extract_values("Source", resp_metadata)
+  data_dictionary <- extract_values("For more information about", resp_metadata)
+  data_limitations <- extract_values("Data for", resp_metadata)
+
+
+  demo_metadata_list <- list(
+    report_header = report_header,
+    data_report = data_report,
+    sortedby = sortedby,
+    createdby = createdby,
+    data_sources = data_sources,
+    data_dictionary = data_dictionary,
+    data_limitations = data_limitations
+  )
+  return(demo_metadata_list)
+}
 
-print(demo_metadata_list)
+parse_metadata(resp)

R/process-resp.R

@@ -21,7 +21,7 @@
 #'
 #' @examples
 #' process_resp(resp, "demographics")
-process_resp <- function(resp, topic, include_metadata = FALSE) {
+process_resp <- function(resp, topic, include_metadata) {
   if (httr2::resp_content_type(resp) != "text/csv") {
     cli_abort("Invalid input, please check documentation for valid arguments.")
   }