R 传单上有一层光泽

R 传单上有一层光泽,r,leaflet,geojson,R,Leaflet,Geojson,我正在使用R+Shiny显示传单地图。我想在这张地图上添加几个国家(以图层的形式),我环顾四周,发现了提供GEOJSON数据的网站: 我的问题是,这些文件中的坐标是经度、纬度(遵循规范)。然而,不管出于什么原因,传单(或传单闪亮)都期望纬度和经度 交换订单最简单的方法是什么 谢谢 Carlos这是最简单的工作示例: 用户界面 库(闪亮) 图书馆(ShinyDash) 图书馆(单张) shinyUI(fluidPage)( 格栅(瓷砖宽度=125,瓷砖高度=125, 网格项(列=1,行=1,大

我正在使用R+Shiny显示传单地图。我想在这张地图上添加几个国家(以图层的形式),我环顾四周,发现了提供GEOJSON数据的网站:

我的问题是,这些文件中的坐标是经度、纬度(遵循规范)。然而,不管出于什么原因,传单(或传单闪亮)都期望纬度和经度

交换订单最简单的方法是什么

谢谢


Carlos

这是最简单的工作示例:

用户界面

库(闪亮)
图书馆(ShinyDash)
图书馆(单张)
shinyUI(fluidPage)(
格栅(瓷砖宽度=125,瓷砖高度=125,
网格项(列=1,行=1,大小.x=4,大小.y=2,
传单地图(
“地图”、“100%”、“100%”,
initialTileLayer=“http://{s}.tiles.mapbox.com/v3/jcheng.map-5ebohr46/{z}/{x}/{y}.png”,
initialTileLayerAttribute=HTML('Maps by'),
选项=列表(
中心=c(49.25,16),
缩放=2,
maxBounds=列表(列表(17,-180),
名单(59、180))
)
)
)
)
))
服务器.R

library(RJSONIO)

shinyServer(function(input, output, session) {
     # create leaflet map   map <- createLeafletMap(session, 'map')
     # Draw GeoJSON   m <- RJSONIO::fromJSON("./www/countries/esp.geo.json")
     m$style <- list(weight = 5, stroke = "true",
                  fill = "true", opacity = 1,
                  fillOpacity = 0.4)
     session$onFlushed(once=TRUE, function() {
    map$addMarker(ncoords[[1]][1], ncoords[[1]][2])
    map$addGeoJSON(m)   }) })
库(RJSONIO)
shinyServer(功能(输入、输出、会话){

#创建传单地图似乎根本没有问题…我只是在我的图层上添加了一些样式,它显示得很好。
library(RJSONIO)

shinyServer(function(input, output, session) {
     # create leaflet map   map <- createLeafletMap(session, 'map')
     # Draw GeoJSON   m <- RJSONIO::fromJSON("./www/countries/esp.geo.json")
     m$style <- list(weight = 5, stroke = "true",
                  fill = "true", opacity = 1,
                  fillOpacity = 0.4)
     session$onFlushed(once=TRUE, function() {
    map$addMarker(ncoords[[1]][1], ncoords[[1]][2])
    map$addGeoJSON(m)   }) })