Merge pull request #372 from cmu-delphi/sgratzl/blogbuild

fix: use new functions from package

Author: sgratzl

content/blog/2020-08-26-fb-survey.Rmd

@@ -328,9 +328,9 @@ plot_one = function(geo_value, title = NULL, xlab = NULL,
   trans21 = function(x) trans(x, range2, range1)
 
   # Find state name, find abbreviation, then set title
-  state_name = fips_to_name(paste0(substr(geo_value, 1, 2), "000"))
+  state_name = state_fips_to_name(paste0(substr(geo_value, 1, 2), "000"))
   state_abbr = name_to_abbr(state_name)
-  title = paste0(fips_to_name(geo_value), ", ", state_abbr)
+  title = paste0(county_fips_to_name(geo_value), ", ", state_abbr)
 
   # Transform the combined signal to the incidence range, then stack
   # these rowwise into one data frame

content/blog/2020-08-26-fb-survey.html

@@ -322,9 +322,9 @@ <h2>Some Interesting Examples</h2>
   trans21 = function(x) trans(x, range2, range1)
 
   # Find state name, find abbreviation, then set title
-  state_name = fips_to_name(paste0(substr(geo_value, 1, 2), &quot;000&quot;))
+  state_name = state_fips_to_name(paste0(substr(geo_value, 1, 2), &quot;000&quot;))
   state_abbr = name_to_abbr(state_name)
-  title = paste0(fips_to_name(geo_value), &quot;, &quot;, state_abbr)
+  title = paste0(county_fips_to_name(geo_value), &quot;, &quot;, state_abbr)
 
   # Transform the combined signal to the incidence range, then stack
   # these rowwise into one data frame