This is the console output:
Preparing to deploy application...
Update application currently deployed at
https://cvfh.shinyapps.io/shiny_debates_latamv3/? [Y/n] y
DONE
Uploading bundle for application: 4583654...DONE
Deploying bundle: 5000160 for application: 4583654 ...
Waiting for task: 1003572354
building: Processing bundle: 5000160
building: Building image: 5729733
building: Installing packages
building: Installing files
building: Pushing image: 5729733
deploying: Starting instances
rollforward: Activating new instances
unstaging: Stopping old instances
Application successfully deployed to https://cvfh.shinyapps.io/shiny_debates_latamv3/
Warning message:
In fileDependencies.R(file) :
Failed to parse C:/Users/carof/AppData/Local/Temp/RtmpucBObq/file330c1b287cf9/app.R ; dependencies in this file will not be discovered.
I'll try what you suggest. thou I'm now definetively convinced there's a problem with the uploading / using of the files. In the demo I tried, I had no problem with tidyverse nor with introducing a first database. But when I try to use any second database, parsing fails. What should I do to manage more than one database?
(this is the code I'm experimenting with. I'm "#" each data line at a time:)
#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com/
#
library(shiny)
library(tidyverse)
data <- read.csv("base.csv", stringsAsFactors = F)
#base_años <- read.csv("base_anos.csv", stringsAsFactors = F)
#base_organizadores <- read.csv("base_organizadores.csv", stringsAsFactors = F)
#base_formatos <- read.csv("base_formatos.csv", stringsAsFactors = F)
#base_temas <- read.csv("base_temas.csv", stringsAsFactors = F)
#base_normativa <- read.csv("base_normativa.csv", stringsAsFactors = F)
codebook <- read.csv("codebook.csv", stringsAsFactors = F)
#base_cluster_pais <- read.csv("base_cluster_pais.csv", stringsAsFactors = F)
#codebook_cluster_pais <- read.csv("codebook_cluster_pais.csv", stringsAsFactors = F)
# Define UI for application that draws a histogram
ui <- fluidPage(
# Application title
titlePanel("Old Faithful Geyser Data"),
# Sidebar with a slider input for number of bins
sidebarLayout(
sidebarPanel(
sliderInput("bins",
"Number of bins:",
min = 1,
max = 50,
value = 30)
),
# Show a plot of the generated distribution
mainPanel(
plotOutput("distPlot"),
tableOutput("disttable")
)
)
)
# Define server logic required to draw a histogram
server <- function(input, output) {
output$distPlot <- renderPlot({
# generate bins based on input$bins from ui.R
x <- data
binsi <- input$binsrsc
# draw the histogram with the specified number of bins
x %>%
ggplot() +
geom_histogram(aes(n_ausentes),
bins = binsi)
})
output$disttable <- renderTable({
codebook
})
}
# Run the application
shinyApp(ui = ui, server = server)