如何在R Shiny的renderUI中将数据框列值渲染为HTML？

根据需求，我们需要根据数据框列的行数动态调整渲染内容：当仅1行时显示该行内容，2行及以上时显示所有行。以下是修改后的可行代码：

library(shiny)
library(tidyverse)

# 测试用数据，可修改行数验证效果
dat <- data.frame(x = c("line 1", "line 2", "line 3"))
# dat <- data.frame(x = c("line 1")) # 测试单行情况

ui <- fluidPage(
    uiOutput("lines")
)

server <- function(input, output) {
  output$lines <- renderUI({
    # 获取数据列的长度
    line_count <- length(dat$x)
    
    div(
      h2("Lines: "),
      # 根据行数判断渲染内容
      if(line_count == 1){
        p(dat$x[1])
      } else {
        # 遍历所有行，生成对应的HTML段落元素
        lapply(dat$x, function(line_content){
          p(line_content)
        })
      }
    )
  })
}

shinyApp(ui = ui, server = server)

核心逻辑说明 #

• 先通过length(dat$x)获取数据列的行数，以此作为判断依据
• 单行时直接渲染该行的内容为<p>标签元素
• 多行时用lapply遍历每一行内容，为每行生成独立的<p>标签，Shiny会自动将这些元素组合到UI中

你可以切换测试不同行数的dat来验证效果：当只有1行时，页面仅显示"line 1"；当有2行及以上时，所有行内容都会被渲染出来。

内容的提问来源于stack exchange，提问作者anorlondo