error deploying shiny app with shinyapps.io

[leo0109]

Hi,
I'm having a problem with the deployment of my app.
The code supposed to download some csv files from this pages:
https://cloud.minsa.gob.pe/s/Y8w3wHsEdYQSZRp/download and https://cloud.minsa.gob.pe/s/Md37cjXmjT9qYSa/download', but when i try to read them trough the read.csv function it throws this message at the log console:

2020-06-06T01:03:57.306412+00:00 shinyapps[2416251]: Warning in scan(file = file, what = what, sep = sep, quote = quote, dec = dec,  :
2020-06-06T01:03:57.306414+00:00 shinyapps[2416251]:   entrada inválida encontrada en la conexión de entrada 'https://cloud.minsa.gob.pe/s/Y8w3wHsEdYQSZRp/download'
2020-06-06T01:03:57.992442+00:00 shinyapps[2416251]: Warning in scan(file = file, what = what, sep = sep, quote = quote, dec = dec,  :
2020-06-06T01:03:57.992443+00:00 shinyapps[2416251]:   entrada inválida encontrada en la conexión de entrada 'https://cloud.minsa.gob.pe/s/Md37cjXmjT9qYSa/download'

I know that the files have accents and already have tried to set the encoding to utf-8 or latin-1. ( fileenconding and encoding arguments from the function itself, also tried with the global encoding argument in options)

Any help will be appreciated.
Thanks in advance.

Here is my session info:

2020-06-06T01:02:59.848892+00:00 shinyapps[2416251]: Server version: 1.8.2.1-12
2020-06-06T01:02:59.848927+00:00 shinyapps[2416251]: LANG: es_ES.UTF-8
2020-06-06T01:03:00.014261+00:00 shinyapps[2416251]: 
2020-06-06T01:02:59.848928+00:00 shinyapps[2416251]: R version: 4.0.0
2020-06-06T01:03:00.014263+00:00 shinyapps[2416251]: Starting R with process ID: '27'
2020-06-06T01:02:59.848929+00:00 shinyapps[2416251]: shiny version: 1.4.0.2
2020-06-06T01:03:00.037354+00:00 shinyapps[2416251]: 
2020-06-06T01:02:59.849116+00:00 shinyapps[2416251]: Using pandoc: /opt/connect/ext/pandoc2
2020-06-06T01:03:00.004753+00:00 shinyapps[2416251]: Using jsonlite for JSON processing
2020-06-06T01:02:59.848938+00:00 shinyapps[2416251]: rmarkdown version: (none)
2020-06-06T01:02:59.848929+00:00 shinyapps[2416251]: httpuv version: 1.5.3.1
2020-06-06T01:03:00.037356+00:00 shinyapps[2416251]: Listening on http://127.0.0.1:40522
2020-06-06T01:02:59.848939+00:00 shinyapps[2416251]: knitr version: (none)
2020-06-06T01:02:59.848970+00:00 shinyapps[2416251]: jsonlite version: 1.6.1
2020-06-06T01:02:59.848978+00:00 shinyapps[2416251]: htmltools version: 0.4.0
2020-06-06T01:02:59.848978+00:00 shinyapps[2416251]: RJSONIO version: (none)
2020-06-06T01:03:32.909493+00:00 shinyapps[2416251]: Server version: 1.8.2.1-12
2020-06-06T01:03:32.909517+00:00 shinyapps[2416251]: LANG: es_ES.UTF-8
2020-06-06T01:03:32.909517+00:00 shinyapps[2416251]: R version: 4.0.0
2020-06-06T01:03:32.909518+00:00 shinyapps[2416251]: shiny version: 1.4.0.2
2020-06-06T01:03:32.909518+00:00 shinyapps[2416251]: httpuv version: 1.5.3.1
2020-06-06T01:03:32.909518+00:00 shinyapps[2416251]: rmarkdown version: (none)
2020-06-06T01:03:32.909533+00:00 shinyapps[2416251]: jsonlite version: 1.6.1
2020-06-06T01:03:32.909533+00:00 shinyapps[2416251]: knitr version: (none)
2020-06-06T01:03:32.909540+00:00 shinyapps[2416251]: RJSONIO version: (none)
2020-06-06T01:03:32.909705+00:00 shinyapps[2416251]: Using pandoc: /opt/connect/ext/pandoc2
2020-06-06T01:03:33.060199+00:00 shinyapps[2416251]: Using jsonlite for JSON processing

[andresrcs]

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

Chapter 5 Workflow | Mastering Shiny

Shiny debugging and reprex guide

Shiny issues can be challenging to resolve relative to other problems with your code or statistical methods. Shiny apps are often large, complex projects with interacting files. When seeking help from others it is considered polite to: First, do your best to work through RStudio's debugging tools to diagnose your issue on your own. Often those shiny logs and tracebacks are useful to others trying to help out. Second, strive to minimize the effort required to replicate your issue. You can do this with a reproducible example ("reprex"). Shiny Debugging Errors in Shiny code can be difficult to track down. If you don't know where your problem is coming from, you can track it down with some o…

[nirgrahamuk]

@leo0109

Sure here is the code

andresrcs asked for a reprex which should be as close to a minimal example as you can make it with reasonable time and effort. You appeared to have shared a very large script, presumably much of which you don't need help with.

Its generally a good exercise to make a minimal app that explores your problem when you seek help with it, I often find when I take the time to make the example I solve the issue for myself and don't even need to go on to share it with the forum.

I strongly encourage you to start with an empty shiny app, and add in just the minimal code parts that approach what you wish to do, and still show the error/issue you face.