From ce282415bf69fab1ed245bd72b1a57c661e22c0b Mon Sep 17 00:00:00 2001
From: Jan Przybylski <plaljahn@gmail.com>
Date: Fri, 27 Nov 2020 19:14:20 +0100
Subject: [PATCH] update

---
 Dockerfile |  3 ---
 app.R      |  0
 app/app.R  | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 49 insertions(+), 3 deletions(-)
 delete mode 100644 app.R
 create mode 100644 app/app.R

diff --git a/Dockerfile b/Dockerfile
index d8c6e32..dd41663 100644
--- a/Dockerfile
+++ b/Dockerfile
@@ -1,8 +1,5 @@
-# Base image https://hub.docker.com/u/rocker/
 FROM rocker/shiny:latest
 
-# system libraries of general use
-## install debian packages
 RUN apt-get update -qq && apt-get -y --no-install-recommends install \
     libxml2-dev \
     libcairo2-dev \
diff --git a/app.R b/app.R
deleted file mode 100644
index e69de29..0000000
diff --git a/app/app.R b/app/app.R
new file mode 100644
index 0000000..1cd079f
--- /dev/null
+++ b/app/app.R
@@ -0,0 +1,49 @@
+#
+# This is a Shiny web application. You can run the application by clicking
+# the 'Run App' button above.
+#
+# Find out more about building applications with Shiny here:
+#
+#    http://shiny.rstudio.com/
+#
+
+library(shiny)
+
+# Define UI for application that draws a histogram
+ui <- fluidPage(
+
+    # Application title
+    titlePanel("Old Faithful Geyser Data"),
+
+    # Sidebar with a slider input for number of bins 
+    sidebarLayout(
+        sidebarPanel(
+            sliderInput("bins",
+                        "Number of bins:",
+                        min = 1,
+                        max = 50,
+                        value = 30)
+        ),
+
+        # Show a plot of the generated distribution
+        mainPanel(
+           plotOutput("distPlot")
+        )
+    )
+)
+
+# Define server logic required to draw a histogram
+server <- function(input, output) {
+
+    output$distPlot <- renderPlot({
+        # generate bins based on input$bins from ui.R
+        x    <- faithful[, 2]
+        bins <- seq(min(x), max(x), length.out = input$bins + 1)
+
+        # draw the histogram with the specified number of bins
+        hist(x, breaks = bins, col = 'darkgray', border = 'white')
+    })
+}
+
+# Run the application 
+shinyApp(ui = ui, server = server)