如何修改htmlwidgets::saveWidget生成页面body的默认padding 40px样式

问题原因 #

你在htmltools::save_html源码里找不到相关样式定义是对的，这个padding:40px是htmlwidgets::saveWidget内置的默认HTML模板里预设的，和htmltools的保存函数无关。
下面是三种可行的修改方案： #

方案1：自定义HTML模板（适合长期复用场景）

你可以自行编写符合需求的HTML模板，调用saveWidget时通过template参数传入即可。

1. 新建一个custom_html_template.html文件，内容参考如下，可自行修改body的style属性值：

<!DOCTYPE html>
<html>
<head>
  <meta charset="UTF-8">
  <title>{{title}}</title>
  {{{html_dependencies}}}
</head>
<body style="margin: 9px; padding: 0;">
  {{{content}}}
</body>
</html>

2. 保存widget时指定模板：

htmlwidgets::saveWidget(
  widget = reactable(iris),
  file = "iris_table.html",
  template = "custom_html_template.html"
)

方案2：生成后直接替换HTML内容（适合临时调整场景）

不需要额外创建模板文件，直接在R中读取生成的HTML，替换对应样式后回写即可：

# 先正常生成HTML文件
htmlwidgets::saveWidget(reactable(iris), file = "iris_table.html")

# 读取文件内容
html_content <- readLines("iris_table.html", encoding = "UTF-8")

# 替换padding数值，可改成你需要的任意值
html_content <- gsub("padding: 40px;", "padding: 0;", html_content, fixed = TRUE)

# 回写文件
writeLines(html_content, "iris_table.html", useBytes = TRUE)

方案3：直接插入优先级更高的CSS（代码无额外依赖）

在widget对象前插入覆盖body样式的CSS，不需要修改文件或模板：

library(htmltools)
library(reactable)

# 封装带自定义样式的widget
custom_widget <- tagList(
  tags$style("body {padding: 0 !important;}"),
  reactable(iris)
)

# 保存为HTML
htmlwidgets::saveWidget(as_widget(custom_widget), file = "iris_table.html")

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