如何在 Shiny 应用程序中实现模块间的通信？

最编程 2024-08-08 09:46:29

...

想实现在页面1上点击按钮，跳转到页面2，每个页面作为一个module。

错误的写法：

模块之间的变量不共享，无法达到预期目的。
app.R

library(shiny)

source("page1.R")
source("page2.R")

ui <- navbarPage(
  title = "test",
  id = "test",
  ui.page1(0),
  ui.page2(0)
)

server <- function(input, output, session) {
  s1 <- server.page1(0)
}
shinyApp(ui = ui, server = server)

page1.R

ui.page1 <- function(id) {
  ns <- NS(id)
  tabPanel(
    title = "page1",
    value ="page1",
    actionButton(inputId = ns("jt2"),label = "Jump to page 2")
  )}

server.page1 <-  function(id) {
  moduleServer(id,function(input, output, session) {
    observeEvent(input$jt2, {
      updateNavbarPage(session, inputId = "test", selected = "page2")
    }
    )
    }
    )
  }

page2.R

ui.page2 <- function(id) {
  ns <- NS(id)
  tabPanel(
    title = "page2",
    value = "page2",
    tags$h1("Here is page 2.")
  )}

正确写法

app.R

library(shiny)

source("page1.R")
source("page2.R")

ui <- navbarPage(
  title = "test",
  id = "test",
  ui.page1(0),
  ui.page2(0)
)

server <- function(input, output, session) {
  s1 <- server.page1(0)
  observeEvent(s1$jt2(), {
    updateNavbarPage(session, inputId = "test", selected = "page2")
  })
}

shinyApp(ui = ui, server = server)

page1.R

ui.page1 <- function(id) {
  ns <- NS(id)
  tabPanel(
    title = "page1",
    value = "page1",
    actionButton(inputId = ns("jt2"),label = "Jump to page 2")
    )}

server.page1 <-  function(id) {
  moduleServer(id,module = function(input, output, session) {
    return(list(jt2 = reactive({input$jt2})))
  }
  )
  }

page2

ui.page2 <- function(id) {
  ns <- NS(id)
  tabPanel(
    title = "page2",
    value = "page2",
    tags$h1("Here is page 2.")
    )}

当然我这个navbarPage直接点击上面导航栏就可以跳转，做按钮是多余的，只是为了示例。

上一篇：使用jQuery在JavaScript中进行页面跳转和传值

下一篇：点击前端按钮实现页面跳转