FT: #59 fix vignette

shamindras · Mar 29, 2021 · a65832e · a65832e
1 parent d2ccbd0
commit a65832e
Show file tree

Hide file tree

Showing 18 changed files with 258 additions and 92 deletions.
diff --git a/R/ols-summary.R b/R/ols-summary.R
@@ -179,35 +179,34 @@ check_fn_args_summary <- function(mod_fit,
 #' }
 fetch_mms_emoji_title <- function(var_type_abb, title_type) {
 
-
   # Get the title only for the specific variance type
-  var_title <- switch(var_type_abb,
-    "lm" = "Well Specified Model",
-    "sand" = "Sandwich",
-    "emp" = "Empirical Bootstrap",
-    "res" = "Residual Bootstrap",
-    "mul" = "Multiplier Bootstrap"
+  var_title <- dplyr::case_when(
+    var_type_abb == "lm" ~ "Well Specified Model",
+    var_type_abb == "sand" ~ "Sandwich",
+    var_type_abb == "emp" ~ "Empirical Bootstrap",
+    var_type_abb == "res" ~ "Residual Bootstrap",
+    var_type_abb == "mul" ~ "Multiplier Bootstrap"
   ) %>%
     glue::as_glue(x = .)
 
   # Get the emoji only for the specific variance type
-  var_emoji <- switch(var_type_abb,
-    "lm" = "\U1F4C9\U1F4C8",
-    "sand" = "\U1F969\U1F35E", # \U1F96A
-    "emp" = "\U1F9EE\U1F45F",
-    "res" = "\U2696\U1F45F",
-    "mul" = "\U274C\U1F45F" # \U2716
+  var_emoji <- dplyr::case_when(
+    var_type_abb == "lm" ~ "\U1F4C9\U1F4C8",
+    var_type_abb == "sand" ~ "\U1F969\U1F35E", # \U1F96A
+    var_type_abb == "emp" ~ "\U1F9EE\U1F45F",
+    var_type_abb == "res" ~ "\U2696\U1F45F",
+    var_type_abb == "mul" ~ "\U274C\U1F45F" # \U2716
   ) %>%
     glue::as_glue(x = .)
 
   # Get the combined emoji: title for the specific variance type
   var_emoji_title <- glue::glue("{var_emoji}: {var_title}:")
 
   # Get the specific string type based on user specification
-  out <- switch(title_type,
-    "title" = var_title,
-    "emoji" = var_emoji,
-    "emoji_title" = var_emoji_title
+  out <- dplyr::case_when(
+    title_type == "title" ~ var_title,
+    title_type == "emoji" ~ var_emoji,
+    title_type == "emoji_title" ~ var_emoji_title
   )
   return(out)
 }

diff --git a/docs/CONTRIBUTING.html b/docs/CONTRIBUTING.html
diff --git a/docs/articles/se-la-county-data.html b/docs/articles/se-la-county-data.html
diff --git a/docs/articles/se-la-county-data_files/figure-html/compare_confint-1.png b/docs/articles/se-la-county-data_files/figure-html/compare_confint-1.png
diff --git a/docs/articles/se-la-county-data_files/figure-html/compare_lm-1.png b/docs/articles/se-la-county-data_files/figure-html/compare_lm-1.png
diff --git a/docs/articles/se-la-county-data_files/figure-html/visualize_boot_estimates-1.png b/docs/articles/se-la-county-data_files/figure-html/visualize_boot_estimates-1.png
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -1,9 +1,9 @@
-pandoc: '2.11'
+pandoc: 2.11.4
 pkgdown: 1.6.1
 pkgdown_sha: ~
 articles:
   se-la-county-data: se-la-county-data.html
-last_built: 2021-03-28T02:33Z
+last_built: 2021-03-29T20:53Z
 urls:
   reference: https://shamindras.github.io/maars/reference
   article: https://shamindras.github.io/maars/articles

diff --git a/docs/reference/get_assumptions.html b/docs/reference/get_assumptions.html
diff --git a/docs/reference/get_mms_summary_with_stars.html b/docs/reference/get_mms_summary_with_stars.html
diff --git a/docs/reference/get_summary.html b/docs/reference/get_summary.html
diff --git a/docs/reference/summary.maars_lm.html b/docs/reference/summary.maars_lm.html