シャイニーモジュールのrenderUI（）でlapply（）を使用

Question

コードの一部をシャイニーモジュールに変換しようとしていますが、lapply()で生成されたrenderPlot()関数が機能していないようです。私はこの問題を示すために以下の簡単な例を作成しました。

（注：ここで私はrenderText()呼び出しを使用してんだけど、同じ動作が適用されます）

app_normal.R：

library(shiny) 

ui <- fixedPage(
    h2("Normal example"), 
    uiOutput("test") 
) 

server <- function(input, output, session) { 
    output$test <- renderUI({ 
    lapply(1:3, function(val) { 
     fluidRow(column(12,renderText(paste("Line", val)))) 
    }) 
    }) 
} 

shinyApp(ui, server) 

app_module.R：

library(shiny) 

myModuleUI <- function(id) { 
    ns <- NS(id) 
    uiOutput(ns("test")) 
} 

myModule <- function(input, output, session) { 
    output$test <- renderUI({ 
    lapply(1:3, function(val) { 
     fluidRow(column(12,renderText(paste("Line", val)))) 
    }) 
    }) 
} 

ui <- fixedPage(
    h2("Module example"), 
    myModuleUI("test_module") 
) 

server <- function(input, output, session) { 
    callModule(myModule, "test_module") 
} 

shinyApp(ui, server) 

div要素はすべて作成されていますが、プロット/テキストは含まれていません。 Shiny renderText()またはrenderPlot()の機能をモジュール内でrenderUI()/lapply()コール内で正しく使用するにはどうすればよいですか？

Answer 1

私がrenderText()とrenderPlot()を使用して取っていたアプローチは、通常の場合、すなわちシャイニーモジュール内で動作していないときにはうまく機能するように見えます。renderUI() Shinyは自動的に必要なtextOutput()またはplotOutput()を呼び出してHTMLを生成します。シャイニーモジュール内で同じ操作を実行しているときに、この自動リンクがどのように壊れているか。これはoutputIdをoutputPlot()またはoutputText()への呼び出しで手動で割り当てたときにns()コールが導入されたために、outputリスト内のアイテムの割り当てと参照の不一致によるものと思われます。成功した光沢のあるモジュール内renderUIを使用するには

、あなたは別にtextOutput()とrenderText()を呼び出す必要があります：renderUI()でlapply()でtextOutput、そしてlapply()でrenderText()observe()に。これにより、textOutput()コールのoutputIdの生成にns()を導入することができます。

以下、この2つの呼び出しのデテンシャングを示すapp_normal.Rとapp_module.Rの両方のリファクタリングを示しました。

app_normal_observe.R：

library(shiny) 

ui <- fixedPage(
    h2("Normal example"), 
    uiOutput("test") 
) 

server <- function(input, output, session) { 
    output$test <- renderUI({ 
    lapply(1:3, function(val) { 
     fluidRow(column(12,textOutput(paste0("line_", val)))) 
    }) 
    }) 

    observe({ 
    lapply(1:3, function(val) { 
     output[[paste0("line_", val)]] <- renderText(paste("Line", val)) 
    }) 
    }) 
} 

shinyApp(ui, server) 

app_module_observe.R：

library(shiny) 

myModuleUI <- function(id) { 
    ns <- NS(id) 
    uiOutput(ns("test")) 
} 

myModule <- function(input, output, session) { 
    output$test <- renderUI({ 
    lapply(1:3, function(val) { 
     fluidRow(column(12,textOutput(session$ns(paste0("line_", val))))) 
    }) 
    }) 

    observe({ 
    lapply(1:3, function(val) { 
     output[[paste0("line_", val)]] <- renderText(paste("Line", val)) 
    }) 
    }) 
} 

ui <- fixedPage(
    h2("Module example"), 
    myModuleUI("test_module") 
) 

server <- function(input, output, session) { 
    callModule(myModule, "test_module") 
} 

shinyApp(ui, server)