由于shiny模块是简单的函数，因此我将在开始时提供它们的源代码，并使用uiOutput显示不同的模块。
下面是一个总体思想的工作示例（示例模块代码引以为傲地从官方Shiny documentation中窃取）：

<mod1.R>

counterButton <- function(id, label = "Counter") {
   ns <- NS(id)
   tagList(
      actionButton(ns("button"), label = label),
      verbatimTextOutput(ns("out"))
   )
}

counterServer <- function(id) {
   moduleServer(
      id,
      function(input, output, session) {
         count <- reactiveVal(0)
         observeEvent(input$button, {
            count(count() + 1)
         })
         output$out <- renderText({
            count()
         })
         count
      }
   )
}

<mod2.R>

csvFileUI <- function(id, label = "CSV file") {
   ns <- NS(id)
   
   tagList(
      fileInput(ns("file"), label),
      checkboxInput(ns("heading"), "Has heading"),
      selectInput(ns("quote"), "Quote", c(
         "None" = "",
         "Double quote" = "\"",
         "Single quote" = "'"
      ))
   )
}

csvFileServer <- function(id, stringsAsFactors  = TRUE) {
   moduleServer(
      id,
      ## Below is the module function
      function(input, output, session) {
         # The selected file, if any
         userFile <- reactive({
            # If no file is selected, don't do anything
            validate(need(input$file, message = FALSE))
            input$file
         })
         
         # The user's data, parsed into a data frame
         dataframe <- reactive({
            read.csv(userFile()$datapath,
                     header = input$heading,
                     quote = input$quote,
                     stringsAsFactors = stringsAsFactors)
         })
         
         # We can run observers in here if we want to
         observe({
            msg <- sprintf("File %s was uploaded", userFile()$name)
            cat(msg, "\n")
         })
         
         # Return the reactive that yields the data frame
         return(dataframe)
      }
   )    
}

一米四分一秒

library(shiny)

source("mod1.R")
source("mod2.R")

my_mods <- list("Counter Button" = list(ui = counterButton,
                                        server = counterServer),
                "CSV Uploader" = list(ui = csvFileUI ,
                                      server = csvFileServer))

ui <- fluidPage(
   sidebarLayout(
      sidebarPanel(
         selectInput("mod_sel",
                     "Which Module should be loaded?",
                     names(my_mods))
      ),
      mainPanel(
         uiOutput("content"),
         verbatimTextOutput("out")
      )
   )
)

server <- function(input, output) {
   uuid <- 1
   handler <- reactiveVal()
   
   output$content <- renderUI({
      my_mods[[req(input$mod_sel)]]$ui(paste0("mod", uuid))
   })
   
   observeEvent(input$mod_sel, {
      handler(my_mods[[req(input$mod_sel)]]$server(paste0("mod", uuid)))
      uuid <<- uuid + 1
   })
   
   output$out <- renderPrint(req(handler())())
}

shinyApp(ui, server)

一些解释

1.您将模块代码放在mod[12].R中，它是相当直接的。
1.在你的主应用中，你加载了两个（!）源文件，出于管理的原因，我把两个模块函数（ui和server）放在一个list中，但这并不是严格必要的，但有利于未来的扩展。
1.在您的UI中，您有一个uiOutput，它根据选定的模块动态呈现。
1.在您的server中，您放置了动态呈现UI并调用相应服务器函数的代码。

1. uid结构基本上是用来强制一个新的渲染，无论你何时改变选择。否则，当你回到一个你已经渲染过的模块时，你可能仍然会看到一些旧的值。