在 Shinydashboard 的侧边栏中上传数据后，如何自动导航到另一个侧边栏？

Question

您好 Shiny 仪表板专家，

以下 reprex 作品。 即一旦文件上传到侧边栏：mod1， 我们可以导航到侧边栏：mod2 并查看显示的上传数据。

下面是代码： 1. 模块与它的 UI 一起显示 2. 模块通过其 UI 读取数据 调用模块的服务器和 UI。

我们可以自动化吗？

即在侧边栏中上传数据后：mod1，

侧边栏：上传数据的用户应该可以看到 mod2。

library(shiny)
library(tidyverse)

# Module UI to read content
mod_readUI <- function(id) {
  ns <- shiny::NS(id)
  shiny::tagList(
    fileInput(ns("file1"), 
              h3("Choose xlsx file"),
              accept=c(".xlsx")),
    actionButton(ns("ref"), "Refresh")
  )
}

# Server modules of reading content
mod_read <- function(input, output, session){
  # Uploaded data as reactive element
  getData <- reactive({
    req(input$file1) # Ensure file is uploaded
    if(!is.null(input$file1)){
      my_data <- readxl::read_excel(input$file1$datapath)
      my_data
    }
    else{
      my_data <- "nothing" %>% as.data.frame()
      my_data
    }
  })

  ### In order to pass data as reactive elements to other module:
  # Created list
  reactive({
    # browser()
    list("excl" = getData())
  })
}

# Module UI to display content
mod_displayUI <- function(id) {
  ns <- shiny::NS(id)
  shiny::tagList(
    DT::dataTableOutput(ns("contents"))
  )
}

# Server functions
mod_display <- function(input, output, session, file) {
  output$contents <- DT::renderDataTable({
    req(file())
    DT::datatable(file()$excl,
                  options = list(pageLength = 7,scrollX = TRUE))
  })
}


ui <- 
  shinydashboard::dashboardPage(
    shinydashboard::dashboardHeader(),
    shinydashboard::dashboardSidebar(
      shinydashboard::sidebarMenu(id = "menu1",
                                  shinydashboard::menuItem('mod1',
                                                           tabName = 'mod1', 
                                                           icon = shiny::icon('file')),

                                  shinydashboard::menuItem('mod2',
                                                           tabName = 'mod2', 
                                                           icon = shiny::icon('file'))
      )),
    shinydashboard::dashboardBody(
      shinydashboard::tabItems(
        shinydashboard::tabItem("mod1",
                                mod_readUI("sidemod1")),
        shinydashboard::tabItem("mod2",
                                mod_displayUI("bodymod2")
        )
      )))

server <- function(input, output) {
  # storing mod_read in a variable
  readFile1 <- shiny::callModule(mod_read, "sidemod1")
  # passing the output of readFile into mod_display module
  displayFile <- shiny::callModule(mod_display, "bodymod2", file = readFile1)
}

shinyApp(ui,server)

Answer 1

我想您可以添加observe 以查看sidemod1-file1 input 何时不是NULL 或更改。发生这种情况时，您可以使用updateTabItems。请注意，您还需要将 session 作为 server 函数参数。

server <- function(input, output, session) {
  # storing mod_read in a variable
  readFile1 <- shiny::callModule(mod_read, "sidemod1")
  # passing the output of readFile into mod_display module
  displayFile <- shiny::callModule(mod_display, "bodymod2", file = readFile1)

  observe({
    req(input$`sidemod1-file1`)
    updateTabItems(session, "menu1", "mod2")
  })
}