Fix typo and tidyselect warning

NeuroShepherd · Nov 15, 2024 · 7f1a5d6 · 7f1a5d6
1 parent 53c89e6
commit 7f1a5d6
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -140,7 +140,7 @@ calculate_t1_error <- function(df, alpha = 0.05, t1_error_confidence_int = 95, n
 #'
 plot_distribution_results <- function(df, alpha = 0.05, outlier_removal = 0.10) {
   levels <- df %>%
-    pivot_longer(cols = -.data$sample_size, names_to = "test_name") %>%
+    pivot_longer(cols = all_of("sample_size"), names_to = "test_name") %>%
     group_by(.data[["test_name"]]) %>%
     summarize(
       mean = mean(.data[["value"]], na.rm = T)
@@ -149,9 +149,9 @@ plot_distribution_results <- function(df, alpha = 0.05, outlier_removal = 0.10)
     pull(.data[["test_name"]])
 
   df %>%
-    pivot_longer(cols = -.data$sample_size, names_to = "test_name") %>%
+    pivot_longer(cols = -all_of("sample_size"), names_to = "test_name") %>%
     mutate(test_name = factor(.data$test_name, levels = levels)) %>%
-    group_by(.data$sample_size, .data$test_name) %>%
+    group_by(-.data[["sample_size"]], .data$test_name) %>%
     summarise(value = mean(.data$value)) %>%
     {
       ggplot(., aes(

diff --git a/tests/testthat/test-use_ordinalsimr_options.R b/tests/testthat/test-use_ordinalsimr_options.R
@@ -41,7 +41,7 @@ test_that("get_ordinalsimr_options() returns a list of ordinalsimr options", {
 
 test_that("check that set_ordinalsimr_options() works", {
 
-  opts < options()
+  opts <- options()
 
   suppressMessages({