tidymodules 开源项目教程-优快云博客

本文链接：https://blog.youkuaiyun.com/gitblog_00813/article/details/148155059

tidymodules 开源项目教程

tidymodules An Object-Oriented approach to Shiny modules 项目地址: https://gitcode.com/gh_mirrors/ti/tidymodules

1. 项目介绍

tidymodules 是一个基于 R 语言的开源项目，旨在为 Shiny 模块的开发提供一种面向对象的编程方法。该项目利用 R6 类来实现模块化开发，引入了输入/输出端口的新模块接口，并配备了一套整洁的操作符来处理跨模块的通信。与传统的 Shiny 模块相比，tidymodules 提供了更灵活的编程风格、命名空间管理、模块通信和继承机制，以及灵活的用户会话管理。

2. 项目快速启动

首先，确保你已经安装了 R 和 RStudio。接下来，使用以下 R 代码安装 tidymodules 包：

library(devtools)
install_github("Novartis/tidymodules")

安装完成后，你可以通过以下命令快速启动一个示例：

tidymodules::showExamples(4)

这将在 RStudio 中展示四个示例应用。

3. 应用案例和最佳实践

3.1 简单加法示例

以下是一个简单的加法示例，展示了如何使用 tidymodules 创建一个 Shiny 应用：

library(tidymodules)

# 创建一个简单的模块
module("simple_addition", function(inputs, outputs) {
  output$sum <- renderText({
    inputs$a + inputs$b
  })
})

# 创建 Shiny UI
ui <- fluidPage(
  # 添加模块的 UI 元素
  moduleUI("simple_addition", id = "add_module"),
  textInput("a", "Enter first number:"),
  textInput("b", "Enter second number:"),
  textOutput("add_module_sum")
)

# 创建 Shiny 服务器逻辑
server <- function(input, output) {
  # 添加模块的服务器逻辑
  moduleServer("add_module", id = "add_module")
}

# 运行 Shiny 应用
shinyApp(ui = ui, server = server)

3.2 链接散点图示例

你可以创建一个模块，用于生成散点图，并将其他模块的输出作为输入：

# 创建一个用于生成散点图的模块
module("scatter_plot", function(inputs, outputs) {
  output$plot <- renderPlot({
    plot(inputs$x, inputs$y, main = "Scatter Plot")
  })
})

# 在 Shiny UI 和服务器逻辑中使用该模块
# ...

3.3 嵌套模块示例

tidymodules 支持模块的嵌套，允许创建更复杂的应用结构：

# 创建一个主模块
module("main_module", function(inputs, outputs) {
  # 在主模块中嵌套其他模块
  moduleServer("nested_module", id = "nested")
})

# 创建一个被嵌套的模块
module("nested_module", function(inputs, outputs) {
  # 嵌套模块的逻辑
})

# 在 Shiny UI 和服务器逻辑中使用主模块
# ...

3.4 模块通信示例

使用整洁的操作符，可以实现模块间的通信：

# 创建一个模块，它将输出传递给另一个模块
module("producer_module", function(inputs, outputs) {
  output$value <- reactive({
    # 产生一个值
    42
  })
})

# 创建一个模块，它消费另一个模块的输出
module("consumer_module", function(inputs, outputs) {
  output$consumer_text <- renderText({
    # 消费 producer_module 的输出
    inputs$producer_value
  })
})

# 在 Shiny UI 和服务器逻辑中使用这些模块
# ...