olá senhores, estou fazendo uma aplicação onde o usuário precisa escolher latitude e longitude e o meu mapa mudar em tempo real no App, o mapa muda no view no rstudio mas n na pagina, alguém poderia me ajudar??
meu código:
library(shiny)
long=-52.3594
lati=-31.776
mapa <-leaflet() %>%
addTiles() %>% # Add default OpenStreetMap map tiles
addMarkers(lng=long, lat=lati,
popup="teste" )
ui<- fluidPage(
titlePanel("entrada e saida de dados"),
mainPanel(
textInput("idLat","Latitude"),
textInput("idLong","Longitude"),
actionButton("get","Processar"),
mapa
)
)
server <- function(input, output){
observeEvent(input$get, {
getLati<- as.numeric(input$idLat)
getLong<- as.numeric(input$idLong)
m <-leaflet() %>%
addTiles() %>% # Add default OpenStreetMap map tiles
addMarkers(lng=getLong, lat=getLati,
popup="funcionou" )
mapa<-m
}
)
}
shinyApp(ui, server)