Olá galera, estou com um problema que eu não sei onde colocar um trecho de código sem ter que carregar antes, pq eu preciso que ele faça esses trechos dentro do app, e não solicitar que eu tenha carregado no ambiente de trabalhho.
É este trecho destacado a baixo:
dados<-read_excel("idf_postos.xlsx") dadosResumo<- dados[,1:12] nomesColunas<-(dadosResumo[1,]) names(dadosResumo)<- nomesColunas dadosResumo[1,]<-NA dadosResumo<-na.omit(dadosResumo) Longitude<-dadosResumo[,2] Latitude<-dadosResumo[,3] vetLng<-c() for (i in 1:length(dadosResumo$Longitude)) { vetLng[i]<-Longitude[i,] } vetLng<- as.numeric(vetLng) vetLat<-c() for (i in 1:length(dadosResumo$Latitude)) { vetLat[i]<-Latitude[i,] } vetLat<- as.numeric(vetLat) conteudo <- paste(sep = "<br/>",paste0("<b>Cidade: </b>", dadosResumo$Município), paste0("<hr>"), paste0("<b>Latitude: </b>", dadosResumo$Latitude), paste0("<hr>"), paste0("<b>Longitude: </b>", dadosResumo$Longitude), paste0("<hr>"), paste0("<b>Código da estação: </b>", dadosResumo$`Código do posto pluviométrico`), paste0("<hr>"), paste0("<b>Coeficiente a: </b>", dadosResumo$`Coeficiente a`), paste0("<hr>"), paste0("<b>Coeficiente b: </b>", dadosResumo$`Coeficiente b`), paste0("<hr>"), paste0("<b>Coeficiente c: </b>", dadosResumo$`Coeficiente c`), paste0("<hr>"), paste0("<b>Coeficiente d: </b>", dadosResumo$`Coeficiente d`), paste0("<hr>"))#, #paste0("<button>Adicionar a minha tabela</button>"))
Ja pensei em fazer o tratamento dos dados e salvar em um “.RData” mas não importa o local que eu coloco o “load(“arquivo.RData”)”, ele nunca é carregado pelo shinyApp, sempre diz q falta a variável
Abaixo tem o restante do meu código caso ajude:
##################################################################################
ui<-(
mainPanel(
shiny.info::powered_by("gphidro", '#Link'),
includeCSS("teste.css"),
navbarPage(title = "",
##################################################################################
tabPanel("INICIO",
htmlTemplate(filename = "Inicio.html")
),
##################################################################################
navbarMenu("AJUDA",
tabPanel("COMO USAR"
),
#################################################
tabPanel("TERMOS DE USO"
)
),
##################################################################################
tabPanel("IDFGeo",
htmlTemplate(filename = "table-pag.html")
),
##################################################################################
tabPanel("FERRAMENTA",
htmlTemplate(filename = "Pag-map.html")
),
##################################################################################
tabPanel("SOBRE",
htmlTemplate(filename = "sobre.html")
),
##################################################################################
tabPanel(HTML('MINHA CONTA')
)
##################################################################################
)
)
)
server <- function(input, output, session) {
output$mymap <- renderLeaflet({
input$get
leaflet() %>%
addTiles() %>% # Add default OpenStreetMap map tiles
addMarkers(
lng= as.numeric( dadosResumo$Longitude),
lat = as.numeric( dadosResumo$Latitude),
popup= conteudo )%>%
setView(lng= isolate(input$idLong),
lat = isolate(input$idLat),
zoom = 7)
})
##pagina tabela
output$tabelaResumida <- DT::renderDataTable({
DT::datatable(dadosResumo[])})
##table DT
}
shinyApp(ui, server)
Se alguém poder me ajudar ou me dizer onde ou como colocar esse trecho de código ficaria agradecido!!