1

私はこの例に従っています：

https://gist.github.com/ramnathv/9998388

私の目標は、ルートをプロットすることです。RStudio を使用すると正常に動作しますが、R コンソールを使用したい場合は、マップのみをプロットし、ルートはプロットしません。誰にもこれに対する解決策がありますか？私のソフトウェアは、RStudio ではなく、コンソールを使用して実行する必要があります。

ありがとう！

library(rMaps)
#library(rCharts)
map = Leaflet$new()
map$setView(c(40.74119, -73.9925), 13)
map$tileLayer(provider = 'Stamen.TonerLite')

mywaypoints = list(c(40.74119, -73.9925), c(40.73573, -73.99302))

map$addAssets(
  css = "http://www.liedman.net/leaflet-routing-machine/dist/leaflet-routing-machine.css",
  jshead = "http://www.liedman.net/leaflet-routing-machine/dist/leaflet-routing-machine.min.js"
)

routingTemplate = "
<script>
var mywaypoints = %s
L.Routing.control({
waypoints: [
L.latLng.apply(null, mywaypoints[0]),
L.latLng.apply(null, mywaypoints[1])
]
}).addTo(map);
</script>"

map$setTemplate(
  afterScript = sprintf(routingTemplate, RJSONIO::toJSON(mywaypoints))
)
map$set(width = 800, height = 800)
map

光沢のあるコードは次のとおりです

library(rCharts)
library(shiny) 

runApp(list(
  ui = pageWithSidebar(
    headerPanel("Title"),
    sidebarPanel("MyApp" ),
    mainPanel(
      tabsetPanel(
        tabPanel("Interactive Map", chartOutput("myChart", 'leaflet'))
      )
    )
  ),
  server = function(input, output){
    output$myChart <- renderMap({
      map = Leaflet$new()
      map$setView(c(40.74119, -73.9925), 13)
      map$tileLayer(provider = 'Stamen.TonerLite')

      mywaypoints = list(c(40.74119, -73.9925), c(40.73573, -73.99302))

      map$addAssets(
        css = "http://www.liedman.net/leaflet-routing-machine/dist/leaflet-routing-machine.css",
        jshead = "http://www.liedman.net/leaflet-routing-machine/dist/leaflet-routing-machine.min.js"
      )

      routingTemplate = "
<script>
var mywaypoints = %s
L.Routing.control({
waypoints: [
L.latLng.apply(null, mywaypoints[0]),
L.latLng.apply(null, mywaypoints[1])
]
}).addTo(map);
</script>"

      map$setTemplate(
        afterScript = sprintf(routingTemplate, RJSONIO::toJSON(mywaypoints))
      )
      map$set(width = 800, height = 800)
      map
    })
  }
))
4

1 に答える 1

0

光沢のあるコードを機能させるために、いくつかの調整を行いました (スタイルは少しずれています...)

library(rCharts)
library(shiny) 

runApp(list(
    ui = pageWithSidebar(
        headerPanel("Title"),
        sidebarPanel("MyApp" ),
        mainPanel(
            tabsetPanel(
                tabPanel("Interactive Map", 
                             chartOutput("baseMap", 'leaflet'),
                             tags$head(tags$style("http://www.liedman.net/leaflet-routing-machine/dist/leaflet-routing-machine.css")),
                             tags$head(tags$script(src="http://www.liedman.net/leaflet-routing-machine/dist/leaflet-routing-machine.min.js")),
                             uiOutput("routeMap"))
            )
        )
    ),

    server = function(input, output){

        output$baseMap <- renderMap({
            baseMap = Leaflet$new()
            baseMap$setView(c(40.74119, -73.9925), 13)
            baseMap$tileLayer(provider = 'Stamen.TonerLite')
            baseMap$set(width = 800, height = 800)
            baseMap
        })

        output$routeMap <- renderUI({

            mywaypoints = list(c(40.74119, -73.9925), c(40.73573, -73.99302))
            tags$body(tags$script(HTML(sprintf(
                "var mywaypoints = %s  
                L.Routing.control({
                waypoints: [
                    L.latLng.apply(null, mywaypoints[0]),
                    L.latLng.apply(null, mywaypoints[1])
                ] }).addTo(map)", RJSONIO::toJSON(mywaypoints)
            ))))
        })
    }
))

これは、RStudio とコンソールの両方から機能します。ただし、.R スクリプトの解決策はまだありません。

于 2015-10-27T00:40:38.567 に答える