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)