闪亮模块中的动态输入

Question

在使用闪亮的模块时，我很难制作一个动态的selectInput()。

我有以下应用程序(没有模块)：

library(shiny)

ui <- fluidPage(
    numericInput("n", "n", 10),
    uiOutput("select"),
    uiOutput("res")
)

server <- function(input, output, session) {
  output$select <- renderUI(
    selectInput("sample_size", "Sample size", choices = 1:input$n)
  )
  output$res <- renderUI(
    renderPrint(rnorm(input$sample_size))
  )
}

shinyApp(ui, server)

我不知道如何正确使用名称空间时，模块化这个应用程序。我目前的尝试如下：

library(shiny)

sampleUI <- function(id){
  ns <- NS(id)
  fluidPage(
    numericInput("n", "n", 10),
    uiOutput(ns("select")), 
    uiOutput("res")
  )
}

sampleServer <- function(input, output, session) {
  output$select <- renderUI(
    selectInput("sample-size", "Sample size", choices = 1:input$n)
  )
  output$res <- renderUI(
    renderPrint(rnorm(input$sample_size))
  )
}

ui <- fluidPage(
  sampleUI("mod1")
)

server <- function(input, output, session) {
  callModule(sampleServer, "mod1")
}

shinyApp(ui, server)

Answer 1

在服务器模块中创建新ID时，请始终在ID周围使用session$ns。还修正了UI函数中的错误和ns()：

library(shiny)

sampleUI <- function(id){
  ns <- NS(id)
  fluidPage(
    numericInput(ns("n"), "n", 10),
    uiOutput(ns("select")), 
    uiOutput("res")
  )
}

sampleServer <- function(input, output, session) {
  output$select <- renderUI(
    selectInput(session$ns("sample_size"), "Sample size", choices = 1:input$n)
  )
  output$res <- renderUI(
    renderPrint(rnorm(input$sample_size))
  )
}

ui <- fluidPage(
  sampleUI("mod1")
)

server <- function(input, output, session) {
  callModule(sampleServer, "mod1")
}

shinyApp(ui, server)