相关疑难解决方法(0)

我正在使用RStudio创建一些传单图像.

我希望能够将输出保存为HTML,以便可以通过电子邮件发送,其他人可以查看它.

下面是一些示例R代码,它取自[here]以创建样本传单图像.

devtools::install_github('rstudio/leaflet')
library(leaflet)
rand_lng = function(n = 10) rnorm(n, -93.65, .01)
rand_lat = function(n = 10) rnorm(n, 42.0285, .01)
m = leaflet() %>% addTiles() %>% addCircles(rand_lng(50), rand_lat(50), radius = runif(50, 10, 200))
m

任何能够以HTML格式输出的代码都会非常感激......

我正在构建一个简单的Shiny + Leaflet R应用程序来导航一个地图,在该地图上用有用的函数绘制raster(从包中raster)addRasterImage().代码很大程度上基于Leaflet自己的例子.但是,我遇到了分层的一些问题:每次重新加载图块时,栅格图像都会以某种方式呈现在图块下方,即使我设置了负片zIndex.标记不会发生这种情况.请参阅附带的代码.这里输入文件示例,366KB.

####
###### YOU CAN SKIP THIS, THE PROBLEM LIES BELOW ######
####

library(shiny)
library(leaflet)
library(RColorBrewer)
library(raster)

selrange <- function(r, min, max) {  #Very fast way of selecting raster range, even faster than clamp.
#http://stackoverflow.com/questions/34064738/fastest-way-to-select-a-valid-range-for-raster-data
  rr <- r[]
  rr[rr < min | rr > max] <- NA
  r[] <- rr
  r
}

llflood <- raster("example_flooding_posmall.nc")
ext <- extent(llflood)
flood <- projectRasterForLeaflet(llflood)
floodmin <- cellStats(flood, min)
floodmax <- …