test app added

README.md

@@ -26,6 +26,21 @@ Anyway this [codingene/bioshiner] made on top of [rocker/shiny] only and loosely
 |-------|------|
 | codingene/bioshiner:3.10 | Bioconductor:3.10 |
 
+## Test
+Clone this repository containing test app
+```
+git clone https://github.com/codingene/BioShineR
+```
+
+Run the app
+```
+docker run --rm -p 3838:3838 \
+	-v ${PWD}/bioshiner/test/apps/biocmanager:/srv/shiny-server/ \
+	-v /srv/shinylog/:/var/log/shiny-server/ \
+	codingene/bioshiner:3.10
+```
+Open the app in browser: http://localhost:3838/
+
 [R Shiny]: https://shiny.rstudio.com/
 [Shiny-Server]: https://rstudio.com/products/shiny/shiny-server/
 [Bioconductor]: https://www.bioconductor.org/

test/apps/biocmanager/server.R

@@ -0,0 +1,17 @@
+library(shiny)
+library(BiocManager)
+
+shinyServer(function(input, output) {
+
+  output$selected_func <- renderText({
+    if (input$func == "version"){
+      paste( "BiocManager Version:", as.character(BiocManager::version()))
+    } else if (input$func == "repositories"){
+      paste("Current Bioconductor and CRAN repositories")
+      BiocManager::repositories()
+    } else {
+      print("Not functions selected")
+    }
+    })
+
+})

test/apps/biocmanager/ui.R

@@ -0,0 +1,18 @@
+library(shiny)
+
+shinyUI(fluidPage(
+
+  titlePanel("BiocManager Test"),
+
+  sidebarLayout(
+    sidebarPanel(
+      selectInput("func", "Function:",
+                  c("Version" = "version",
+                    "Repositories" = "repositories")
+    )),
+
+    mainPanel(
+      textOutput("selected_func")
+    )
+  )
+))