1

私はShinyの初心者です。私はダッシュボードに取り組んでいます。renderUI を使用して入力を取得しています。2 日間、コードは正常に動作していましたが、今日突然問題が発生し始めました。どんな助けでも大歓迎です。

UI コード:

ui <- fluidPage(
column(width =6,
       box(width = NULL, status = "warning",solidHeader = TRUE,
            title = "Topics Level",
            selectInput(inputId = "Vis_level_select", 
                        label = "",
                        selected = "Main Topics",
                        choices = c("Main Topics","Sub-Topics")
                       )
                   )
            ),

## Topic Number Output
column(width = 6,
       box(width = NULL, status = "warning",solidHeader = TRUE,
           title = "Select the topic for which Sub Topics are to be shown",
           uiOutput("topic_no_select")
           )
      ))

サーバーコード:

server <- function(input, output){
## Topic number output
output$topic_no_select <- renderUI({
  if(input$Vis_level_select == "Main Topics"){
  selectInput(inputId = "main_topic_no", label = "", choices = "N/A", selected = "N/A")
} else{
  selectInput(inputId = "main_topic_no", label = "", choices = c(1:10), selected = 1)
}
})

## LDAvis output
output$LDAvis_output <- renderVis({
  if(input$Vis_level_select == "Sub-Topics"){
  viz_file <- paste0("Viz_Sub_topics_Main_Topic_",input$main_topic_no)
} else if(input$Vis_level_select == "Main Topics"){
  viz_file <- "Viz_Sub_topics_Main_Topics"
}
  get(viz_file)
})
}

出力の if ステートメントで空白になり、見つからないLDAvisというエラーが表示されます。Viz_Sub_topics_Main_Topic_値を変更するとinput$Vis_level_select、最初の部分はLDAvis動作しますが、2 番目の部分は動作しません。なぜこれが起こっているのか理解できません。

これが単なるバグであり、再起動すると消えるかどうかをお知らせください。

4

0 に答える 0