search for: sidebarlayout

Displaying 9 results from an estimated 9 matches for "sidebarlayout".

2017 Oct 18
1
dygraphs, multiple graphs and shiny
...- this is showing just a single digraph: > library(shiny) > > # Define UI for application that draws a histogram > ui <- fluidPage( > > # Application title > titlePanel("Test"), > > # 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 generat...
2017 Sep 21
3
Add wrapper to Shiny in R package
...ctory:* myApp <- function(x, ...) { require(shiny) xs <- scale(x) shiny::runApp(appDir = system.file("application", package = "my_package"), ...) } *Under inst/application directory a file named app.R with the following content:* shinyApp( ui = fluidPage( sidebarLayout( sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)), mainPanel(plotOutput("hist")) ) ), server = function(input, output) { output$hist <- renderPlot( hist(xs, breaks = input$n, col = "skyblue", border = "white&...
2017 Sep 21
1
Add wrapper to Shiny in R package
...("xs", envir = my.env) : object 'my.env' not found. library(shiny) library(shinydashboard) myApp <- function(x, ...) { xs <- scale(x) my.env <- new.env() assign("xs", xs, envir = my.env) shiny::runApp(app) } app = shinyApp( ui = fluidPage( sidebarLayout( sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)), mainPanel(plotOutput("hist")) ) ), server = function(input, output) { get("xs", envir = my.env) output$hist <- renderPlot( hist(xs, breaks = input$n, col =...
2017 Sep 17
2
Shiny App inside R Package
...er function that creates a Shiny App, as illustrated below. I'd like to include the function myApp() inside a package. I'd appreciate your guidance here, as I could not find good instructions on this online. myApp <- function(x) { require(shiny) shinyApp( ui = fluidPage( sidebarLayout( sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)), mainPanel(plotOutput("hist")) ) ), server = function(input, output) { output$hist <- renderPlot( hist(x, breaks = input$n, col = "skyblue", border...
2017 Sep 21
0
Add wrapper to Shiny in R package
...; xs <- scale(x) > > shiny::runApp(appDir = system.file("application", package = > "my_package"), ...) > > } > > *Under inst/application directory a file named app.R with the following > content:* > > shinyApp( > ui = fluidPage( > sidebarLayout( > sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)), > mainPanel(plotOutput("hist")) > ) > ), > server = function(input, output) { > output$hist <- renderPlot( > hist(xs, breaks = input$n, > col = &q...
2018 Mar 04
2
problema con shiny
...hiny.rstudio.com/ # #setwd("C:/curso 2017-18/curso R/shiny/prueba1") 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( plotOutpu...
2017 Jun 24
0
Fwd: Widgets under renderUI Shiny
...e on the odd chance someone may be able to share his knowledge and explain what it is I am doing wrong or a workaround that I can apply. Below is the code I have so far (please feel free to criticize the code, I am new to R/programming with no background). Thanks library(shiny) ui= fluidPage( sidebarLayout( sidebarPanel( selectizeInput(inputId= "invar", label= "invar", choices= names(iris), selected= names(iris)[1], multiple=T), uiOutput("invarpdf") ), mainPanel( tableOutput(&qu...
2018 Mar 05
2
problema con shiny
...hiny.rstudio.com/ # #setwd("C:/curso 2017-18/curso R/shiny/prueba1") 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( plotOutpu...
2018 Mar 04
4
problema con shiny
Estimados compañeros tengo un problema con shiny. Es un problema local de mi ordenador, porque en otro va si problemas pero no consigo saber ¿cómo arreglarlo?. He instalado incluso la nueva versión de Rstudio. Os explico: 1) lanzo el programa app.R, el ejemplo de shiny e intenta mostrar los resultados pero si hago: print(environment(show)) da como resultado Error in func(fname, ...) : app.R did