shiny+leafletで地図アプリっぽいもの
地図をページ全体に表示できるようにして、緯度経度を入力できるようにしてみた。
library(shiny)
library(leaflet)
library(leaflet.providers)
ui <- fillPage(
leafletOutput(outputId="map", height="100%"),
absolutePanel(
top=10,
right=10,
numericInput(inputId="lng", label="Longitude", value=135),
numericInput(inputId="lat", label="Latitude", value=35)
)
)
server <- function(input, output, session) {
output$map <- renderLeaflet({
leaflet() %>%
addProviderTiles(providers$OpenStreetMap) %>%
addProviderTiles(providers$NASAGIBS.ModisTerraTrueColorCR) %>%
addProviderTiles(providers$OpenSeaMap) %>%
setView(lng=input$lng, lat=input$lat, zoom=15)
})
}
shinyApp(ui=ui, server=server)
デフォルトはOpenStreetMapの地図。
ズームアウトするとTerra/MODISのRGB画像。
Author And Source
この問題について(shiny+leafletで地図アプリっぽいもの), 我々は、より多くの情報をここで見つけました https://qiita.com/yono2844/items/5a5651838ea4db669d0e著者帰属:元の著者の情報は、元のURLに含まれています。著作権は原作者に属する。
Content is automatically searched and collected through network algorithms . If there is a violation . Please contact us . We will adjust (correct author information ,or delete content ) as soon as possible .