In my code when load scenario button is clicked it should display a dashboard.But i am getting error "object of type 'closure' is not subsettable".I know there are lot of questions already asked in stack overflow but i am unable to get any of these Here is my code
library("shiny")
library("shinydashboard")
ui <- fluidPage(
actionButton("create_scenario", "Create Scenario"),
actionButton("load_scenario","load scenario"),
uiOutput("input"),
uiOutput("inputs")
)
server <- function(input, output,session) {
observeEvent(input$create_scenario,{
output$input <- renderUI({
textInput("txtInput","Enter Scenario Name","Enter name as scenario
(number of senario created +1)")
})
})
observeEvent(input$load_scenario,{
output$inputs <- renderUI({
# textInput("txtInput","Enter Scenario Name","Enter name as scenario
#(number of senario created +1)")
dashboardPage(
dashboardHeader(title = "Basic dashboard"),
dashboardSidebar(),
dashboardBody(
# Boxes need to be put in a row (or column)
fluidRow(
box(plotOutput("plot1", height = 250)),
box(
title = "Controls",
sliderInput("slider", "Number of observations:", 1, 100, 50)
))))
histdata <- rnorm(500)
output$plot1 <- renderPlot({
data <- histdata[seq_len(input$slider)]
hist(data)
})
} )
})
}
shinyApp(ui, server)
