Leafpop Popupgraph doens'；我不能和水管工一起工作

如果我在不使用Plumberer函数的情况下运行代码，则popupgraph会很好地工作。但若我使用水管工函数运行，我会收到web的错误404。 你知道怎么解决这个问题吗？popupgraph与管道工api一起工作

library(dplyr)
library(ggplot2)
library(plotly)
library(leaflet)
library(htmltools)
library(leafpop)
library(leafem)
library(plumber)
library(htmlwidgets)

#* Return interactive plot 
#* @serializer htmlwidget
#* @get /map

function(){

  dataset <- data.frame(station = c('CARATORIA', 'CENTRO', 'FONTE GRANDE', 'ILHA DO PRINCIPE',
                                    'MOSCOSO', 'PIEDADE', 'SANTA CLARA', 'VILA RUBIM'),
                        lon = c(-40.35804, -40.34229, -40.33978, -40.35260, -40.34895,
                                -40.34157, -40.34717, -40.34976),
                        lat = c(-20.31472, -20.32030, -20.31325, -20.32188, -20.31468,
                                -20.31404, -20.31850, -20.31958),
                        value_no2 = c(23.93333, 123.06250, 40.00000, 10.93750, 46.38462,
                                      36.66667, 27.69231, 56.00000),
                        value_pm10 = c(10.238095, NaN, 13.842105, 9.318182, 17.842105,
                                       NaN, 9.000000, 15.333333))
                        
                         
   my_list <- list()  
   loop<-for (i in unique(dataset$station)) {
       name <- dataset %>% filter(station == i)
       plot <- ggplot(name, aes(x = value_no2, y = station)) + 
          geom_col()+labs(title = i)
       my_list[[i]] <- plot
    }
                        
                        
    my_list2 <- list()  
    loop<-for (i in unique(dataset$station)) {
       name <- dataset %>% filter(station == i)
        plot <- ggplot(name, aes(x = value_pm10, y = station)) + 
           geom_col()+labs(title = i)
        my_list2[[i]] <- plot
    }
                        
    list_comb <- list()
    list_comb[[1]] <- my_list
    list_comb[[2]] <- my_list2
                        
    test <- list()
    grafico_correto <- for (i in 1:max(length(my_list),length(my_list2))){
       test[[i]] <- subplot(do.call( rbind, list_comb)[,i], nrows = 2)
    }
          
    leaflet() %>%
       addTiles() %>%
       addCircleMarkers(data = dataset, ~lon,~lat, popup = popupGraph(test, type = "html"))
                        
}

图书馆（dplyr）
图书馆（GG2）
图书馆（绘本）
图书馆（单张）
图书馆（htmltools）
图书馆（leafpop）
图书馆（leafem）
图书馆（水管工）
库（htmlwidgets）
#*返回交互式绘图
#*@serializer htmlwidget
#*@get/map
函数（）{
数据集水管工不知道如何路由
/popup\u graphs/
。此特定绘图使用iframe引用其他对象。我添加了一个端点来告诉水管工如何路由这些请求

编辑：我查看了
popupGraph
的源代码，您只需将静态资源路径装载到预计算的弹出窗口，这样它就可以以最快的速度运行

库（dplyr）
图书馆（GG2）
图书馆（绘本）
图书馆（单张）
图书馆（htmltools）
图书馆（leafpop）
图书馆（leafem）
图书馆（水管工）
库（htmlwidgets）
dataset Try to pre compute在路由处理程序之外有尽可能多的功能，以便api有更快的响应时间。这很好。感谢：-）并感谢pre compute的提示。我更新了代码，以反映预计算的图形保存在
file.path（tempdir（），“popup_graphs”）中的事实。