我正在尝试在类"闪亮标签列表"的对象中创建带有弹性仪表板元素的 html 小部件。预期输出:保存在本地驱动器中的html文件。 实际输出
Error : Error in system.file(config, package = package) : 'package' must be of length 1
下面是代码的最小化版本:
library(flexdashboard)
library(htmlwidgets)
library(htmltools)
myflex1<- gauge(1.5, min = 0, max = 5, symbol = '', gaugeSectors(success = c(0, 2),warning = c(2,3.5 ),danger = c(3.5, 5)))
myflex<- browsable(tagList
(list(tags$div(
style = 'position: absolute;
left: 100px;top: 350px;display:block',
myflex1
))))
htmlwidgets::saveWidget(myflex, "myflex.html")
问题是您正在尝试在不是小部件的东西上使用htmlwidgets::saveWidget
。 您应该改用htmltools::save_html
;它知道如何编写闪亮的标签列表:
htmltools::save_html(myflex, "myflex.html")
请注意,它不会创建一个自包含页面;它会将 Javascript 库列表写入子目录(默认名称 "lib"
)。 如果你想要一些自包含的东西,你应该能够使用以下代码:
cat(repr::repr_html(myflex), file = "myflex.html")
但我不确定这是它的用途,所以你可能会发现问题。