initial format with Air

Author: math-mcshane

R/get_parsed_tibble.R

@@ -36,7 +36,9 @@ file_validation = function(filename) {
 #' example_script("generic_script") |>
 #'   get_parsed_tibble()
 get_parsed_tibble = function(filename, file_validation = TRUE) {
-  if (file_validation) file_validation(filename = filename)
+  if (file_validation) {
+    file_validation(filename = filename)
+  }
   parsed_file = filename |>
     base::parse(file = _, keep.source = TRUE) |>
     utils::getParseData(x = _) |>

inst/examples/generic_script.R

@@ -5,27 +5,23 @@ dplyr::select(cars, speed)
 
 # special function for
 for (i in c(1, 2)) {
-# special function +
+  # special function +
   2 + 2
 }
 
 base::c(1, 2)
 
-while (FALSE) {2 + 2}
+while (FALSE) {
+  2 + 2
+}
 
 library(dplyr)
 require(ggplot2)
 
 library(ggplot2)
 
-test_func = function(x){
-return(x + 2)
+test_func = function(x) {
+  return(x + 2)
 }
 
 test_func(3)
-
-
-
-
-
-

inst/examples/generic_script2.R

@@ -5,19 +5,15 @@ dplyr::select(cars, speed)
 
 # special function for
 for (i in c(1, 2)) {
-# special function +
+  # special function +
   2 + 2
 }
 
-while (FALSE) {2 + 2}
+while (FALSE) {
+  2 + 2
+}
 
 library(dplyr)
 require(ggplot2)
 
 library(ggplot2)
-
-
-
-
-
-

inst/examples/generic_script_A.R

@@ -5,21 +5,23 @@ dplyr::select(cars, speed)
 
 # special function for
 for (i in c(1, 2)) {
-# special function +
+  # special function +
   2 + 2
 }
 
 base::c(1, 2)
 
-while (FALSE) {2 + 2}
+while (FALSE) {
+  2 + 2
+}
 
 library(dplyr)
 require(ggplot2)
 
 library(ggplot2)
 
-test_func = function(x){
-return(x + 2)
+test_func = function(x) {
+  return(x + 2)
 }
 
 test_func(3)
@@ -42,9 +44,3 @@ bad_pipe = mtcars %>%
 
 good_pipe = mtcars |>
   filter(mpg > 20)
-
-
-
-
-
-

inst/examples/generic_script_gt.R

@@ -12,7 +12,7 @@ library(stringr)
 library(cowplot)
 library(GGally)
 
-my_sim = function(parm1, parm2){
+my_sim = function(parm1, parm2) {
   my_obs = rnorm(n = 10000, mean = parm1, sd = parm2)
   return(mean(my_obs))
 }
@@ -27,26 +27,22 @@ sim_data1 = expand.grid(mu = settingsA, sigma = settingsB)
 set.seed(123)
 for (i in seq_len(length.out = nrow(sim_data1))) {
   sim_data1$observedmean[i] = my_sim(
-    parm1 = sim_data1$mu[i], 
+    parm1 = sim_data1$mu[i],
     parm2 = sim_data1$sigma[i]
   )
 }
 
 # But we should use dplyr
 set.seed(123)
-sim_data2 = sim_data1 |> 
+sim_data2 = sim_data1 |>
   rowwise() |>
   mutate(observedmean = my_sim(parm1 = mu, parm2 = sigma))
 
-sim_data1 |> 
-  pivot_wider(names_from = mu, values_from = observedmean) |> 
-  gt::gt() |> 
+sim_data1 |>
+  pivot_wider(names_from = mu, values_from = observedmean) |>
+  gt::gt() |>
   gt::tab_options(latex.use_longtable = TRUE)
-sim_data2 |> 
-  pivot_wider(names_from = mu, values_from = observedmean) |> 
-  gt::gt() |> 
+sim_data2 |>
+  pivot_wider(names_from = mu, values_from = observedmean) |>
+  gt::gt() |>
   gt::tab_options(latex.use_longtable = TRUE)
-
-
-
-

tests/testthat/test-get_parsed_tibble.R

@@ -1,51 +1,34 @@
-test_that(
-  desc = "Validating file exists.", 
-  code = {
-    expect_no_error(
-      object = file_validation(
-        filename = example_script("generic_script")
-      )
+test_that(desc = "Validating file exists.", code = {
+  expect_no_error(
+    object = file_validation(
+      filename = example_script("generic_script")
     )
-  }
-)
+  )
+})
 
-test_that(
-  desc = "Ensuring error message exists.", 
-  code = {
-    expect_error(
-      object = file_validation(
-        filename = "this_file_does_not_exist.R"
-      )
+test_that(desc = "Ensuring error message exists.", code = {
+  expect_error(
+    object = file_validation(
+      filename = "this_file_does_not_exist.R"
     )
-  }
-)
-
-test_that(
-  desc = "Verifying warning.", 
-  code = {
-    expect_warning(
-      object = file_validation(
-        filename = paste0(
-          system.file(package = "autogradeR"), 
-          "/../DESCRIPTION"
-        )
+  )
+})
+
+test_that(desc = "Verifying warning.", code = {
+  expect_warning(
+    object = file_validation(
+      filename = paste0(
+        system.file(package = "autogradeR"),
+        "/../DESCRIPTION"
       )
     )
-  }
-)
+  )
+})
 
-test_that(
-  desc = "Able to parse a script.", 
-  code = {
-    expect_snapshot(
-      x = get_parsed_tibble(
-        filename = example_script("generic_script")
-      )
+test_that(desc = "Able to parse a script.", code = {
+  expect_snapshot(
+    x = get_parsed_tibble(
+      filename = example_script("generic_script")
     )
-  }
-)
-
-
-
-
-
+  )
+})