获取在闪亮模块中创建的Dynamicallu的输入值

Question

我创建了一个闪亮的应用程序，可以正常工作，但是我的下一步是创建一个模块，该模块允许与我合作的其他人创建执行此操作的应用程序，而无需完全重写代码。

主要的更改将是关于作为输入的数字参数的数量。 我的目标是创建一个模块，该模块作为输入，是参数名称的列表以及其标签列表，以创建具有这些名称和标签的数字输入。 困难是有一个数字输入为每个参数生成多个输入。 我已经成功地创建了UI部分，但是我无法访问模块中的这些输入，以将它们用于我的模块的下一部分。

到目前为止，我最好的尝试是：

library(shiny)
#example of list of names and labels that will be written by my colleagues
names_list <- c ("alpha","beta","gamma","delta")
labels_list <- c ("\\(\\alpha\\)","\\(\\beta\\)","\\(\\gamma\\)","\\(\\delta\\)")

parametresUI <-function(id){
  ns <-NS(id)
  tagList(fluidRow(numericInput(ns("nb"),label="number of steps",value=2,min=0)),
          fluidRow(uiOutput(ns("parametres"))),
          fluidRow(verbatimTextOutput(ns("value"))))
}

parametresServer <- function(id,names_list,labels_list){
  moduleServer(id, function(input, output, session) {
    ns <- session$ns
    output$parametres <-renderUI({
      number_list<-as.list(1:input$nb)
      div(class = "dynamicSI",
          lapply(1:length(names_list),function(j){
            lapply(number_list, function(i) {
              fluidRow(column(3,
                              withMathJax(numericInput(inputId=paste0(names_list[j], i), label = paste0(labels_list[j], i),value=0,min=0)
                              )),
                       column(3,
                              withMathJax(numericInput(inputId=paste0("varia",names_list[j], i), label = paste0("\\(\\sigma\\)(",labels_list[j], i,")"),value=0,min=0)
                              )),
              )
            })
          })
      )
    })
    #test to see if I can access value of one numeric input : doesn't work
    output$value<-renderText({
      value <- input$alpha1
      #or
      #value <- input[[paste0(names_list[1],1)]]
      value
    })
  })
}

ui <- fluidPage(
  parametresUI("test"),
)

server <- function(input, output, session) {
  parametresServer("test",names_list = names_list ,labels_list = labels_list)
}
shinyApp(ui, server)

该模块应该使用输入来创建模拟，但我只是展示了一个未能显示一个值

Answer 1

您只是缺少命名空间ns。尝试一下

parametresServer <- function(id,names_list,labels_list){
  moduleServer(id, function(input, output, session) {
    ns <- session$ns
    output$parametres <-renderUI({
      number_list<-as.list(1:input$nb)
      div(class = "dynamicSI",
          lapply(1:length(names_list),function(j){
            lapply(number_list, function(i) {
              fluidRow(column(3,
                              withMathJax(numericInput(inputId=ns(paste0(names_list[j], i)), label = paste0(labels_list[j], i),value=9,min=0)
                              )),
                       column(3,
                              withMathJax(numericInput(inputId=ns(paste0("varia",names_list[j], i)), label = paste0("\\(\\sigma\\)(",labels_list[j], i,")"),value=0,min=0)
                              )),
              )
            })
          })
      )
    })
    #test to see if I can access value of one numeric input : doesn't work
    output$value<-renderText({
      value <- input$alpha1
      #or
      #value <- input[[paste0(names_list[1],1)]]
      value
    })
  })
}