ShinyモジュールでtagList（）を使用するにはどうすればよいですか？

Question

tutorial by RStudioは、Shinyモジュールで名前空間IDを作成するために実際にtagList（）関数を使用する方法が少し不明です。 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を作成したくない場合は、いくつかのUI要素をラップして返しますtagListの内部にあり、モジュールの外で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)