如何高效在R Shiny模态对话框中实现响应式文本导入？

方案1：响应式读取外部文件（完全可实现） #

你完全可以在用户点击按钮时再加载本地存储的文本内容，不用把所有文本硬编码在主程序中：

• 若使用Word文件存储文本，可以用officer包读取docx内容，提取文本后渲染到模态框中
• 更推荐使用Markdown/纯文本格式存储说明内容，解析更简单，也可以直接保留排版格式

读取Word文件的示例代码：

# 提前安装加载officer包
library(officer)
observeEvent(input$explain1, {
  # 点击按钮时才读取同目录下的说明文件
  doc <- read_docx("gettysburg_desc.docx")
  doc_content <- docx_summary(doc)$text
  # 处理成需要的HTML格式后传入模态框
  showModal(modalDialog(
    title = "葛底斯堡演说背景及全文",
    HTML(paste(doc_content, collapse = "<br>"))
  ))
})

如果使用Markdown文件存储内容，还能直接保留列表、加粗等排版格式，使用更简便：

library(markdown)
observeEvent(input$explain1, {
  md_content <- includeMarkdown("gettysburg_desc.md")
  showModal(modalDialog(
    title = "葛底斯堡演说背景及全文",
    md_content
  ))
})

方案2：文本模块化拆分（不依赖外部文件的轻量化方案） #

如果不想额外管理多份文档，也可以把长文本抽离到主程序的UI/Server逻辑之外，大幅提升主代码可读性：

1. 新建单独的R脚本比如modal_contents.R，专门存储所有模态框的文本内容，示例：

# modal_contents.R 文件内容
get_gettysburg_modal <- function(){
  return(
    list(
      title = "葛底斯堡演说背景及全文",
      content = tagList(
        tags$ul(
          tags$li("葛底斯堡演说是亚伯拉罕·林肯在宾夕法尼亚州葛底斯堡国家公墓揭幕式上发表的演讲"),
          tags$li("发表于1863年11月19日下午"),
          tags$li("当时距离联邦军队在葛底斯堡战役击败南方邦联军队已经过去四个半月"),
          tags$li("是美国历史上最知名的演讲之一")
        ),
        tags$p(strong("演讲全文：")),
        "八十七年前，我们的先辈在这个大陆上建立了一个新的国家，它孕育于自由之中，奉行一切人生来平等的原则。",tags$p(""),
        "现在我们正从事一场伟大的内战，以考验这个国家，或者任何一个孕育于自由和奉行上述原则的国家是否能够长久存在下去。我们在这场战争中的一个伟大战场上集会。烈士们为使这个国家能够生存下去而献出了自己的生命，我们来到这里，是要把这个战场的一部分奉献给他们作为最后安息之所。我们这样做是完全应该而且非常恰当的。",tags$p(""),
        tags$p(""),
        "但是，从更广泛的意义上来说，这块土地我们不能够奉献，不能够圣化，不能够神化。那些曾在这里战斗过的勇士们，活着的和去世的，已经把这块土地圣化了，这远不是我们微薄的力量所能增减的。我们今天在这里所说的话，全世界不大会注意，也不会长久地记住，但勇士们在这里所做过的事，全世界却永远不会忘记。毋宁说，倒是我们这些还活着的人，应该在这里把自己奉献于勇士们已经如此崇高地向前推进但尚未完成的事业。倒是我们应该在这里把自己奉献于仍然留在我们面前的伟大任务——我们要从这些光荣的死者身上汲取更多的献身精神，来完成他们已经完全彻底为之献身的事业；我们要在这里下定最大的决心，不让这些死者白白牺牲；我们要使国家在上帝福佑下得到自由的新生，要使这个民有、民治、民享的政府永世长存。"
      )
    )
  )
}

2. 在主程序开头用source("modal_contents.R")导入这个脚本，Server部分的代码就可以简化为：

server <- function(input, output) {
  observeEvent(input$explain1, {
    modal_data <- get_gettysburg_modal()
    showModal(modalDialog(
      title = modal_data$title,
      modal_data$content
    ))
  })
}

这种方案下主程序逻辑非常简洁，所有文本内容统一在modal_contents.R里管理，修改内容也不用动主逻辑代码。

内容的提问来源于stack exchange，提问作者Curious Jorge - user9788072