R闪亮导入传单html小部件对象

Question

我有一个传单图，已导出为 .rds 文件。 我现在如何在闪亮的应用程序中输出此图？ 下面是我尝试过的最小示例代码，当前给出“警告：FUN 中的错误：参数不是字符向量 [没有可用的堆栈跟踪]”

library(shiny)
shinyUI<-fluidPage(mainPanel(
uiOutput("test")
)
)
shinyServer<-function(input,output){
output$test<-renderUI(readRDS("./Plots/LeafletPlot.rds"))
}
shinyApp(shinyUI,shinyServer)

请注意，我也尝试过使用 renderLeaflet 和 leafletOutput 但无济于事。 从控制台运行 readRDS("./Plots/LeafletPlot.rds") 确实可以毫无问题地加载传单地图。

Answer 1

# Create your object 
library(leaflet)

map <- leaflet::leaflet() %>%
  leaflet::addProviderTiles(providers$OpenStreetMap)

saveRDS(object = map, file = "map.rds")

# Read it at the beginning

map2 <- readRDS("map.rds")

library(shiny)
shinyUI<-fluidPage(mainPanel(
  leafletOutput("test")
 )
)

shinyServer<-function(input,output){
  output$test<-renderLeaflet(map2)
}

shinyApp(shinyUI,shinyServer)