Displaying 11 results from an estimated 11 matches for "mainpanel".
2017 Oct 18
1
dygraphs, multiple graphs and shiny
...> sliderInput("bins",
> "Number of bins:",
> min = 1,
> max = 50,
> value = 30)
> ),
>
> # Show a plot of the generated distribution
> mainPanel(
> dygraphs::dygraphOutput("distPlot")
> )
> )
> )
>
> # Define server logic required to draw a histogram
> server <- function(input, output) {
>
> output$distPlot <- dygraphs::renderDygraph({
> lungDeaths <- cbind(mdeat...
2017 Sep 21
3
Add wrapper to Shiny in R package
...ir = 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")
)
}
)
Thank you,
Axel.
[[alternative HTML version deleted]]
2017 Sep 21
1
Add wrapper to Shiny in R package
...ydashboard)
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", border = "white")
)
}
)
myApp(rnorm(100))
Axel.
On Thu...
2017 Sep 17
2
Shiny App inside R Package
...() 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")
)
}
)
}
myApp(rnorm(100))
Regards,
Axel.
[[alternative HTML v...
2017 Sep 21
0
Add wrapper to Shiny in R 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")
> )
> }
> )
>
> Thank you,
> Axel....
2013 Oct 07
1
Color font in verbatim text output in Shiny
Hello!
Is there any way to change the colors (and other characteristics) of the
font that is being used by Shiny when the ui.r code hase some
verbatimTextOutput?
For example, I am producing 2 outputs in two tabs.
mainPanel(
tabsetPanel(
tabPanel("Output 1", verbatimTextOutput("myoutput1")),
tabPanel("Output 2", verbatimTextOutput("myoutput2"))
)
)
Thank you!
Dimitri Liakhovitski
[[alternative HTML version deleted]]
2018 Mar 04
2
problema con shiny
...mber 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")
)
)
)
# 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),...
2019 Oct 07
0
Changing HTML Error code message
...choices = c("A", "B", "C")),
selectInput("Year", "Choose a Year:",
choices = c("2012", "2011")),
downloadButton("downFile", "Download File"),
width = 2),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Html Pages", htmlOutput("viewReport"))), width
= 10)
)
)
#IMPORTANT: The two lines below needs to be run just one time unless the
token is deleted
# Create Token
# token <- drop_auth()
# Save...
2017 Jun 24
0
Fwd: Widgets under renderUI Shiny
...ui= fluidPage(
sidebarLayout(
sidebarPanel(
selectizeInput(inputId= "invar", label= "invar",
choices= names(iris),
selected= names(iris)[1],
multiple=T),
uiOutput("invarpdf")
),
mainPanel(
tableOutput("tab")
)
))
server= function(input, output,session) {
sorted <- reactive({
data <- iris[ ,c(input$invar)]
#print(input$invar)
data})
output$invarpdf<-renderUI({
numvar<- length(input$varnames)
{
selectInput(inputId=p...
2018 Mar 05
2
problema con shiny
...mber 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")
)
)
)
# 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),...
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