我有一个包含上一步生成的图表的文件夹。它们都是PNG文件。我希望能够选择使用 Flexdashboard 的任何人并加载它。由于不需要闪亮或服务器服务,我尝试了 Crosstalk 包
library(crosstalk)
library(magrittr)
library(png)
df <- list.files("plots/", full.names = TRUE) %>%
as_tibble() %>%
magrittr::set_names("path")
shared_data <- SharedData$new(df, key = ~path)
p <- shared_data %>% readPNG(source = path)
bscols( filter_select(id = "file_id",
label = "CHOOSE",
sharedData = shared_data,
group = ~path),
p)
我遇到了一个非常简单的错误,我无法解决,因为所有路径都是从文件中正确读取的:
Error in path.expand(source) : invalid 'path' argument
也尝试使用 knitr:
bscols(filter_select("path", "CHOOSE", shared_data),
knitr::include_graphics(shared_data, ~path))
Error in makeGroupOptions(sharedData, group, allLevels) : argument "group" is missing, with no default
也许有一种更简单的方法,但串扰似乎是一种非常简单的方法,因为它不需要闪亮或任何其他组件,只需要一个数据框。