无需Shiny？在网站嵌入Plotly(R)图表并通过API缓存更新

不用Shiny完全可行，两种核心路径 #

路径1：定时生成静态HTML（适合github.io这类静态网站） #

• 用R的memoise包实现API缓存：给你的API请求函数加缓存，设置expire_after = 60，确保每分钟最多调用一次API。示例逻辑：

  library(memoise)
  library(plotly)
  library(htmlwidgets)
  
  # 带缓存的API请求函数
  fetch_data <- memoise(function() {
    # 你的API请求代码
    response <- httr::GET("你的API地址")
    data <- httr::content(response)
    return(data)
  }, cache = cache_filesystem("./api_cache"), expire_after = 60)
  
  # 生成图表并保存为HTML
  data <- fetch_data()
  p <- plot_ly(data, x = ~category, y = ~value, type = "bar")
  saveWidget(p, "plotly_bar.html", selfcontained = FALSE)
  

• 用系统任务调度（Windows任务计划、Linux cron）每分钟跑一次这个R脚本，更新HTML文件
• 把生成的plotly_bar.html嵌入网站：用iframe标签，或者直接把HTML里的JS/CSS代码插入你的页面
• 优势：完全依赖你熟悉的R/Plotly工具链，无需额外学习；适合静态网站部署
• 注意：如果API需要密钥，把密钥存在R的环境变量里（用Sys.setenv(API_KEY="xxx")），不要硬编码在脚本里

路径2：前端JS驱动（适合需要用户端触发更新的场景） #

• 用R生成Plotly的基础配置（布局、样式），导出为JSON：

  p <- plot_ly(type = "bar", layout = list(title = "API数据条形图"))
  plotly_json(p, pretty = TRUE)
  

• 前端用JS写API请求，用localStorage做客户端缓存，设置60秒过期时间，拿到数据后更新Plotly图表
• 优势：用户访问时直接从API拉取最新缓存数据；缺点：需要掌握基础JS，且API密钥不能暴露在前端（若需密钥，得加后端代理，反而麻烦）

Shiny方案的优势（你提到的简便路径） #

• 用Shiny的cachem包或者memoise实现API缓存，无需自己搞任务调度：

  library(shiny)
  library(plotly)
  library(cachem)
  
  # 创建缓存对象，60秒过期
  api_cache <- cachem::cache_mem(expire_after = 60)
  
  ui <- fluidPage(
    plotlyOutput("bar_plot")
  )
  
  server <- function(input, output) {
    fetch_data <- reactive({
      api_cache$get("api_data", function() {
        # 你的API请求代码
        httr::GET("你的API地址") %>% httr::content()
      })
    })
  
    output$bar_plot <- renderPlotly({
      data <- fetch_data()
      plot_ly(data, x = ~category, y = ~value, type = "bar")
    })
  }
  
  shinyApp(ui, server)
  

• 部署Shiny app到shinyapps.io或者自己的服务器，然后用iframe嵌入你的网站
• 优势：自动处理缓存刷新，无需手动设置任务调度；API密钥可以存在部署平台的环境变量里，更安全；支持后续扩展交互功能（虽然你现在不需要）
• 注意：免费版shinyapps.io有额度限制，若访问量较大可能需要付费

必注意的核心要点 #

• 缓存有效性：不管用哪种方案，一定要测试缓存是否真的限制了每分钟一次API调用，避免触发API的限流机制
• API安全：绝对不要把API密钥暴露在前端代码或静态HTML里，用环境变量或部署平台的保密配置存储
• 容错机制：API请求失败时，要显示缓存的旧数据或错误提示，不要让图表空白（比如在R脚本里加tryCatch，Shiny里加req()或validate()）
• 性能优化：静态HTML可以用htmlwidgets::saveWidget(..., selfcontained = FALSE)减少文件大小，Shiny app可以开启gzip压缩

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