updated examples

R/import-globalenv.R

@@ -260,7 +260,11 @@ import_globalenv_server <- function(id,
 #' @importFrom utils data
 #'
 #' @examples
-#' get_data_packages()
+#' if (interactive()) {
+#'
+#'   get_data_packages()
+#'
+#' }
 get_data_packages <- function() {
   suppressWarnings({
     pkgs <- data(package = .packages(all.available = TRUE))

examples/from-globalenv.R

@@ -1,56 +1,56 @@
+if (interactive()) {
+  library(shiny)
+  library(datamods)
 
-library(shiny)
-library(datamods)
-
-# Create some data.frames
-
-my_df <- data.frame(
-  variable1 = sample(letters, 20, TRUE),
-  variable2 = sample(1:100, 20, TRUE)
-)
-
-results_analysis <- data.frame(
-  id = sample(letters, 20, TRUE),
-  measure = sample(1:100, 20, TRUE),
-  response = sample(1:100, 20, TRUE)
-)
-
-
-# Application
-
-ui <- fluidPage(
-  fluidRow(
-    column(
-      width = 4,
-      import_globalenv_ui("myid")
-    ),
-    column(
-      width = 8,
-      tags$b("Import status:"),
-      verbatimTextOutput(outputId = "status"),
-      tags$b("Name:"),
-      verbatimTextOutput(outputId = "name"),
-      tags$b("Data:"),
-      verbatimTextOutput(outputId = "data")
+  # Create some data.frames
+
+  my_df <- data.frame(
+    variable1 = sample(letters, 20, TRUE),
+    variable2 = sample(1:100, 20, TRUE)
+  )
+
+  results_analysis <- data.frame(
+    id = sample(letters, 20, TRUE),
+    measure = sample(1:100, 20, TRUE),
+    response = sample(1:100, 20, TRUE)
+  )
+
+
+  # Application
+
+  ui <- fluidPage(
+    fluidRow(
+      column(
+        width = 4,
+        import_globalenv_ui("myid")
+      ),
+      column(
+        width = 8,
+        tags$b("Import status:"),
+        verbatimTextOutput(outputId = "status"),
+        tags$b("Name:"),
+        verbatimTextOutput(outputId = "name"),
+        tags$b("Data:"),
+        verbatimTextOutput(outputId = "data")
+      )
     )
   )
-)
 
-server <- function(input, output, session) {
+  server <- function(input, output, session) {
 
-  imported <- import_globalenv_server("myid")
+    imported <- import_globalenv_server("myid")
 
-  output$status <- renderPrint({
-    imported$status()
-  })
-  output$name <- renderPrint({
-    imported$name()
-  })
-  output$data <- renderPrint({
-    imported$data()
-  })
+    output$status <- renderPrint({
+      imported$status()
+    })
+    output$name <- renderPrint({
+      imported$name()
+    })
+    output$data <- renderPrint({
+      imported$data()
+    })
 
-}
+  }
 
-if (interactive())
   shinyApp(ui, server)
+}