在Shiny中将超链接添加到传单弹出窗口的方法

library(shiny)

ui <- fluidPage(
  actionButton("showPopup", "显示传单"),
  
  # 定义弹出窗口
  modalDialog(
    title = "传单",
    "这是一份传单，包含了一些超链接。",
    footer = tagList(
      actionButton("closePopup", "关闭")
    )
  )
)

server <- function(input, output, session) {
  observeEvent(input$showPopup, {
    showModal(modalDialogOutput("popup"))
  })
  
  output$popup <- renderModal({
    modalDialog(
      title = "传单",
      "这是一份传单，包含了一些超链接。",
      tags$a("点击这里查看更多信息", href = "https://www.example.com"),
      footer = tagList(
        actionButton("closePopup", "关闭")
      )
    )
  })
  
  observeEvent(input$closePopup, {
    removeModal()
  })
}

shinyApp(ui, server)