Switch to using a split example structure

Author: coatless

inst/demo-py-shiny-containerization.R

@@ -1,39 +1,20 @@
-# Create a simple Shiny for Python app
+# Quick demo of containerizing a simple Shiny for Python app
+
+## Setup a temporary directory that gets destructed after the session ----
 app_dir <- tempfile()
 dir.create(app_dir)
-writeLines(
-  'from shiny import App, ui, render
-import numpy as np
-import matplotlib.pyplot as plt
-
-app_ui = ui.page_fluid(
-    ui.panel_title("Hello Docker"),
-    ui.layout_sidebar(
-        ui.sidebar(
-            ui.input_slider("obs", "Number of observations:", min=1, max=1000, value=500)
-        ),
-        ui.output_plot("distPlot")
-    )
-)
-
-def server(input, output, session):
-    @output
-    @render.plot
-    def distPlot():
-        data = np.random.normal(size=input.obs())
-        fig, ax = plt.subplots()
-        ax.hist(data)
-        return fig
 
-app = App(app_ui, server)',
-file.path(app_dir, "app.py")
+## Create a simple Shiny for Python app from a template ----
+writeLines(
+  readLines(system.file("examples", "shiny", "python", "hello-docker-plain", "app.py", package = "shinydocker")),
+  file.path(app_dir, "app.py")
 )
 
-# Export the app
+## Export the app ----
 shinydocker::export(app_dir, run = TRUE, detach = TRUE)
 
 # Stop the container
-stop_container(app_dir)
+shinydocker::stop_container(app_dir)
 
 # Restart the container:
 shinydocker::run_container(app_dir, detach = TRUE)
@@ -44,4 +25,4 @@ shinydocker::run_container(app_dir, detach = TRUE)
 # Build Docker image
 # shinydocker::build_image(app_dir)
 # Run the containerized app
-# shinydocker::run_container(app_dir, detach = TRUE)
+# shinydocker::run_container(app_dir, detach = TRUE)

inst/demo-r-shiny-containerization.R

@@ -1,42 +1,26 @@
-# Create a simple R Shiny app
+# Quick demo of containerizing a simple R Shiny app
+
+## Create a simple R Shiny app ----
 app_dir <- tempfile()
 dir.create(app_dir)
 writeLines(
-  'library(shiny)
-   
-   ui <- fluidPage(
-     titlePanel("Hello Docker"),
-     sidebarLayout(
-       sidebarPanel(
-         sliderInput("obs", "Number of observations:", 
-                     min = 1, max = 1000, value = 500)
-       ),
-       mainPanel(
-         plotOutput("distPlot")
-       )
-     )
-   )
-   
-   server <- function(input, output) {
-     output$distPlot <- renderPlot({
-       hist(rnorm(input$obs))
-     })
-   }
-   
-   shinyApp(ui = ui, server = server)',
+  readLines(system.file("examples", "shiny", "r", "hello-docker-ggplot2", "app.R", package = "shinydocker")),
   file.path(app_dir, "app.R")
 )
 
-# Export the app
-shinydocker::export(app_dir, run = TRUE, detach = TRUE)
+## Export the app  ----
+container <- shinydocker::export(app_dir, run = TRUE, detach = TRUE)
+
+## Stop the container ----
+shinydocker::stop_container()
 
-## Alternatively, steps can be run separately ----
+# Alternatively, steps can be run separately ----
 
-# Create Docker configuration
+## Create Docker configuration ----
 dockerize(app_dir)
 
-# Build Docker image
+## Build Docker image ----
 build_image(app_dir)
 
-# Run the containerized app
+## Run the containerized app ----
 run_container(app_dir, detach = TRUE)

inst/examples/shiny/python/hello-docker-plain/app.py

@@ -0,0 +1,24 @@
+from shiny import App, ui, render
+import numpy as np
+import matplotlib.pyplot as plt
+
+app_ui = ui.page_fluid(
+    ui.panel_title("Hello Docker"),
+    ui.layout_sidebar(
+        ui.sidebar(
+            ui.input_slider("obs", "Number of observations:", min=1, max=1000, value=500)
+        ),
+        ui.output_plot("distPlot")
+    )
+)
+
+def server(input, output, session):
+    @output
+    @render.plot
+    def distPlot():
+        data = np.random.normal(size=input.obs())
+        fig, ax = plt.subplots()
+        ax.hist(data)
+        return fig
+
+app = App(app_ui, server)

inst/examples/shiny/r/hello-docker-ggplot2/app.R

@@ -0,0 +1,24 @@
+library(shiny)
+library(ggplot2)
+
+ui <- fluidPage(
+  titlePanel("Hello Docker"),
+  sidebarLayout(
+    sidebarPanel(
+      sliderInput("obs", "Number of observations:", 
+                  min = 1, max = 1000, value = 500)
+    ),
+    mainPanel(
+      plotOutput("distPlot")
+    )
+  )
+)
+
+server <- function(input, output) {
+  output$distPlot <- renderPlot({
+    ggplot(data.frame(x = rnorm(input$obs))) + aes(x = x) + 
+      geom_histogram()
+  })
+}
+
+shinyApp(ui = ui, server = server)

inst/examples/shiny/r/hello-docker-plain/app.R

@@ -0,0 +1,22 @@
+library(shiny)
+
+ui <- fluidPage(
+  titlePanel("Hello Docker"),
+  sidebarLayout(
+    sidebarPanel(
+      sliderInput("obs", "Number of observations:", 
+                  min = 1, max = 1000, value = 500)
+    ),
+    mainPanel(
+      plotOutput("distPlot")
+    )
+  )
+)
+
+server <- function(input, output) {
+  output$distPlot <- renderPlot({
+    hist(rnorm(input$obs))
+  })
+}
+
+shinyApp(ui = ui, server = server)