模块内模块闪亮答案

【问题标题】：Module inside module shiny模块内模块闪亮
【发布时间】：2021-07-17 01:49:51
【问题描述】：

我正在尝试从模块内部调用模块并且遇到了一些问题。

第一个代码正在运行，它显示了一个带有一个按钮的应用程序，该按钮创建了一个弹出窗口。弹出窗口内是一个绘图和一个滑块输入。弹出图是在它自己的模块中定义的。

library(shiny)
library(shinyWidgets)

uiForModal <<- function(id) {
  ns <- NS(id)
    tagList(
        fluidRow(
            plotOutput(outputId = ns("plot")),
            sliderInput(
                inputId =ns( "clusters"),
                label = "Number of clusters",
                min = 2, max = 6, value = 3, width = "100%"
            )
        )
    )   
}

serverForModal <<- function(input, output, session) {
    output$plot <- renderPlot({
        print(head(iris))
        plot(Sepal.Width ~ Sepal.Length,
            data = iris, col = Species,
            pch = 20, cex = 2)
        points(kmeans(iris[, 1:2], input$clusters)$centers,
            pch = 4, cex = 4, lwd = 4)
    })
}

ui <- fluidPage(
  actionButton("showPlot", "showPlot")
)

server <- function(input, output){
    observeEvent(input$showPlot, {
        show_alert(
            title = "Some Title",
            text = tags$div(
                uiForModal("test1")
            ),
            html = TRUE,
            width = "80%"
        )
    })
    callModule(serverForModal, "test1")
}
runApp(shinyApp(ui, server))

当我尝试将按钮放在它自己的模块中时，就会出现问题。下面的代码是我失败的尝试。我认为问题与命名空间有关。在下面的代码中，按钮使用弹出窗口和滑块调用 UI，但绘图不显示。所以我认为问题出在情节的服务器命名空间中。有人可以帮帮我吗？


library(shiny)
library(shinyWidgets)

uiForModal <<- function(id) {
    print(id)
    ns <- NS(id)
    print(ns("plot"))
    tagList(
        fluidRow(
            plotOutput(outputId = ns("plot")),
            sliderInput(
                inputId =ns( "clusters"),
                label = "Number of clusters",
                min = 2, max = 6, value = 3, width = "100%"
            )
        )
    )   
}

serverForModal <<- function(input, output, session) {
    output$plot <- renderPlot({
        print(head(iris))
        plot(Sepal.Width ~ Sepal.Length,
            data = iris, col = Species,
            pch = 20, cex = 2)
        points(kmeans(iris[, 1:2], input$clusters)$centers,
            pch = 4, cex = 4, lwd = 4)
    })
}

uiForButton <<- function(id) {
    ns <- NS(id)
    tagList(
        fluidRow(
            actionButton(ns("showPlot"), "showPlot")
        )
    )
}

serverForButton <<- function(input, output, session, ns) {
    observeEvent(input$showPlot, {
        show_alert(
            title = "Some Title",
            text = tags$div(
                uiForModal(ns("test2"))
            ),
            html = TRUE,
            width = "80%"
        )
    })
    callModule(serverForModal, ns("test2"))
}

ui <- fluidPage(
    uiForButton("test1")
)
server <- function(input, output){
    callModule(serverForButton, "test1", NS("test1"))
}
    
runApp(shinyApp(ui, server))

【问题讨论】：

标签： r shiny

【解决方案1】：

改变

callModule(serverForModal, ns("test2"))

到

callModule(serverForModal, "test2")

【讨论】：

模块服务器函数中一般不需要使用ns()。详情请见here；检查嵌套模块部分。