Как я могу получить мой вывод для отображения в элементе box с renderUI и switch? - PullRequest
Новая
       6

Как я могу получить мой вывод для отображения в элементе box с renderUI и switch?

0 голосов
/ 10 февраля 2019

Я пытаюсь создать динамический интерфейс.В этом случае, когда пользователь выбирает имя Программы, в окне профессора будут отображаться только имена профессоров, которые преподают в этой программе.Исходя из программы, должен появиться вывод профессора ("prof").

Я попытался переименовать вещи, чтобы посмотреть, есть ли у меня предметы с двойным именем, но безрезультатно.Когда я запускаю приложение, появляется окно «Профессор», но оно не дает мне имен на основе фильтрации программы.Ошибка не генерируется.Я смотрел на это часами и не уверен, что мне не хватает чего-то такого простого ...

UI

tabItem (tabName = "dashboard", liquidRow (

selectInput("selectMode",label=h3("Select Mode"),
choices = c("Overall"="Overall")


),

box(width =3, solidHeader = T, background = "blue",

selectInput("selectProgram",label=h3("Select Program"),
choices = list( 
               "Social Work" = "SWO",
               "Nursing" ="NUR"))
               ),


uiOutput(outputId = 'course'),
uiOutput(outputId = 'prof')))

Сервер 

server <- function(input, output){

var <- reactive({
    switch(input$selectProgram, "Nursing" =  
    unique(
    indicators %>% filter(program=="NUR")%>%
        select(Professor)),

       "Social Work" = unique(indicators %>% 
       filter(program=="SWO")%>%select(Professor))
)
})

output$prof <- renderUI({
box(width =3, solidHeader = T, background = "blue",
selectInput("reactiveProfessor", "Select Professor", choices = 
var())
)
})

Я хочу, чтобы в окне «Профессор» отображались имена соответствующих профессоров в зависимости от выбора программы.

...