如何从第一个模块中传递选择的闪亮模块中调用闪亮模块？作为一个例子，我编写了一个应用程序来在 DT::data 表（模块StarWars）中显示来自dplyr 的星球大战主题。来自同一数据集的相关电影应显示在另一个子选项卡（模块电影）中的另一个 DT::data 表中。我通过在从模块的反应性值sw_rows_selected_rct表选择的受试者星球大战到模块薄膜，但在模块浏览器（）语句薄膜不通过。
# Test call of modules inside modules
library(tidyverse)
#' Shiny StarWars module
#'
ui_Films <-
function(id,
title = id,
...,
value = title,
icon = NULL) {
ns <- shiny::NS(id)
tab <- tabPanel(title,
h4("StarWars Films"),
DT::dataTableOutput(outputId = ns("Films")))
}
ui_StarWars <-
function(id,
title = id,
...,
value = title,
icon = NULL) {
ns <- shiny::NS(id)
tab <- tabPanel(title,
DT::dataTableOutput(outputId = ns("StarWars")),
tabsetPanel(ui_Films(
id …