访问闪亮模块内的父命名空间

问题描述

我正在尝试对子模块内父命名空间中的selectInputupdateSelectInput进行updateSelectInput操作。在模块函数中，据我所知，我在名称空间内，因此我不能访问和更新来自父名称空间的selectInput。我如何解决此问题？

library(shiny)
library(shinydashboard)

moduleUI <- function(id) {
  ns <- NS(id)
  box(
    title=actionLink(ns("link"),"This is a link"),
    plotOutput(ns("plot"))
  )
}

module <- function(input, output,session,number) {
  output$plot <- renderPlot({
    plot(number)
  })

  observeEvent(input$link,{
    print(paste0("Number is: ",number))
    updateSelectInput(session,"selectInput",selected=number)  #Doesn't work
  })
}

ui <-
  dashboardPage(
    dashboardHeader(title="Title"),
    dashboardSidebar(
      selectInput("selectInput","Choose one option",choices=seq(1,10),selected=1)
    ),
    dashboardBody(
      moduleUI("5"),
      moduleUI("10")
    )
  )

server <- function(session,input, output) {
  callModule(module=module,id="5",5)
  callModule(module=module,id="10",10)
}

shinyApp(ui = ui, server = server)

推荐答案

花了我一些时间，但我找到了使子模块更新超级模块的方法。

SHILY设计为必须通过模块参数或返回值访问其他模块。我们不能在模块之间传递Widget ID，但可以传递父级的会话信息。

library(shiny)

moduleUI <- function(id) {
  ns <- NS(id)
  uiOutput(ns("my_link"))
}

module <- function(input, output, session, number, parent) {
  output$my_link <- renderUI({
    actionLink(session$ns("link"), paste0("This is a link to ", number))
  })

  observeEvent(input$link,{
    updateSelectInput(session = parent,"selectInput",selected = number)  ### use parent session
  })
}

ui <-  fluidPage(
    selectInput("selectInput","Choose one option",choices=seq(1,10),selected=1),
    moduleUI("5"),
    moduleUI("10")
)

server <- function(session,input, output) {
  callModule(module = module, id = "5", 5, parent = session) ### pass session information
  callModule(module = module, id = "10", 10, parent = session) ### pass session information
}

shinyApp(ui = ui, server = server)

特别注意：

• 我们在调用子模块时传递当前会话信息
• 我们在更新输入选择器时使用父会话

这篇关于访问闪亮模块内的父命名空间的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！