use cat so no prettycode is needed

OHDSI · Aug 23, 2024 · 9ae4286 · 9ae4286
1 parent ca92294
commit 9ae4286
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/R/ui.R b/R/ui.R
@@ -153,7 +153,8 @@ uiStatic <- function(data = omopgenerics::emptySummarisedResult(),
 
   if (asText) {
     x <- paste0("ui <- ", x) |>
-      styler::style_text()
+      styler::style_text() |>
+      as.character()
   } else {
     x <- x |>
       rlang::parse_expr() |>

diff --git a/tests/testthat/_snaps/staticShiny.md b/tests/testthat/_snaps/staticShiny.md
@@ -1,7 +1,7 @@
 # multiplication works
 
     Code
-      uiStatic(data = result, asText = TRUE)
+      cat(uiStatic(data = result, asText = TRUE), sep = "\n")
     Output
       ui <- shinydashboard::dashboardPage(
         shinydashboard::dashboardHeader(title = "My study"),

diff --git a/tests/testthat/test-staticShiny.R b/tests/testthat/test-staticShiny.R
@@ -15,6 +15,6 @@ test_that("multiplication works", {
   #tdir <- here::here()
   expect_no_error(exportStaticApp(data = result, directory = tdir))
   expect_true("shiny" %in% list.files(tdir))
-  expect_snapshot(uiStatic(data = result, asText = TRUE))
+  expect_snapshot(uiStatic(data = result, asText = TRUE) |> cat(sep = "\n"))
   unlink(tdir)
 })