diff --git a/README.md b/README.md index c6ebb77..ccdab20 100644 --- a/README.md +++ b/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/ diff --git a/_config.yml b/_config.yml deleted file mode 100644 index fc24e7a..0000000 --- a/_config.yml +++ /dev/null @@ -1 +0,0 @@ -theme: jekyll-theme-hacker \ No newline at end of file diff --git a/test/apps/biocmanager/server.R b/test/apps/biocmanager/server.R new file mode 100644 index 0000000..8a39466 --- /dev/null +++ b/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") + } + }) + +}) \ No newline at end of file diff --git a/test/apps/biocmanager/ui.R b/test/apps/biocmanager/ui.R new file mode 100644 index 0000000..c4b5bc1 --- /dev/null +++ b/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") + ) + ) +)) \ No newline at end of file