R:可以制作没有光泽的传单图和渲染表吗？

Question

我正在尝试创建带有渲染表的传单 map (取决于您在 map 上单击的位置)，以将其上传到我们公司的汇合页面。我首先想到的是使用 Shiny 创建一个小型 Web 应用程序，但我的公司没有 R-Server。我能想到的下一个选择是使用 leaflet 和 htmlwidgets 导出 html。但是，我不确定是否可以添加渲染表(而不是通常的弹出窗口)。是否可以？有(更好的)方法来实现我的目标吗？

Answer 1

您可以使用htmlTable。

library(leaflet)
library(htmlTable)

df <- read.csv(textConnection(
  "Name,Lat,Long
  Samurai Noodle,47.597131,-122.327298
  Kukai Ramen,47.6154,-122.327157
  Tsukushinbo,47.59987,-122.326726"
))

table <- data.frame(a = 1:3, b= c("a", "b", "c"))

leaflet(df) %>% addTiles() %>%
  addMarkers(~Long, ~Lat, popup = htmlTable(table, rnames = F))