了解r闪亮模块：Shiny :: NS（ID）中的错误缺少，没有默认

Question

我试图理解闪亮模块的概念。我正在尝试模块化这个非常简单的ShinyDashboard应用程序：

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(uiOutput("box"))
)

server <- function(input, output, session) {
  output$box <- renderValueBox({
    valueBox(
      subtitle = "Hi",
      value = 2
    )
  })
}

shinyApp(ui, server)

它可以根据需要起作用。

但是，当模块化时，我会遇到以下错误： Shiny :: NS（ID）中的错误缺少参数“ ID”，没有默认值。

#### Modules ####
costumizedValueBox <- function(id) {
  ns <- shiny::NS(id)
  uiOutput(ns("box"))
}

costumizedValueBoxServer <- function(id) {
  moduleServer(
    id,
    function(input, output, session) {
      output$box <- renderValueBox({
        valueBox(
          subtitle = "Hi",
          value = 2
        )
      })
    }
  )
}

#### App ####
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(costumizedValueBox())
)

server <- function(input, output, session) {
  costumizedValueBoxServer()
}

shinyApp(ui, server)

我尝试过对模块化代码的不同修改，例如，例如更改输出（toxtOutput）或常规设置。错误消息暗示了ns函数的问题，但我无法弄清楚。

谢谢！

Answer 1

这就是@limey在评论中描述的内容：要详细学习请参阅此处。 rstudio.com/articles/modules.html

library(shiny)

#### Modules ####
costumizedValueBox <- function(id, label = "ValueBox_custom") {
  ns <- shiny::NS(id)
  uiOutput(ns("box"))
}

costumizedValueBoxServer <- function(id) {
  moduleServer(
    id,
    function(input, output, session) {
      output$box <- renderValueBox({
        valueBox(
          subtitle = "Hi",
          value = 2
        )
      })
    }
  )
}

#### App ####
ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(costumizedValueBox("ValueBox_custom1"))
)

server <- function(input, output, session) {
  costumizedValueBoxServer("ValueBox_custom1")
}

shinyApp(ui, server)

Answer 2

模块（即CostumizedValueboxserver和CodumizedValuebox）是具有所需参数的函数。

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(costumizedValueBox("my_id")) # pass in an ID
)

server <- function(input, output, session) {
  costumizedValueBoxServer("my_id") # pass in the same ID
}

Answer 3

是的，只是当您调用模块时，请确保用引号为其分配ID。工作做得很好，我也一直在学习这一点。确保您的ID与应用程序的服务器和UI段中的模块匹配。
这是您可能已经看到的YouTube链接，但是时间戳显示了我在说什么。

https://www.youtube.com/watch?v=OoyahSpxlvs

  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(costumizedValueBox("VBox_id_1")) # pass in an ID
)

server <- function(input, output, session) {
  costumizedValueBoxServer("VBox_id_1") # pass in the same ID
}```