複数のタブと異なるサイドバーが各タブに付いています

Question

複数のタブを持つようになりました。各タブにはサイドバーがあります。selectInputが最初のタブにあり、sliderInputが2番目のタブに必要です。

誰でも手助けできますか？

マイコード：

ui <- fluidPage(

    headerPanel("Terrorism in The World"), 
      sidebarPanel(  
        selectInput("Country", "Select Country", choices = sort(unique(mydat$Country)), selected = "Iraq") 
       ,sliderInput("year", "Year:", min = 1968, max = 2009, value = 2009, sep='') 
     ), 
     mainPanel(

     tabsetPanel(
      tabPanel("Map",htmlOutput("Attacks")), 
      tabPanel("plot", 
       fluidRow(
        column(8, plotlyOutput("trendheatrPlot", height = "300px",width = 700)), 
        column(7, plotlyOutput("trendstakbarPlot", height = "300px",width = 700)) 
       ) 
      ) 
     ) 
    ) 
) 

Answer 1

私はあなたの説明に基づいて使用することができ、簡単なUIテンプレートを作りました。また、光沢のあるUIが12グリッドシステムに基づいているため、列の仕様を8,7から7,5に変更しました。コードは次のとおりです。

library(shiny) 
library(plotly) 

shinyApp(
    ui = fluidPage(
    tabsetPanel(
     tabPanel("Map", fluid = TRUE, 
       sidebarLayout(
       sidebarPanel(selectInput("Country", "Select Country", choices = "", selected = "")), 
       mainPanel(
        htmlOutput("Attacks") 
       ) 
       ) 
    ), 
     tabPanel("plot", fluid = TRUE, 
       sidebarLayout(
       sidebarPanel(sliderInput("year", "Year:", min = 1968, max = 2009, value = 2009, sep='')), 
       mainPanel(fluidRow(
        column(7, plotlyOutput("")), 
        column(5, plotlyOutput("")) 
       ) 
       ) 
       ) 
    ) 
    ) 
), 
    server = function(input, output) { 

    } 
)