Unquote dataframe col names on creation

epiverse-trace · Sep 15, 2023 · 4668a31 · 4668a31
1 parent 068a7be
commit 4668a31
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/R/estimate_severity.R b/R/estimate_severity.R
@@ -53,9 +53,9 @@ estimate_severity <- function(total_cases,
   severity_lims <- range(pprange[lik >= (max(lik) - 1.92)])
 
   severity_estimate <- data.frame(
-    "severity_mean" = severity_mean,
-    "severity_low" = severity_lims[[1]],
-    "severity_high" = severity_lims[[2]]
+    severity_mean = severity_mean,
+    severity_low = severity_lims[[1]],
+    severity_high = severity_lims[[2]]
   )
 
   # returning vector with corrected estimates

diff --git a/R/estimate_static.R b/R/estimate_static.R
@@ -168,9 +168,9 @@ estimate_static <- function(data,
     severity_lims <- severity_conf$conf.int
 
     severity_estimate <- data.frame(
-      "severity_mean" = severity_mean,
-      "severity_low" = severity_lims[[1]],
-      "severity_high" = severity_lims[[2]]
+      severity_mean = severity_mean,
+      severity_low = severity_lims[[1]],
+      severity_high = severity_lims[[2]]
     )
   }