Merge branch 'main' into fix-demo-url

Author: jakubnowicki

tests/testthat/helper.R

@@ -4,27 +4,25 @@ extract_content <- function(html_tag, selector) {
 
 test_app <- function() {
   shiny::shinyApp(
-    ui =
-      shiny::fluidPage(
-        use_empty_state(),
-        shiny::actionButton("show", "Show empty state!"),
-        shiny::actionButton("hide", "Hide empty state!"),
-        shiny::tableOutput("my_table")
-      ),
-    server =
-      function(input, output) {
-        empty_state_content <- htmltools::div(class = "myDiv")
-        empty_state_manager <-
-          EmptyStateManager$new(
-            id = "my_table",
-            html_content = empty_state_content)
-        shiny::observeEvent(input$show, {
-          empty_state_manager$show()
-        })
-        shiny::observeEvent(input$hide, {
-          empty_state_manager$hide()
-        })
-        output$my_table <- shiny::renderTable(data.frame(NA))
-      }
+    ui = shiny::fluidPage(
+      use_empty_state(),
+      shiny::actionButton("show", "Show empty state!"),
+      shiny::actionButton("hide", "Hide empty state!"),
+      shiny::tableOutput("my_table")
+    ),
+    server = function(input, output) {
+      empty_state_content <- htmltools::div(class = "myDiv")
+      empty_state_manager <- EmptyStateManager$new(
+        id = "my_table",
+        html_content = empty_state_content
+      )
+      shiny::observeEvent(input$show, {
+        empty_state_manager$show()
+      })
+      shiny::observeEvent(input$hide, {
+        empty_state_manager$hide()
+      })
+      output$my_table <- shiny::renderTable(data.frame(NA))
+    }
   )
 }

tests/testthat/test-empty_state.R

@@ -15,7 +15,7 @@ describe("EmptyStateManager", {
     expect_equal(
       test_class$.__enclos_env__$private$.html_content,
       as.character(default_empty_state_component())
-      )
+    )
   })
 
   it("should contain passed color", {
@@ -39,7 +39,7 @@ describe("EmptyStateManager", {
     expect_equal(
       app$get_html(selector = ".empty-state-content"),
       as.character(expected_div)
-      )
+    )
     app$stop()
   })
 
@@ -56,15 +56,14 @@ describe("EmptyStateManager", {
     expect_null(app$get_html(selector = ".empty-state-content"))
     app$stop()
   })
-
 })
 
 describe("use_empty_state()", {
   test_func <- use_empty_state()
   src_files <- list(
     "emptystate.css",
     "emptystate.js"
-    )
+  )
 
   it("should add source files properly", {
     expect <- paste0(