优化R Markdown中Plotly图表的离线依赖管理以减小HTML文件大小

library(plotly)
library(htmltools) # 用于处理HTML依赖

# 示例数据
data(hobbs, package="plotly") 

# 创建一个使用 partial_bundle() 的Plotly图表
plt <- plot_ly(type = "bar", data = hobbs, x = ~nms, y = ~r) %>% partial_bundle()
plt # 预览图表

# 检查图表的依赖项
# 通常 'plotly-basic' 是我们关注的第五个依赖项
invisible(lapply(1:length(plt$dependencies),
                 function(k) message(plt$dependencies[[k]]$name)))

# 查看 'plotly-basic' 依赖的详细信息
plotly_basic_dep <- plt$dependencies[[which(sapply(plt$dependencies, function(d) d$name == "plotly-basic"))]]
print(plotly_basic_dep)

# 示例输出片段 (您的临时路径会不同)
# $name          : chr "plotly-basic"
# $version       : chr "2.5.1"
# $src           :List of 2
#  ..$ href: chr "https://cdn.plot.ly"
#  ..$ file: chr "/var/folders/zp/rgt0rwln7xq132_rnrmhfb400000gn/T//RtmpFtB0bB"
# $script        : chr "plotly-basic-2.5.1.min.js"

# 获取临时文件路径和文件名
temp_file_path <- plotly_basic_dep$src$file
script_name <- plotly_basic_dep$script
full_temp_path <- file.path(temp_file_path, script_name)

# 目标存储位置：Plotly包的htmlwidgets/lib/plotlyjs子目录
# 这种方式将文件集成到Plotly包的内部结构中，对所有项目通用
plotly_lib_path <- system.file(package = "plotly", "htmlwidgets/lib/plotlyjs")

# 确保目标目录存在
if (!dir.exists(plotly_lib_path)) {
  dir.create(plotly_lib_path, recursive = TRUE)
}

# 复制文件
file.copy(from = full_temp_path, 
          to = file.path(plotly_lib_path, script_name), 
          overwrite = TRUE)

# 验证文件是否已复制
list.files(plotly_lib_path)

# 构建完整的CDN链接
cdn_link <- with(plotly_basic_dep, paste0(src$href, "/", script))

# 定义本地保存路径 (例如，在当前工作目录下的'www/plotlyjs'中)
local_save_dir <- "www/plotlyjs"
if (!dir.exists(local_save_dir)) {
  dir.create(local_save_dir, recursive = TRUE)
}
local_dest_file <- file.path(local_save_dir, script_name)

# 下载文件
download.file(url = cdn_link, destfile = local_dest_file)

# 验证文件是否下载
list.files(local_save_dir)

# 创建新的本地依赖对象 (针对存储在Plotly库中的情况)
local_pbund_lib <- htmltools::htmlDependency(
  name = plotly_basic_dep$name,
  version = plotly_basic_dep$version,
  src = "htmlwidgets/lib/plotlyjs", # 相对于plotly包根目录的路径
  script = plotly_basic_dep$script,
  package = "plotly" # 指定包名
)

# 替换图表中的依赖
# 找到 'plotly-basic' 依赖的索引
dep_index <- which(sapply(plt$dependencies, function(d) d$name == "plotly-basic"))
plt$dependencies[[dep_index]] <- local_pbund_lib

# 再次检查依赖，确认已更新
print(plt$dependencies[[dep_index]])

# 渲染图表，此时将使用本地依赖
plt

# 假设文件存储在当前RMD文件同级目录下的 'www/plotlyjs'
# local_save_dir <- "www/plotlyjs" # 从上一节获取

# 创建新的本地依赖对象 (针对存储在其他本地目录的情况)
local_pbund_other <- htmltools::htmlDependency(
  name = plotly_basic_dep$name,
  version = plotly_basic_dep$version,
  src = local_save_dir, # 指向本地目录的相对路径或绝对路径
  script = plotly_basic_dep$script,
  all_files = FALSE # 通常设为FALSE，除非您想包含整个目录
)

# 替换图表中的依赖
# 找到 'plotly-basic' 依赖的索引
dep_index <- which(sapply(plt$dependencies, function(d) d$name == "plotly-basic"))
plt$dependencies[[dep_index]] <- local_pbund_other

# 再次检查依赖，确认已更新
print(plt$dependencies[[dep_index]])

# 渲染图表，此时将使用本地依赖
plt

# R Markdown Chunk Options: eval=TRUE, include=TRUE
# 确保在R Markdown环境中运行，或在R脚本中运行一次以设置依赖

library(plotly)
library(htmltools)

# 1. 创建一个Plotly图表并触发 partial_bundle()，使其下载脚本到临时目录
data(hobbs, package="plotly") 
plt <- plot_ly(type = "bar", data = hobbs, x = ~nms, y = ~r) %>% partial_bundle()

# 2. 获取 'plotly-basic' 依赖的详细信息
plotly_basic_dep <- plt$dependencies[[which(sapply(plt$dependencies, function(d) d$name == "plotly-basic"))]]

# 3. 确定源文件和目标位置
temp_file_path <- plotly_basic_dep$src$file
script_name <- plotly_basic_dep$script
full_temp_path <- file.path(temp_file_path, script_name)

plotly_lib_path <- system.file(package = "plotly", "htmlwidgets/lib/plotlyjs")

# 4. 复制文件到Plotly库目录 (仅需运行一次，或当Plotly更新时)
if (!file.exists(file.path(plotly_lib_path, script_name))) {
  message("复制 ", script_name, " 到 Plotly 库目录...")
  if (!dir.exists(plotly_lib_path)) {
    dir.create(plotly_lib_path, recursive = TRUE)
  }
  file.copy(from = full_temp_path, 
            to = file.path(plotly_lib_path, script_name), 
            overwrite = TRUE)
  message("复制完成。")
} else {
  message(script_name, " 已存在于 Plotly 库目录。")
}

# 5. 创建新的本地依赖对象
local_pbund <- htmltools::htmlDependency(
  name = plotly_basic_dep$name,
  version = plotly_basic_dep$version,
  src = "htmlwidgets/lib/plotlyjs",                            
  script = plotly_basic_dep$script,
  package = "plotly" 
)

# 6. 替换图表中的依赖
dep_index <- which(sapply(plt$dependencies, function(d) d$name == "plotly-basic"))
plt$dependencies[[dep_index]] <- local_pbund

# 7. 显示图表
plt