Style code (GHA)

R/app_config.R

@@ -39,17 +39,16 @@ app_sys <- function(...) {
 #'
 #' @importFrom config get
 get_app_config <- function(
-  value,
-  config = Sys.getenv(
-    "APP_CONFIG_ACTIVE",
-    Sys.getenv(
-      "R_CONFIG_ACTIVE",
-      "default"
-    )
-  ),
-  use_parent = TRUE,
-  file = app_sys("config.yml")
-) {
+    value,
+    config = Sys.getenv(
+      "APP_CONFIG_ACTIVE",
+      Sys.getenv(
+        "R_CONFIG_ACTIVE",
+        "default"
+      )
+    ),
+    use_parent = TRUE,
+    file = app_sys("config.yml")) {
   config::get(
     value = value,
     config = config,

R/app_run.R

@@ -7,12 +7,11 @@
 #' @importFrom shiny shinyApp
 #' @importFrom golem with_golem_options
 run_app <- function(
-  onStart = NULL,
-  options = list(),
-  enableBookmarking = NULL,
-  uiPattern = "/",
-  ...
-) {
+    onStart = NULL,
+    options = list(),
+    enableBookmarking = NULL,
+    uiPattern = "/",
+    ...) {
   with_golem_options(
     app = shinyApp(
       ui = app_ui,

R/app_server.R

@@ -7,10 +7,10 @@
 app_server <- function(input, output, session) {
   output$distPlot <- renderPlot({
     # generate bins based on input$bins from ui.R
-    x    <- faithful[, 2]
+    x <- faithful[, 2]
     bins <- seq(min(x), max(x), length.out = input$bins + 1)
 
     # draw the histogram with the specified number of bins
-    hist(x, breaks = bins, col = 'darkgray', border = 'white')
+    hist(x, breaks = bins, col = "darkgray", border = "white")
   })
 }

tests/spelling.R

@@ -1,3 +1,6 @@
-if(requireNamespace('spelling', quietly = TRUE))
-  spelling::spell_check_test(vignettes = TRUE, error = FALSE,
-                             skip_on_cran = TRUE)
+if (requireNamespace("spelling", quietly = TRUE)) {
+  spelling::spell_check_test(
+    vignettes = TRUE, error = FALSE,
+    skip_on_cran = TRUE
+  )
+}

tests/testthat/test-app_server.R

@@ -8,10 +8,7 @@ test_that("app server", {
 })
 
 testServer(app_server, {
-
   # Set and test an input
   session$setInputs(bins = 2)
   expect_equal(input$bins, 2)
-
 })
-

tests/testthat/test-app_ui.R

@@ -7,4 +7,3 @@ test_that("app ui", {
     expect_true(i %in% names(fmls))
   }
 })
-