Я пытаюсь создать блестящее приложение (NavbarPage) с n = 4 разными tabPanels. Все панели имеют (почти) одинаковую структуру, поэтому я решил использовать для этого модули. Чтобы сделать код многоразовым для других ...

0
Anni 19 Янв 2021 в 19:19

1 ответ

Лучший ответ

Если кому-то интересно, я нашел решение, которое заставляет программу работать, даже если она выглядит не очень элегантно.

Я изменил module / functmodul.R // optionServer следующим образом

 optionServer <- function(id) {
      moduleServer(
        id,
        function(input, output, session) {
          a<-as.numeric(id)
          opt1<-reactive({input[[option$id[1]]]})
          opt2<-reactive({input[[option$id[2]]]})
          opt3<-reactive({input[[option$id[3]]]})
          opt4<-reactive({input[[option$id[4]]]})
          return(
            list(
              opt1,
              opt2,
              opt3,
              opt4
            )
          )
        }
      )    
    }

А потом я попал в Server.R

optionSel<-optionServer(i) 

Вместо вызова функции ... поэтому я могу использовать optionSel [[1]], optionSel [[2]], ..., optionSel [[5]] в server.R для вызова возвращаемых значений

0
Anni 21 Янв 2021 в 22:02