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