В R выбор по умолчанию на моем selectInput удаляется после рендеринга Shiny App - PullRequest
Новая
       16

В R выбор по умолчанию на моем selectInput удаляется после рендеринга Shiny App

1 голос
/ 25 октября 2019

Я создал базовое приложение Shiny, используя RStudio. Я использую selectInput для фильтрации графиков на панели инструментов. Одна из созданных мной диаграмм работает нормально, и выбор по умолчанию сохраняется при загрузке приложения. Однако для моей другой диаграммы указанное значение по умолчанию кратковременно появляется при загрузке, но затем исчезает и оставляет диаграмму и selectInput пустыми, пока не будет выбран фильтр вручную. 

    fluidRow(
        column(6,
            sidebarPanel(
                selectInput("indication",
                            "Indication:",
                            choices = data1$indication,
                            selected = 1))),
        column(6,
               sidebarPanel(
                   selectInput("Practice_Id",
                               "Practice ID:",
                               choices = data2$Practice_Id,
                               selected = 1)))
# relevant output below

    output$riskBarPlot <- renderPlotly({

        risk_bar_filt <- risk_bar_data %>%
            filter(Practice_Id == input$Practice_Id)

        risk_bar <- ggplot(risk_bar_filt, aes(x = Indication, y = Brier_Score)) +
            geom_bar(aes(fill = Brier_Score, stat= "identity") +
        ggplotly(risk_bar, tooltip = c("x", "y"))
    })

Это второй вход в этом примере, который нене работает должным образом, я только что включил первый, чтобы показать, что он работает правильно и между ними нет существенных различий. Я также попытался изменить его на [selected = "значение, которое я хочу выбрать по умолчанию"], но это не устранило ошибку.

Изображение панели управления после загрузки:

Screenshot of the dashboard once loaded

Любая помощь в выборе по умолчанию появляется, когда загрузка приложения будет принята с благодарностью!

...