fix keyword quote lints

easystats · Oct 26, 2023 · f4c0697 · f4c0697
1 parent bca974c
commit f4c0697
Show file tree

Hide file tree

Showing 4 changed files with 23 additions and 23 deletions.
diff --git a/R/report.numeric.R b/R/report.numeric.R
@@ -206,15 +206,15 @@ report_parameters.numeric <- function(x,
   }
 
   text_full <- c(
-    "n_Obs" = text_n,
-    "Mean" = text_mean,
-    "Dispersion_Mean" = paste0("SD = ", text_sd),
-    "Median" = text_median,
-    "Dispersion_Median" = paste0("MAD = ", text_mad),
-    "Range" = paste0("range: ", text_range),
-    "Skewness" = text_skewness,
-    "Kurtosis" = text_kurtosis,
-    "Missing" = text_missing
+    n_Obs = text_n,
+    Mean = text_mean,
+    Dispersion_Mean = paste0("SD = ", text_sd),
+    Median = text_median,
+    Dispersion_Median = paste0("MAD = ", text_mad),
+    Range = paste0("range: ", text_range),
+    Skewness = text_skewness,
+    Kurtosis = text_kurtosis,
+    Missing = text_missing
   )
 
   # Shorten ---

diff --git a/R/report.sessionInfo.R b/R/report.sessionInfo.R
@@ -129,9 +129,9 @@ report_table.sessionInfo <- function(x, include_R = TRUE, ...) {
   }
 
   data <- data.frame(
-    "Package" = names,
-    "Version" = versions,
-    "Reference" = citations,
+    Package = names,
+    Version = versions,
+    Reference = citations,
     stringsAsFactors = FALSE
   )
 

diff --git a/R/report_info.R b/R/report_info.R
@@ -94,15 +94,15 @@ print.report_info <- function(x, ...) {
 
   ci_method <- tolower(ci_method)
   string_method <- switch(ci_method,
-    "bci" = ,
-    "bcai" = "bias-corrected accelerated bootstrap",
-    "si" = ,
-    "ci" = ,
-    "quantile" = ,
-    "eti" = ,
-    "hdi" = ifelse(isTRUE(bootstrap), "na\u0131ve bootstrap", "MCMC"),
-    "normal" = "Wald normal",
-    "boot" = "parametric bootstrap",
+    bci = ,
+    bcai = "bias-corrected accelerated bootstrap",
+    si = ,
+    ci = ,
+    quantile = ,
+    eti = ,
+    hdi = ifelse(isTRUE(bootstrap), "na\u0131ve bootstrap", "MCMC"),
+    normal = "Wald normal",
+    boot = "parametric bootstrap",
     "Wald"
   )
 

diff --git a/R/utils_combine_tables.R b/R/utils_combine_tables.R
@@ -38,8 +38,8 @@
 
   # add performance
   perf_vertical <- data.frame(
-    "Parameter" = perf_names,
-    "Fit" = as.numeric(performance[1, ]),
+    Parameter = perf_names,
+    Fit = as.numeric(performance[1, ]),
     stringsAsFactors = FALSE
   )