Similar Q but in Shiny
However, I tried for Shinydashboard but could add autoscroll.
Now, can we make the sidebar selectInput to scroll along with Mainpanel to ensure, User sees and probably change the selectInput even after they scrolled down the mainPanel ?
library(shiny)
library(shinydashboard)
ui <- dashboardPage(dashboardHeader(title = "Title of App"),
sidebar = dashboardSidebar(
sidebarMenu(id = "tabs",
menuItem(
selectInput("n","N",choices = c(50,100,150,200)))
)
),
body = dashboardBody(
plotOutput('plot'),
plotOutput('plot1'),
plotOutput('plot2')
)
)
server <- function(input, output, session) {
output$plot <- renderPlot({
hist(runif(input$n), main = "Clearly known the selected N value")
})
output$plot1 <- renderPlot({
hist(runif(input$n), main = "hardly known the selected N value")
})
output$plot2 <- renderPlot({
hist(runif(input$n), main = "Never know the selected N value")
})
}
shinyApp(ui = ui, server = server)