Shinyapps can't find the excel file (updated)

[ernesto0793]

I am currenty working with COVID data from mi country. This data is saved in my personal OneDrive's file excel. So I am aiming to build a shinyapp in which my peers can consult the development of positive cases of COVID in all Peru's Regions.

My df has 26 variables but only as a matter of example I am only using 4 variables and 3 days of data:

> evolucion_covid

     Fecha    Lima     La Libertad  Madre de Dios
1 2020-04-24   10           2             1
2 2020-04-25   15           4             3
3 2020-04-26   20           8             3

In order to get this data I used this code:

library(dplyr)
library(readxl)
library(ggplot2)
library(shiny)

evolucion_covid <- read_excel("C:/Users/Para llevar/OneDrive/Favorites/Tito/
07. Impulso Pais/05. COVID-19/COVID_webapp/Expansion covid sistematizado.xlsx", 
col_names = FALSE) ##  data's source

evolucion_covid[] <- lapply(evolucion_covid, function(x) if(is.factor(x)) 
                            as.numeric(levels(x))[x] else x)
evolucion_covid$Fecha <- as.Date(evolucion_covid$Fecha, origin = "1899-12-30")

Also I store the names of the Regions for the plot:

nombre_regiones <- c("Lima", "La Libertad", "Madre de Dios")

So with all set I started my app.R. I wanted to present both date input and a list of Regions to generate a plot in which we can see the positive cases until an specific date.

UI:

ui <- fluidPage(
  titlePanel("Evolución COVID-19"),
  sidebarLayout(
    mainPanel(
      plotOutput("trend")
    ),
    sidebarPanel(
      dateInput("Fecha", "Selecciona la fecha",
                min = "2020-03-01",
                max = "2020-06-30",
                format = "dd/mm/yyyy", 
                value = Sys.time()),
      selectInput("Regiones", "Selecciona Region", ## vector I generated earlier
                  choices = nombre_regiones,
                  selected = "Lima"),
      actionButton("act", "Consultar")
    )
  )
)

Server:

server <- function(input, output){
  
  observeEvent(input$act,{
    evolucion_covid_filt <- evolucion_covid %>% filter(Fecha <= input$Fecha )
    output$trend <- renderPlot({
      ggplot(evolucion_covid_filt, 
             aes(x = Fecha, y = !! rlang::sym(input$Regiones))) + 
             geom_line(na.rm = TRUE, color = "steelblue") + 
             geom_point(na.rm = TRUE, color = "steelblue") + 
             scale_x_date(date_labels = "%d, %m", date_breaks  ="7 day") + 
             theme(text = element_text(size = 20), 
                   axis.text.x = element_text(angle = 0, hjust = 1, size = 15), 
                   axis.text.y = element_text(size = 15))
    })
  })
}

shinyApp(ui = ui, server = server)

So I ran the app, it works perfectly locally and when I try to publish it this happens (I prior create my account in shinyapps and conected it with rsconnect::setAccountInfo).

And prior to publish it I got the next issue:

Line 6 Paths should be to files within the project directory.

The line 6 is where I import the excel file. I left a picture of the folder:

If I continue with the publish process the app is uplouded but I got the next message in the browser:

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

Error in value[[3L]](cond) : 
  `path` does not exist: ‘C:/Users/Para llevar/OneDrive/Favorites/Tito/07. Impulso Pais/05. COVID-19/COVID_webapp/Expansion covid sistematizado.xlsx’
Calls: local ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
Execution halted

From this point I don't if the problem is the directory of the excel file or there is another complication I am not seeing.