use shinydisconnect in demo app

daattali · Jun 9, 2020 · 00d9009 · 00d9009
1 parent 8c4a165
commit 00d9009
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 11 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -22,6 +22,8 @@ Suggests:
     colourpicker,
     knitr,
     rmarkdown
+Remotes:
+    daattali/shinydisconnect
 License: MIT + file LICENSE
 SystemRequirements: pandoc with https support
 LazyData: true

diff --git a/inst/examples/demo/ui.R b/inst/examples/demo/ui.R
@@ -9,6 +9,7 @@ share <- list(
 )
 
 fluidPage(
+  shinydisconnect::disconnectMessage2(),
   title = paste0("shinyalert package ", as.character(packageVersion("shinyalert"))),
   tags$head(
     includeCSS(file.path('www', 'style.css')),
@@ -110,17 +111,16 @@ fluidPage(
       checkboxInput("animation", "Animation", TRUE)
     )
   ),
-  hr(),
   fluidRow(
-    "Modal return value (useful when ", tags$code('type="input"'), "):",
-    textOutput("return", inline = TRUE),
-    br(), br(),
-    div(
-      id = "code-container",
-      class = "collapse",
-      verbatimTextOutput("code")
-    ),
-    tags$button("Show code", href = "javascript:void()", class = "btn btn-default",
-           `data-toggle` = "collapse", `data-target` = "#code-container"), br(), br()
+    column(
+      12, 
+      strong("Modal return value (useful when Type is \"input\"):"),
+      textOutput("return", inline = TRUE)
+    )
+  ),
+  fluidRow(
+    column(
+      12, h3("Generated code"), verbatimTextOutput("code")
+    )
   )
 )