I can't reproduce your issue, I have made this minimal app to test deployment and there is no problem with the links you have provided the app deploys and runs as expected.
library(shiny)
library(tidyverse)
library(lubridate)
positvos_url <- "https://cloud.minsa.gob.pe/s/Y8w3wHsEdYQSZRp/download"
muertes_url <- "https://cloud.minsa.gob.pe/s/Md37cjXmjT9qYSa/download"
positivos <- read.csv(positvos_url)
muertes <- read.csv(muertes_url)
ui = fluidPage(
plotOutput("plot1"),
plotOutput("plot2")
)
server <- function(input, output, session) {
output$plot1 <- renderPlot({
positivos %>%
mutate(FECHA_RESULTADO = dmy(FECHA_RESULTADO)) %>%
drop_na(FECHA_RESULTADO) %>%
count(FECHA_RESULTADO) %>%
ggplot(aes(x = FECHA_RESULTADO, y = n)) +
geom_line()
})
output$plot2 <- renderPlot({
muertes %>%
mutate(FECHA_FALLECIMIENTO = dmy(FECHA_FALLECIMIENTO)) %>%
drop_na(FECHA_FALLECIMIENTO) %>%
count(FECHA_FALLECIMIENTO) %>%
ggplot(aes(x = FECHA_FALLECIMIENTO, y = n)) +
geom_line()
})
}
shinyApp(ui, server)
Can you provide a reproducible example (reprex) illustrating your issue? Please have a look at this resources, to see how to create one for a shiny app