Styler

R/app_server.R

@@ -3,7 +3,6 @@
 #' @param input,output,session Internal parameters for {shiny}.
 #' @noRd
 app_server <- function(input, output, session) {
-
   inputs <- mod_inputs_server("inputs")
   pipeline <- mod_pipeline_server("pipeline", inputs)
 

tests/testthat/test-prep_specs_summarize.R

@@ -90,21 +90,24 @@ test_that("prep_specs_summarize returns a list with four elements - one for the
 })
 
 test_that("prep_specs_summarize has meta.custom_animation if the summary function is mean or median, but not otherwise", {
-  specs <- "small_salary %>%  group_by(Degree) %>% summarize(mean = mean(Salary))" %>% datamation_sanddance() %>%
+  specs <- "small_salary %>%  group_by(Degree) %>% summarize(mean = mean(Salary))" %>%
+    datamation_sanddance() %>%
     purrr::pluck("x") %>%
     purrr::pluck("specs") %>%
     jsonlite::fromJSON(simplifyDataFrame = FALSE)
 
   expect_equal(specs[[4]][["meta"]][["custom_animation"]], "mean")
 
-  specs <- "small_salary %>%  group_by(Degree) %>% summarize(median = median(Salary))" %>% datamation_sanddance() %>%
+  specs <- "small_salary %>%  group_by(Degree) %>% summarize(median = median(Salary))" %>%
+    datamation_sanddance() %>%
     purrr::pluck("x") %>%
     purrr::pluck("specs") %>%
     jsonlite::fromJSON(simplifyDataFrame = FALSE)
 
   expect_equal(specs[[4]][["meta"]][["custom_animation"]], "median")
 
-  specs <- "small_salary %>%  group_by(Degree) %>% summarize(sd = sd(Salary))" %>% datamation_sanddance() %>%
+  specs <- "small_salary %>%  group_by(Degree) %>% summarize(sd = sd(Salary))" %>%
+    datamation_sanddance() %>%
     purrr::pluck("x") %>%
     purrr::pluck("specs") %>%
     jsonlite::fromJSON(simplifyDataFrame = FALSE)