是否可以在Shiny应用程序中加载离线/本地传单地图图块？我能够如图所示加载瓷砖在交互式R对话在这里，但我现在想尝试并加载它们用在一个闪亮的应用程序。这是到目前为止我所拥有的一个例子。我认为这与Shiny通过IP和端口运行有关，并且还需要通过IP和端口加载图块。我已经尝试了一些方法来更改IP和端口（使它们相同），如此处所述，但是还没有发现任何可行的方法。我也可以使用在线磁贴来使它工作，但是我需要它与本地地图磁贴一起工作。
library(shiny)
library(leaflet)
library(RColorBrewer)
library(RgoogleMaps)
options(shiny.port = 8000)
(bwi <- getGeoCode("BWI;MD"))
df <- as.data.frame(rbind(bwi))
df$col <- c("orange")
df$name <- c("BWI")
icons <- awesomeIcons(
icon = 'ios-close',
iconColor = 'black',
library = 'ion',
markerColor = df$col
)
#################################################################################
ui <- bootstrapPage(
tags$style(type = "text/css", "html, body {width:100%;height:100%}"),
leafletOutput("map", width = "100%", height = "100%"),
absolutePanel(top = 10, right = 10,
style = "padding: 8px; background: #FFFFEE; opacity:.9",
checkboxInput("markers", "Show Markers?", TRUE)
)
)
#################################################################################
server <- function(input, …我正在尝试使用威布尔基线率拟合泊松过程的延迟进入参数回归模型。R 的函数似乎不survreg支持左截断数据（我收到错误：）start-stop type Surv objects are not supported。我可以使用替代方法/R 包来执行此操作吗？
我需要帮助试图弄清楚为什么我的传单地图使用本地保存的地图图块无法正常工作.我正在尝试从此处重新创建示例,以基于本地保存的地图图块创建传单地图.但是,当我创建它时,背景地图图块不会加载.
我的代码基本上是直接来自示例,但更新为我的目录,并更新以启动我的本地服务器.我不确定我是否正在尝试启动服务器错误.我也在这里寻找有关如何使用本地服务器的说明servr.
library(RgoogleMaps)
for (zoom in 10:16)
GetMapTiles("Washington Square Park;NY", zoom = zoom,
nTiles = round(c(20,20)/(17-zoom)))
library(leaflet)
setwd("C:/Users/OTAD USER/Documents")
system("Rscript -e 'servr::httd()' -p8000")
m = leaflet() %>%
addTiles( urlTemplate = "http:/localhost:8000/mapTiles/OSM/{z}_{x}_{y}.png")
m = m %>% setView(-73.99733, 40.73082 , zoom = 13)
m = m %>% addMarkers(-73.99733, 40.73082 )
m