Commit 1351ecdb authored by Amine  GHOZLANE's avatar Amine GHOZLANE
Browse files

Debug use install R

parent fae66cd2
......@@ -2129,7 +2129,7 @@ shinyServer(function(input, output,session) {
else if(input$PlotVisuSelect=="Boxplot") res = plotOutput("Boxplot", height = input$heightVisu+10, width=if(input$modifwidthVisu){input$widthVisu})
else if(input$PlotVisuSelect=="Krona"){
if(Sys.info()["nodename"] == "ShinyPro"){
res= tags$iframe(src=paste0("http://hub05.hosting.pasteur.fr/plechat/KronaRShy/?parameter=",KronaR()), height = input$heightVisu+10, width=ifelse(input$modifwidthVisu,input$widthVisu,"100%"), seamless=NA)
res= tags$iframe(src=paste0("http://hub05.hosting.pasteur.fr/aghozlane/KronaRShy/?parameter=",KronaR()), height = input$heightVisu+10, width=ifelse(input$modifwidthVisu,input$widthVisu,"100%"), seamless=NA)
}
else{
res= tags$iframe(src=paste0("http://127.0.0.1:5438/?parameter=",KronaR()), height = input$heightVisu+10, width=ifelse(input$modifwidthVisu,input$widthVisu,"100%"), seamless=NA)
......
......@@ -225,10 +225,10 @@ body <- dashboardBody(
"Then, you will need to install the", a("Docker toolbox.", href="https://www.docker.com/products/docker-toolbox"),
"Once installed, run ‘Docker Quickstart Terminal’ application."),
p("- Running SHAMAN:"),
wellPanel(div(style = 'max-width: 900px',"docker pull aghozlane/shaman && docker run --rm -p 80:80 aghozlane/shaman")),
wellPanel(div(style = 'max-width: 900px',"docker pull aghozlane/shaman && docker run --rm -p 80:80 -p 5438:5438 aghozlane/shaman")),
p("Then connect to http://0.0.0.0/ with your favorite web navigator."),
p("Failed: port is already allocated ?"),
wellPanel(div(style = 'max-width: 900px',"docker run --rm -p 3838:80 aghozlane/shaman")),
wellPanel(div(style = 'max-width: 900px',"docker run --rm -p 3838:80 -p 5438:5438 aghozlane/shaman")),
p("Then connect to http://0.0.0.0:3838/."),
p("- Docker update after an update of SHAMAN:"),
wellPanel(div(style = 'max-width: 900px',"docker pull aghozlane/shaman"))
......@@ -237,6 +237,7 @@ body <- dashboardBody(
p("SHAMAN is available for R>3.1.2. The installation, download and execution can all be performed with a small R script :",style = "font-family: 'times'; font-si16pt"),
wellPanel(div(style = 'max-width: 900px',"# Load shiny packages",br(),
"if(!require('shiny')){",br()," install.packages('shiny')",br()," library(shiny)",br(),"}",br(),
"system(\"Rscript -e 'library(\\\"shiny\\\");runGitHub(\\\"pierreLec/KronaRShy\\\",port=5438)'\",wait=FALSE)",
br(),"# Install dependencies,",br(),"# download last version from github,",br(),"# and run SHAMAN in one command:",br(),"runGitHub('aghozlane/shaman')")),
p("This script can also be dowloaded", a("here", target="_blank", href="shamanapp.R"), "and executed as following :"),
wellPanel(div(style = 'max-width: 900px',"chmod +x ./shamanapp.R && Rscript ./shamanapp.R")),
......
#!/usr/bin/Rscript --vanilla
library(shiny)
system("Rscript -e 'library(\"shiny\");runGitHub(\"pierreLec/KronaRShy\", port=5438)'",wait=FALSE)
runGitHub("aghozlane/shaman")
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment