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)

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

1 个答案: