shiny+leaflet으로 지도 앱 같은 것

5361 단어 RleafletShiny
지도를 페이지 전체에 표시할 수 있도록 하고 위도 경도를 입력할 수 있도록 해 보았다.
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 이미지.

좋은 웹페이지 즐겨찾기