Я занимаюсь разработкой приложения Shiny, которое показывает карту, поэтому я использую библиотеку Leaflet()
для отображения карты.Ниже приведены мои UI.R и Server.R
UI.R
library(shiny)
library(leaflet)
shinyUI(
dashboardPage(
dashboardHeader(title = div(img(src="new.gif", height = 40, width =
200),"My Dashboard",width = 300)),
dashboardSidebar(
sidebarMenu(
menuItem("Location", tabName = "Location")
)
)
dashboardBody(
tabItem("Map",
fluidRow(
leafletOutput("mymap")
)
)
Server.R
library(shiny)
library(leaflet)
shinyServer(function(input,output,session){
output$mymap <- renderLeaflet({
leaflet() %>%
addTiles() %>% # Add default OpenStreetMap map tiles
addMarkers(lng=df$Lon,
lat=df$Lat)%>%
addPolylines(lng=df$Lon,
lat=Lat)
})
})
Значения Lattitude
и Longitude
извлекается из фрейма данных df
df <- data.frame("lat" = c(12.8908,12.891,12.890),
"Lon" = c(77.5904,77.588,77.5868))
Поэтому, когда я запускаю вышеуказанные сценарии, он говорит: Error: addMarkers requires non-NULL longitude/latitude values.
Я не могу отследить ошибку, я попытался преобразовать еена вектор, потому что validateCoords()
требует, чтобы lat
и lon
были в формате vector
, но это не помогло.