私は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 番目の部分は動作しません。なぜこれが起こっているのか理解できません。
これが単なるバグであり、再起動すると消えるかどうかをお知らせください。