r - Leafpop Popupgraph 不适用于 Plumber - R
问题描述
如果我在没有管道工功能的情况下运行我的代码,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"))
}
没有管道工功能:
带水管工功能:
解决方案
水管工不知道如何布线/popup_graphs/<tmp_file>
。这个特定的绘图使用 iframe 引用其他对象。我添加了一个端点来告诉管道工如何路由这些请求。
编辑:我查看了源代码popupGraph
,您可以将静态资产路径安装到预先计算的弹出窗口,以便它尽可能快。
library(dplyr)
library(ggplot2)
library(plotly)
library(leaflet)
library(htmltools)
library(leafpop)
library(leafem)
library(plumber)
library(htmlwidgets)
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)
}
p <- leaflet() %>%
addTiles() %>%
addCircleMarkers(data = dataset, ~lon,~lat, popup = popupGraph(test, type = "html"))
#* Return interactive plot
#* @serializer htmlwidget
#* @get /map
function(){
p
}
#* @plumber
function(pr) {
pr_static(pr, "/popup_graphs", file.path(tempdir(), "popup_graphs"))
}
推荐阅读
- math - Lua 新手 - 获取两个 3D 矢量之间的角度
- sql - 使用 select 中的数据行作为其上的列创建表
- javascript - 带返回功能的顶部按钮
- python - 确定给定电子邮件地址的 smtp 服务器 python smtplib
- google-apps-script - 当脚本在 Google Apps 脚本中运行时,有没有办法动态添加一个工作表?
- angular - 如何修复第一次登录时不显示侧边菜单按钮
- java - Oracle/JDBC:行的正确时区问题
- django - 如果项目在 python 列表中,则注释布尔字段
- ruby-on-rails - 我可以在我的应用程序菜单中查询 DEVISE current_user 助手吗?
- java - 动作事件如何与玩家的回合一起工作,需要帮助显示用户在计算机显示它玩过什么牌之前玩过哪张牌