MenuItems内の光沢のあるダッシュボードの入力問題

Question

光沢のあるダッシュボードが新しく、私は簡単なダッシュボードを作ろうとしています。私は基本的に異なるクラスタリングアルゴリズムを経て、どのように動作するかを示すダッシュボードをまとめようとしています。

私は全体的な分岐トピックのメニュー項目を持っていて、それらのメニュー内で、クラスタリングアルゴリズムのパラメータを指定する項目を入力します。

私の問題は私の画面上に出力を得ることができません。私はプロットを描画することはできません、私はtabItemsの中に置いたボックスのタイトルを参照してください。これは私のメニュー項目の1つの中にサブ項目を置くと起こると思われます。なぜ私は分からない。

私のui.Rスクリプトとserver.Rスクリプトが添付されています。

ui.Rファイル：

server.Rファイル：

本件に伴う任意の助けもいただければ幸いです。

Answer 1

私が見る限り、問題はラジオボタンをmenuItemに配置したことによるものです。タブkclusteringがアクティブのときにradioButtonsと表示する場合は、をconditionalPanelにラップする必要があります。それはあなたの条件を策定することができるようにsidebarMenuオブジェクトのid引数を設定することが重要です、この場合

library(shinydashboard) 

ui <- dashboardPage(
    dashboardHeader(title = "Bla"), 
    dashboardSidebar(
    sidebarMenu(
     id = "tabs", 
     menuItem(
     "K-clustering", 
     tabName = "kclustering", 
     icon = icon("cogs")), 
     conditionalPanel(
     "input.tabs == 'kclustering'", 
     radioButtons("technique", "Technique Choice", 
       c("K-Means" = "kmeans", 
        "K-Medians" = "kmedians", 
        "K-Medoids" = "kmedoids"), 
       select = "kmedians") 
     ), 
     menuItem("DBSCAN", tabName = "dbscan") 
    ) 
), 
dashboardBody(
    tabItems(
    tabItem("kclustering", 
     fluidRow(
     box(plotOutput("step1")) 
     )) 
    ) 
)) 

server <- function(input, output) { 

    output$step1 <- renderPlot({ 

    hist(rnorm(5000)) 

    }) 

} 

runApp(shinyApp(ui, server)) 

：それはそのようになります。 結論：radioButtons、sliderInputおよびtextInputをmenuItemオブジェクトの中に入れますが、sidebarMenuオブジェクト自体に入れないでください。