Displaying 11 results from an estimated 11 matches for "sidebarpanel".
2017 Oct 18
1
dygraphs, multiple graphs and shiny
...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 generated distribution
>...
2017 Sep 21
3
Add wrapper to Shiny in R package
...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
...r = 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 = "skyblue",...
2017 Sep 17
2
Shiny App inside R Package
...s 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 = "white")...
2017 Sep 21
0
Add wrapper to Shiny in R package
...> 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...
2018 Mar 04
2
problema con shiny
...#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(
plotOutput("distPlot&quo...
2019 Oct 07
0
Changing HTML Error code message
...iles to recreate the problem. Any and all suggestions are
welcome. Thank you in advance for your help.
library(shiny)
library(rdrop2)
library(httr)
ui <- # Define UI for dataset viewer application
shinyUI(pageWithSidebar(
headerPanel("Test DropBox html Docs to Shiny"),
sidebarPanel(
selectInput("Cat", "Choose a Category:",
choices = c("A", "B", "C")),
selectInput("Year", "Choose a Year:",
choices = c("2012", "2011")),
downloadBut...
2017 Jun 24
0
Fwd: Widgets under renderUI Shiny
...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("tab")...
2013 Dec 20
0
Resumen de R-help-es, Vol 58, Envío 26
...n ui.R (donde se declaran los métodos y las etiquetas que se muestran en pantalla) y la variable input$nombre_usado_en_ui para tomar el valor elegido en el server.R
Puedes consultar el tutorial de shiny en: http://rstudio.github.io/shiny/tutorial/#shiny-text
Por ejemplo (copiado de ahí)
en ui.R
sidebarPanel(
selectInput("dataset", "Choose a dataset:",
choices = c("rock", "pressure", "cars"))
),
y en server.R
datasetInput <- reactive({
switch(input$dataset,
"rock" = rock,
"pressure&...
2018 Mar 05
2
problema con shiny
...#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(
plotOutput("distPlot&quo...
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