diff --git a/R/app_config.R b/R/app_config.R index 3c19585..41e1bec 100644 --- a/R/app_config.R +++ b/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, diff --git a/R/app_run.R b/R/app_run.R index 44d4029..e72f03e 100644 --- a/R/app_run.R +++ b/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, diff --git a/R/app_server.R b/R/app_server.R index d912fc0..04d4506 100644 --- a/R/app_server.R +++ b/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") }) } diff --git a/tests/spelling.R b/tests/spelling.R index 6713838..13f77d9 100644 --- a/tests/spelling.R +++ b/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 + ) +} diff --git a/tests/testthat/test-app_server.R b/tests/testthat/test-app_server.R index d705125..8f1e684 100644 --- a/tests/testthat/test-app_server.R +++ b/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) - }) - diff --git a/tests/testthat/test-app_ui.R b/tests/testthat/test-app_ui.R index 09bfe19..4b0c7eb 100644 --- a/tests/testthat/test-app_ui.R +++ b/tests/testthat/test-app_ui.R @@ -7,4 +7,3 @@ test_that("app ui", { expect_true(i %in% names(fmls)) } }) -