r - 如何在 Shiny 模块中使用 tagList()？

Question

官方tutorial by RStudio关于如何实际使用 tagList() 函数在 Shiny 模块中创建命名空间 ID 有点不清楚。 Shiny documentation也没有多大帮助。我到底应该在 tagList() 函数中放入什么？我应该只将输入参数包装在 tagList() 中，如所有示例和视频教程中所示，还是可以将其他元素放入其中，例如 sidebarPanel()？

Answer 1

tagList()只创建一个简单的标签列表。定义是

> tagList
function (...) 
{
    lst <- list(...)
    class(lst) <- c("shiny.tag.list", "list")
    return(lst)
}

这是一个具有特殊类的简单列表 shiny.tag.list .您在创建模块时使用它，模块的 UI 需要返回一个简单的页面，如 fluidPage如果您不想为模块创建额外的 UI，您只需返回包裹在 tagList 中的一些 UI 元素。并照顾模块外的 UI。例如:

library(shiny)

moduleUI <- function(id){
    ns <- NS(id)
    
    # return a list of tags
    tagList(h4("Select something"),
            selectInput(ns("select"), "Select here", choices=1:10))
  }

module <- function(input, output, session){}
  
ui <- shinyUI(
  fluidPage(wellPanel(moduleUI("module"))) # wrap everything that comes from the moduleUI in a wellPanel
)

server <- shinyServer(function(input, output, session){
  callModule(module, "module")
})

shinyApp(ui = ui, server = server)