小编Jer*_*eck的帖子

我保存了一个用户定义文件夹的路径shinyDirChoose。现在我想从该用户的文件夹上传文件，但我不知道该怎么做。1）全部在服务器端？2）以fileInput某种方式提供文件路径？

这就是我为应该上传的三个文件构建文件路径的方式。

### ui end, to browse to desired folder
ui = fluidPage(shinyDirButton('directory', 'Folder select', 'Please select a folder'))

### extracting the folder path
server = function(input, output, session) {
    volumes <- getVolumes()
    shinyDirChoose(input, 'directory', roots=volumes, session=session)
    path1 <- reactive({
       return(print(parseDirPath(volumes, input$directory)))
    })

### constructing the 3 file paths
datpat <- renderText({
    req(nchar(path1())>0)
    datpat <- paste0(path1(),"/data.csv")
  })
vispat <- renderText({
    req(nchar(path1())>0)
    vispat <- paste0(path1(),"/visit.csv")
  })
statpat <- renderText({
   req(nchar(path1())>0)
   statpat <- paste0(path1(),"/statvisit.csv")
})

所以现在我有了这些路径，但是如何使用它们将相关内容上传到服务器呢？read.csv不幸的是，一个简单的方法并不能解决问题。 …

我用library(ggmap)和stat_density2d()函数制作了静态热图。希望在动态leaflet地图上的闪亮应用程序中重新创建它，我发现addHeatmap(). 但是，生成的图像不同，ggmap版本似乎提供了正确的结果。

GGMAP

传单

造成这种差异的原因是什么？

要运行以下两个可重现的示例，您可以下载我放在这里的一些数据（csv 文件）。 https://drive.google.com/drive/folders/0B8_GTHBuoKSRR1VIRmhOUTJKYU0?usp=sharing

请注意，leaflet结果与缩放级别不同，但永远不会匹配ggmap结果（例如，最大热量的位置）。

这是ggmap代码。

library(ggmap)
data <- read.csv("DATA.csv", sep=";")
data <- subset(data, !is.na(CrdLatDeg))
xmin <- min(data$CrdLonDeg)
xmax <- max(data$CrdLonDeg)
ymin <- min(data$CrdLatDeg)
ymax <- max(data$CrdLatDeg)
lon <- c(xmin,xmax)
lat <- c(ymin,ymax)
map <- get_map(location = c(lon = mean(lon), lat = mean(lat)), zoom = 17,
               maptype = "satellite", source = "google")
ggmap(map) + 
  labs(x="longitude", y="latitude") + 
  stat_density2d(data=data, aes(x=CrdLonDeg, y=CrdLatDeg, …