Displaying 8 results from an estimated 8 matches for "renderplot".
2017 Sep 21
3
Add wrapper to Shiny in R package
...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")
)
}
)
Thank you,
Axel.
[[alternative HTML version deleted]]
2017 Sep 21
1
Add wrapper to Shiny in R package
...(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", border = "white")
)
}
)
myApp(rnorm(100))
Axel.
On Thu, Sep 21, 2017 at 11:13 AM, Thierry Onkelinx <thierry.onkelinx at inbo.be
> wrote:
> Dear Axel,
>
> I've used environment for such pr...
2017 Sep 17
2
Shiny App inside R Package
...App <- 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")
)
}
)
}
myApp(rnorm(100))
Regards,
Axel.
[[alternative HTML version deleted]]
2017 Sep 21
0
Add wrapper to Shiny in R package
...ontent:*
>
> 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")
> )
> }
> )
>
> Thank you,
> Axel.
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help at r-p...
2018 Mar 04
2
problema con shiny
...max = 50,
value = 30)
),
# Show a plot of the generated distribution
mainPanel(
plotOutput("distPlot")
)
)
)
# Define server logic required to draw a histogram
server <- function(input, output) {
output$distPlot <- renderPlot({
# generate bins based on input$bins from ui.R
x <- faithful[, 2]
bins <- seq(min(x), max(x), length.out = input$bins + 1)
# draw the histogram with the specified number of bins
hist(x, breaks = bins, col = 'darkgray', border = 'white')
})...
2017 Jun 24
0
Fwd: Widgets under renderUI Shiny
...;",
textInput("invarpdfmeanlog","Please Select Mean
Log of Input Variable:",0.18),
textInput("invarpdfsdlog","Please Select
Standard Deviation Log of Input Variable:", 0.3))
}})
output$MonteCarlo <- renderPlot({
set.seed(1)
n <- input$sampleSize
if(distinvarpdf=="Normal"){
invarpdfVec <- rnorm(n,mean = as.numeric(input$invarpdfmean),sd=
as.numeric(input$invarpdfsd))
}
if(distinvarpdf=="Uniform"){
invarpdfVec <- runif(n,min = as.numeric(...
2018 Mar 05
2
problema con shiny
...max = 50,
value = 30)
),
# Show a plot of the generated distribution
mainPanel(
plotOutput("distPlot")
)
)
)
# Define server logic required to draw a histogram
server <- function(input, output) {
output$distPlot <- renderPlot({
# generate bins based on input$bins from ui.R
x <- faithful[, 2]
bins <- seq(min(x), max(x), length.out = input$bins + 1)
# draw the histogram with the specified number of bins
hist(x, breaks = bins, col = 'darkgray', border = 'white')
})...
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