Update facebook/delphiFacebook/R/contingency_write.R

davidkretch · nmdefries · web-flow · commit a95908262866 · 2021-04-17T17:43:59.000-04:00
Co-authored-by: nmdefries &lt;42820733+nmdefries@users.noreply.github.com&gt;
diff --git a/facebook/delphiFacebook/R/contingency_write.R b/facebook/delphiFacebook/R/contingency_write.R
@@ -135,7 +135,7 @@ add_metadata_vars <- function(data, params, geo_type, groupby_vars) {
     period_end = format(params$end_date, "%Y%m%d"),
     period_val = get_period_val(params$aggregate_range, params$start_date),
     period_type = get_period_type(params$aggregate_range),
-    geo_type = paste(geo_type, collapse = "_"),
+    geo_type = geo_type,
     aggregation_type = paste(aggregation_type, collapse = "_")
   )
   data <- bind_cols(metadata, data)

Original file line number	Diff line number	Diff line change
`@@ -135,7 +135,7 @@ add_metadata_vars <- function(data, params, geo_type, groupby_vars) {`
`135`	`135`	`period_end = format(params$end_date, "%Y%m%d"),`
`136`	`136`	`period_val = get_period_val(params$aggregate_range, params$start_date),`
`137`	`137`	`period_type = get_period_type(params$aggregate_range),`
`138`		`- geo_type = paste(geo_type, collapse = "_"),`
	`138`	`+ geo_type = geo_type,`
`139`	`139`	`aggregation_type = paste(aggregation_type, collapse = "_")`
`140`	`140`	`)`
`141`	`141`	`data <- bind_cols(metadata, data)`