Same sidebarPanel for different tabs

6 views
Skip to first unread message

DrunkenPhD

unread,
Jan 11, 2017, 10:26:21 AM1/11/17
to Shiny - Web Framework for R
My ui.R file:

shinyUI(fluidPage(theme = shinythemes::shinytheme("lumen"),
                  
  fluidRow(
    column(width = 8, includeMarkdown("intro_data.md")),
    column(width = 4, includeHTML("intro_logo.html"))
  ), 
  sidebarLayout(
    
    sidebarPanel(
      radioButtons('indicator', ...)
      sliderInput("year",....)
      )
      
),

mainPanel(
  tabsetPanel(
    tabPanel( 'Data',    DT::dataTableOutput('ex1') ),
    tabPanel('Graphs',  DT::dataTableOutput('ex2')))
  )
))
))

Now my radioButtons and sliderPanel work fine form tabPanel  Data and the output is OK. I need in tabPanel Graphs to show a  graph based on user inputs in sidebarPanel but it is not working. 

Any ideas?

Reply all
Reply to author
Forward
0 new messages