Shiny renderUI не Selectinput перестал обновляться самостоятельно - PullRequest
Новая
       37

Shiny renderUI не Selectinput перестал обновляться самостоятельно

0 голосов
/ 16 сентября 2018

Я новичок в Shiny. Я работаю над приборной панелью. Я использую renderUI, чтобы получить некоторый вклад. В течение 2 дней код работал нормально, но вдруг сегодня он стал вызывать у меня проблемы. Любая помощь будет высоко ценится.

код пользовательского интерфейса: 

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 работает, но вторая часть не работает. Я не могу понять, почему это происходит.

Пожалуйста, дайте мне знать, если это просто ошибка, которая исчезнет при перезапуске.

...