Error when publishing shiny app to shinyapps.io: error error in value 3l (cond) there is no package called ‘shinythemes’’

shiny
shinyappsio
shiny-deploy

#1

Hello community,

when I try to deploy my shiny-app, which is running perfectly fine on my computer, I receive following error messages:

  1. In the browser panel, where the app should launch:

The application failed to start (exited with code 1).

error in value 3l (cond) there is no package called ‘shinythemes’
Ruft auf: local ... tryCatch -> tryCatchList -> tryCatchOne ->
Ausführung angehalten`

  1. in the deploy window of rstudio:

Deployment completed: https://juliehofer.shinyapps.io/SOLA_Nachhaltigkeit/
Warnmeldung:
In fileDependencies.R(file) :
Failed to parse C:/Users/julie/AppData/Local/Temp/RtmpGyrtli/file4f8c8da7177/app.R ; dependencies in this file will not be discovered.

The only package I'm using is shinythemes, which is installed and inserted with library(shinythemes).

I saved the app.R-file with the encoding "UTF-8" and the used csv.-files are encoded in the same format. The only special letters in the code are ä/ö/ü which should be covered in UTF-8.

I already tried to figure out according to following link what could be my problem:


unfortunately the connected link to github is not working anymore.

What I've done so far:

  • deinstall & reinstall r and rstudio (had one more error before, refering to missing ggplot2 package, which is not used in the app)

  • deleted shinytheme content and tried to deploy the app without theme, received same error

  • inserted shiny:: in front of every function because I read somewhere that someone fixed the deployment-issue with that

  • used packrat::status() what told me that:
    The following packages are used in your code, tracked by packrat, but no longer present in your library:
    _ from to_
    _ packrat 0.5.0 NA_
    _ shiny 1.2.0 NA_

    so I preformed packrat::restore, what is not working properly too:

Error in hash(descFile) : _
_ No DESCRIPTION file at path 'C:/Users/julie/Desktop/R/SOLA_Nachhaltigkeit/packrat/lib/x86_64-w64-mingw32/3.5.2/BH/DESCRIPTION'!

I fear that I destroy more than I fix, so hopefully someone can help me out :blush:

Here is my code:


# Libraries
library(shiny)
library(shinythemes)

# Umfragedaten (konvertiert zu UTF-8)
u18 = read.csv("umfrage2018.csv", sep = ";", stringsAsFactors = FALSE, strip.white = TRUE, fileEncoding = "UTF-8")
u17 = read.csv("umfrage2017.csv", sep = ";", stringsAsFactors = FALSE, strip.white = TRUE, fileEncoding = "UTF-8")
u16 = read.csv("umfrage2016.csv", sep = ";", stringsAsFactors = FALSE, strip.white = TRUE, fileEncoding = "UTF-8")

# Anzahl Befragte
tn_u18 <- nrow(u18)
tn_u17 <- nrow(u17)
tn_u16 <- nrow(u16)

# Restliche Daten (konvertiert zu UTF-8)
next_sola = read.csv("next_sola.csv", sep = ";", stringsAsFactors = FALSE, strip.white = TRUE, fileEncoding = "UTF-8")
d17 = read.csv("daten2017.csv", sep = ";", stringsAsFactors = FALSE, strip.white = TRUE, fileEncoding = "UTF-8")
d16 = read.csv("daten2016.csv", sep = ";", stringsAsFactors = FALSE, strip.white = TRUE, fileEncoding = "UTF-8")
d15 = read.csv("daten2015.csv", sep = ";", stringsAsFactors = FALSE, strip.white = TRUE, fileEncoding = "UTF-8")
d14 = read.csv("daten2014.csv", sep = ";", stringsAsFactors = FALSE, strip.white = TRUE, fileEncoding = "UTF-8")

# Define UI for app that draws a histogram ----
ui <- navbarPage(
  
  # App theme
  theme = shinythemes::shinytheme("cerulean"),
  
  # App title ----
  title = 'SOLA Stafette | Nachhaltigkeit',
  
  # Tab Panel 1********************************************************************************************** P1
  shiny::tabPanel('Fakten',
           # Titel und ASVZ Logo
           shiny::h1("Fakten zur SOLA-Stafette", shiny::img(src = "Sola_logo.png", height = 80, align = "right", inline = TRUE)),
           shiny::br(), shiny::br(),
           shiny::fluidRow(
             shiny::column(3, shiny::wellPanel(style = "background: orange",
                                               shiny::h4("- grösster Hochschulsportanlass der Schweiz", style = "color:white"),
                                               shiny::br(),
                                               shiny::h4("- Laufstafette mit 14 Teilstrecken zwischen 3.8 und 14 km", style = "color:white"),
                                               shiny::br(),
                                               shiny::h4("- Gesamtlänge von 116 km mit total 2620 Höhenmetern", style = "color:white"),
                                               shiny::br(),
                                               shiny::h4("- Über 700 langjährige Helfende", style = "color:white"),
                                               shiny::br(),
                                               shiny::h4("- Treuster Läufer startete an 43 von 44 Durchführungen", style = "color:white"),
                                               shiny::br(),
                                               shiny::h4("- zählt Jahr für Jahr rund 1000 Teams", style = "color:white"),
                                               shiny::br(), shiny::br(), shiny::br(), shiny::br()
                    )
             ),
             shiny::column(5,
                           shiny::br(),
                           shiny::h4(shiny::icon("map-marker-alt", "fa-2x"), "Ort:", shiny::HTML('&nbsp;'), shiny::textOutput("Orttext", inline = TRUE), style="display:inline"),
                           shiny::br(), shiny::br(),
                           shiny::h4(shiny::icon("hand-holding-usd", "fa-2x"),"Budget:", shiny::textOutput("Budgettext", inline = TRUE), style="display:inline"),
                           shiny::br(), shiny::br(),
                           shiny::h4(shiny::icon("users", "fa-2x"),"Teilnehmer an letzter Austragung:", shiny::textOutput("Teilnehmertext", inline = TRUE), style="display:inline"),
                           shiny::br(), shiny::br(),
                           shiny::h4(shiny::icon("calendar-alt", "fa-2x"),"Nächste SOLA-Stafette:", shiny::textOutput("nextsolatext", inline = TRUE), style="display:inline")
             ),
             shiny::column(2,shiny::wellPanel(
               shiny::h5("Der ASVZ hat seine Daten auf der Plattform", shiny::strong("NACHHALTIGE-EVENTS.CH"), "eingegeben. Für die Richtigkeit der Angaben ist allein der ASVZ zuständig."),
               shiny::img(src = "Nachhaltige_Events.png", height = 180, align = "right"),
               shiny::br(), shiny::br(), shiny::br(), shiny::br(), shiny::br(), shiny::br(), shiny::br(), shiny::br(), shiny::br(), shiny::br(), shiny::br(), shiny::br()
              )
             )
           )
           
  ),
  # Tab Panel 2********************************************************************************************** P2
  shiny::tabPanel('Zufriedenheit',
           # Titel und ASVZ Logo
           shiny::h1("Zufriedenheit der Teilnehmer", shiny::img(src = "Sola_logo.png", height = 80, align = "right", inline = TRUE)),
           shiny::br(), shiny::br(),
           shiny::fluidRow(
             shiny::column(3,
                           shiny::wellPanel(
                             shiny::h3('Anzeigen'),
                    #Input dropdown selection box
                    shiny::selectInput("selectyear_zufriedenheit", label = h4("Daten von Jahr:"), 
                         choices = list("2018" = 1, "2017" = 2, "2016" = 3), selected = 1),
                    shiny::h4("In dem gewählten Jahr haben", shiny::textOutput("utn_zufriedenheit", inline = TRUE), "Personen an der Umfrage teilgenommen.", inline = TRUE)
                     )
             ),
             shiny::column(5,
                  # plotoutput bar plot
                  shiny::h4('Allgemeine Zufriedenheit mit der SOLA-Stafette:'),
                  shiny::plotOutput("zufriedenheitbar"),
                  shiny::hr(),
                 # plotoutput bar plot
                 shiny::h4('Teilnahmehäufigkeit'),
                 shiny::plotOutput("teilnahmebar")
            ),
            shiny::column(2, shiny::wellPanel(
              shiny::h5("Die SOLA-Teams werden jedes Jahr zu verschiedenen Themen befragt."),
              shiny::br(),
              shiny::h5("Die Teilnahmehäufigkeit und die", strong("HOHE ALLGEMEINE ZUFRIEDENHEIT (Note 5.6)"), "zeigen die Beliebtheit der SOLA auf.", inline = TRUE),
              shiny::br(),
              shiny::h5("Auch Mithelfen an der SOLA-Stafette scheint Freude zu bereiten: Ein Helfer ist bereits seit 42 Jahren Jahr für Jahr im SOLA-Einsatz."),
              shiny::br(),
              shiny::h4(shiny::icon("grin-alt", "fa-8x"), align="center")
            )
           )
          ) 
  ),
  # Tab Panel 3********************************************************************************************** P3
 
  # Tab Panel 4********************************************************************************************** P4

  # Tab Panel 5********************************************************************************************** P5

  # Tab Panel 6********************************************************************************************** P6
 
     
  # Tab Panel 7********************************************************************************************** P7
  shiny::tabPanel('Sicherheit',
           # Titel und ASVZ Logo
           shiny::h1("Fakten zur SOLA-Stafette", shiny::img(src = "Sola_logo.png", height = 80, align = "right", inline = TRUE)),
           shiny::br(), shiny::br(),
           shiny::fluidRow(
             shiny::column(3,
                           shiny::wellPanel(
                      #Input dropdown selection box
                             shiny::selectInput("selectyear_unfall", label = h4("Gesundheitseinsätze von Jahr:"), 
                                  choices = list("2017" = 1, "2016" = 2, "2015" = 3), selected = 1)
                    )
             ),
             shiny::column(6,
                           shiny::fluidRow(
                             shiny::column(3),
                             shiny::column(3, shiny::wellPanel(style = "background:#0079C2", 
                                          shiny::h3(shiny::textOutput("jahrlabel1"), style = "color:white; fontweight:bold", inline = TRUE))
                      ),
                      shiny::column(3, shiny::wellPanel(style = "background:#0079C2", 
                                    shiny::h3(shiny::textOutput("jahrlabel2"), style = "color:white; fontweight:bold", inline = TRUE))
                      )
                    ),
                    shiny::fluidRow(
                      shiny::column(3,
                                    shiny::img(src = "unfall_leicht.png", height = 80, inline = TRUE)
                      ),
                      shiny::column(3,
                                    shiny::wellPanel(shiny::h4(shiny::textOutput("uleicht_text1")))
                      ),
                      shiny::column(3,
                                    shiny::wellPanel(shiny::h4(shiny::textOutput("uleicht_text2")))
                      )
                    ),
                    shiny::fluidRow(
                      shiny::column(3,
                                    shiny::img(src = "unfall_mittel.png", height = 80, inline = TRUE)
                      ),
                      shiny::column(3,
                                    shiny::wellPanel(shiny::h4(shiny::textOutput("umittel_text1")))
                      ),
                      shiny::column(3,
                                    shiny::wellPanel(shiny::h4(shiny::textOutput("umittel_text2")))
                      )
                    ),
                    shiny::fluidRow(
                      shiny::column(3,
                             img(src = "unfall_schwer.png", height = 80, inline = TRUE)
                      ),
                      shiny::column(3,
                                    shiny::wellPanel(shiny::h4(shiny::textOutput("uschwer_text1")))
                      ),
                      shiny::column(3,
                                    shiny::wellPanel(shiny::h4(shiny::textOutput("uschwer_text2")))
                      )
                    )
             ),
             shiny::column(2,
              shiny::wellPanel(
               shiny::h5("Die Position der erfahrenen Sicherheitsmountainbiker
                         (Spitze und Schluss) sowie der Ambulanz und der Sanitätsmotorräder werden durch ein für die SOLA
                         entwickeltes Trackingsystem an die", shiny::strong("EINSATZZENTRALE"), "übertragen.", inline = TRUE),
               shiny::br(),
               shiny::h5("Von dort aus stellt ein", shiny::strong("VERBINDUNGSOFFIZIER"), "von Schutz & Rettung Zürich die
                         enge Zusammenarbeit mit Polizei und Spitälern sicher.", inline = TRUE),
               shiny::br(),
               shiny::h4(shiny::icon("ambulance", "fa-3x"), align="center")
                    )
             )
           )
  )
)
# Define server logic required to draw a histogram ---------------------------------------------------------------- SERVER FUNCTIONS
server <- function(input, output) {
  
  # Tab Panel 1********************************************************************************************** P1 server
  output$Orttext <- renderText({d17$Ort})
  output$Budgettext <- renderText({d17$Budget})
  output$Teilnehmertext <- renderText({d17$Teilnehmende})
  output$nextsolatext <- renderText({next_sola$next_sola})
  
  # Tab Panel 2********************************************************************************************** P2 server
  output$utn_zufriedenheit <- renderText({
    if (is.null(input$selectyear_zufriedenheit))
      return(NULL)
    if (input$selectyear_zufriedenheit == "1") {tn_u18
    } else if (input$selectyear_zufriedenheit == "2") {tn_u17
    } else if (input$selectyear_zufriedenheit == "3") {tn_u16
    }
  })
  
  output$zufriedenheitbar <- renderPlot({
   
    percent_zufriedenheit18 <- round(table(u18$SOLA_Zufriedenheit)/sum(table(u18$SOLA_Zufriedenheit)) * 100, digits = 2)
    percent_zufriedenheit18 <- paste(percent_zufriedenheit18, "%")
    
    percent_zufriedenheit17 <- round(table(u17$SOLA_Zufriedenheit)/sum(table(u17$SOLA_Zufriedenheit)) * 100, digits = 2)
    percent_zufriedenheit17 <- paste(percent_zufriedenheit17, "%")
    
    percent_zufriedenheit16 <- round(table(u16$SOLA_Zufriedenheit)/sum(table(u16$SOLA_Zufriedenheit)) * 100, digits = 2)
    percent_zufriedenheit16 <- paste(percent_zufriedenheit16, "%")
    
    l_zufriedenheit18 <-c(percent_zufriedenheit18)
    l_zufriedenheit17 <-c(percent_zufriedenheit17)
    l_zufriedenheit16 <-c(percent_zufriedenheit16)
    
    if (is.null(input$selectyear_zufriedenheit))
      return(NULL)
    
    if (input$selectyear_zufriedenheit == "1") {
      bp <- barplot(table(u18$SOLA_Zufriedenheit), border = NA, col = "orange", xlab = "Allgemeine Zufriedenheit mit der SOLA-Stafette (Schulnoten: 6 = sehr gut, 1 = ungenügend)", ylab = "Anzahl Antworten", las = 1)
      text(bp, 0, l_zufriedenheit18, cex=1, pos=3)
    } else if (input$selectyear_zufriedenheit == "2") {
      bp <- barplot(table(u17$SOLA_Zufriedenheit), border = NA, col = "orange", xlab = "Allgemeine Zufriedenheit mit der SOLA-Stafette (Schulnoten: 6 = sehr gut, 1 = ungenügend)", ylab = "Anzahl Antworten", las = 1)
      text(bp, 0, l_zufriedenheit17, cex=1, pos=3)
    }else if (input$selectyear_zufriedenheit == "3") {
      bp <- barplot(table(u16$SOLA_Zufriedenheit), border = NA, col = "orange", xlab = "Allgemeine Zufriedenheit mit der SOLA-Stafette (Schulnoten: 6 = sehr gut, 1 = ungenügend)", ylab = "Anzahl Antworten", las = 1)
      text(bp, 0, l_zufriedenheit16, cex=1, pos=3)
    }
  })
  
  output$teilnahmebar <- renderPlot({
    # Zeilen Ordnen für Barplots
    u18$Teilnahme_anzahl <- factor(u18$Teilnahme_anzahl,levels = c('1x', '2 - 4x', '5 - 10x', '11 - 25x','> 25x'))
    u17$Teilnahme_anzahl <- factor(u17$Teilnahme_anzahl,levels = c('1x', '2 - 4x', '5 - 10x', '11 - 25x','> 25x'))
    u16$Teilnahme_anzahl <- factor(u16$Teilnahme_anzahl,levels = c('1x', '2 - 4x', '5 - 10x', '11 - 25x','> 25x'))
    
    percent_teilnahmeanzahl18 <- round(table(u18$Teilnahme_anzahl)/sum(table(u18$Teilnahme_anzahl)) * 100, digits = 2)
    percent_teilnahmeanzahl18 <- paste(percent_teilnahmeanzahl18, "%")
    
    percent_teilnahmeanzahl17 <- round(table(u17$Teilnahme_anzahl)/sum(table(u17$Teilnahme_anzahl)) * 100, digits = 2)
    percent_teilnahmeanzahl17 <- paste(percent_teilnahmeanzahl17, "%")
    
    percent_teilnahmeanzahl16 <- round(table(u16$Teilnahme_anzahl)/sum(table(u16$Teilnahme_anzahl)) * 100, digits = 2)
    percent_teilnahmeanzahl16 <- paste(percent_teilnahmeanzahl16, "%")
    
    # Barplots
    if (is.null(input$selectyear_zufriedenheit))
      return(NULL)
    
    if (input$selectyear_zufriedenheit == "1") {
      bp <- barplot(table(u18$Teilnahme_anzahl), border = NA, col = "orange", xlab = "Teilnahmehäufigkeit", ylab = "Anzahl Antworten", las = 1)
      text(bp, 0, percent_teilnahmeanzahl18, cex=1, pos=3)
    } else if (input$selectyear_zufriedenheit == "2") {
      bp <- barplot(table(u17$Teilnahme_anzahl), border = NA, col = "orange", xlab = "Teilnahmehäufigkeit", ylab = "Anzahl Antworten", las = 1)
      text(bp, 0, percent_teilnahmeanzahl17, cex=1, pos=3)
    }else if (input$selectyear_zufriedenheit == "3") {
      bp <- barplot(table(u16$Teilnahme_anzahl), border = NA, col = "orange", xlab = "Teilnahmehäufigkeit", ylab = "Anzahl Antworten", las = 1)
      text(bp, 0, percent_teilnahmeanzahl16, cex=1, pos=3)
    }
  })
  
  # Tab Panel 3********************************************************************************************** P3 server

  output$utn_transport <- renderText({
    if (is.null(input$selectyear_transport))
      return(NULL)
    if (input$selectyear_transport == "1") {tn_u18
    } else if (input$selectyear_transport == "2") {tn_u17
    } else if (input$selectyear_transport == "3") {tn_u16
    }
  })
  
  output$anreisebar <- renderPlot({
    # Labels erstellen für Prozentangabe auf Balken
    percent_verkehr18 <- round(table(u18$Verkehrsmittel)/sum(table(u18$Verkehrsmittel)) * 100, digits = 2)
    percent_verkehr18 <- paste(percent_verkehr18, "%")
    
    percent_verkehr17 <- round(table(u17$Verkehrsmittel)/sum(table(u17$Verkehrsmittel)) * 100, digits = 2)
    percent_verkehr17 <- paste(percent_verkehr17, "%")
    
    percent_verkehr16 <- round(table(u16$Verkehrsmittel)/sum(table(u16$Verkehrsmittel)) * 100, digits = 2)
    percent_verkehr16 <- paste(percent_verkehr16, "%")
    
    # Barplots
    if (is.null(input$selectyear_transport))
      return(NULL)
    
    if (input$selectyear_transport == "1") {
      op <- par(mar=c(12,4,4,2)) 
      bp <- barplot(table(u18$Verkehrsmittel), border = NA, col = "orange", xlab = "", ylab = "Anzahl Antworten", las = 2)
      text(bp, 0, percent_verkehr18, cex=1, pos=3)
      rm(op)
    } else if (input$selectyear_transport == "2") {
      op <- par(mar=c(12,4,4,2)) 
      bp <- barplot(table(u17$Verkehrsmittel), border = NA, col = "orange", xlab = "", ylab = "Anzahl Antworten", las = 2)
      text(bp, 0, percent_verkehr17, cex=1, pos=3)
      rm(op)
    }else if (input$selectyear_transport == "3") {
      op <- par(mar=c(12,4,4,2)) 
      bp <- barplot(table(u16$Verkehrsmittel), border = NA, col = "orange", xlab = "", ylab = "Anzahl Antworten", las = 2)
      text(bp, 0, percent_verkehr16, cex=1, pos=3)
      rm(op)
    }
  })
  
  
  # Tab Panel 4********************************************************************************************** P4 server

  output$beschaffungpie <- renderPlot({
    if (is.null(input$selectyear_beschaffung))
      return(NULL)
    if (input$selectyear_beschaffung == "1") {

        region <- d17$Beschaffung_Region
        schweiz <- (d17$Beschaffung_Schweiz-d17$Beschaffung_Region)
        ausland <- d17$Beschaffung_Ausland
        x <- c(region, schweiz, ausland)
        labels <- c( "Region Zürich", "Schweiz","Ausland")
        colorspie = c("#0079C2", "#4FA1D3", "orange") 

        pie(x, labels, init.angle = -70, clockwise = TRUE, col=colorspie)
    } else if (input$selectyear_beschaffung == "2") {

        region <- d16$Beschaffung_Region
        schweiz <- (d16$Beschaffung_Schweiz-d17$Beschaffung_Region)
        ausland <- d16$Beschaffung_Ausland
        x <- c(region, schweiz, ausland)
        labels <- c( "Region Zürich", "Schweiz","Ausland")
        colorspie = c("#0079C2", "#4FA1D3", "orange") 
   
        pie(x, labels, init.angle = -70, clockwise = TRUE, col=colorspie)
    } else if (input$selectyear_beschaffung == "3") {

        region <- d15$Beschaffung_Region
        schweiz <- (d15$Beschaffung_Schweiz-d17$Beschaffung_Region)
        ausland <- d15$Beschaffung_Ausland
        x <- c(region, schweiz, ausland)
        labels <- c( "Region Zürich", "Schweiz","Ausland")
        colorspie = c("#0079C2", "#4FA1D3", "orange") 
        # Kuchendiagramm plotten
        pie(x, labels, init.angle = -70, clockwise = TRUE, col=colorspie)
    }
  })

  output$bregiontext <- renderText({
    if (is.null(input$selectyear_beschaffung))
      return(NULL)
    if (input$selectyear_beschaffung == "1") {d17$Beschaffung_Region
    } else if (input$selectyear_beschaffung == "2") {d16$Beschaffung_Region
    } else if (input$selectyear_beschaffung == "3") {d15$Beschaffung_Region
    }
  })
  output$bschweiztext <- renderText({
    if (is.null(input$selectyear_beschaffung))
      return(NULL)
    if (input$selectyear_beschaffung == "1") {d17$Beschaffung_Schweiz
    } else if (input$selectyear_beschaffung == "2") {d16$Beschaffung_Schweiz
    } else if (input$selectyear_beschaffung == "3") {d15$Beschaffung_Schweiz
    }
  })
  output$bauslandtext <- renderText({
    if (is.null(input$selectyear_beschaffung))
      return(NULL)
    if (input$selectyear_beschaffung == "1") {d17$Beschaffung_Ausland
    } else if (input$selectyear_beschaffung == "2") {d16$Beschaffung_Ausland
    } else if (input$selectyear_beschaffung == "3") {d15$Beschaffung_Ausland
    }
  })
  
  # Tab Panel 5********************************************************************************************** P5 server

  output$abfalltotaltext <- renderText({
    if (is.null(input$selectyear_abfall))
      return(NULL)
    if (input$selectyear_abfall == "1") {d17$Abfall_Total
    } else if (input$selectyear_abfall == "2") {d16$Abfall_Total
    } else if (input$selectyear_abfall == "3") {d15$Abfall_Total
    }
  })
  output$abfallppersontext <- renderText({
    if (is.null(input$selectyear_abfall))
      return(NULL)
    if (input$selectyear_abfall == "1") {d17$Abfall_tpPerson
    } else if (input$selectyear_abfall == "2") {d16$Abfall_tpPerson
    } else if (input$selectyear_abfall == "3") {d15$Abfall_tpPerson
    }
  })
  output$recyclingratetext <- renderText({
    if (is.null(input$selectyear_abfall))
      return(NULL)
    if (input$selectyear_abfall == "1") {d17$Abfall_rRate
    } else if (input$selectyear_abfall == "2") {d16$Abfall_rRate
    } else if (input$selectyear_abfall == "3") {d15$Abfall_rRate
    }
  })
  output$recyclingpettext <- renderText({
    if (is.null(input$selectyear_abfall))
      return(NULL)
    if (input$selectyear_abfall == "1") {d17$Abfall_Pet
    } else if (input$selectyear_abfall == "2") {d16$Abfall_Pet
    } else if (input$selectyear_abfall == "3") {d15$Abfall_Pet
    }
  })
  output$recyclingalutext <- renderText({
    if (is.null(input$selectyear_abfall))
      return(NULL)
    if (input$selectyear_abfall == "1") {d17$Abfall_Alu
    } else if (input$selectyear_abfall == "2") {d16$Abfall_Alu
    } else if (input$selectyear_abfall == "3") {d15$Abfall_Alu
    }
  })
  output$recyclingglastext <- renderText({
    if (is.null(input$selectyear_abfall))
      return(NULL)
    if (input$selectyear_abfall == "1") {d17$Abfall_Glas
    } else if (input$selectyear_abfall == "2") {d16$Abfall_Glas
    } else if (input$selectyear_abfall == "3") {d15$Abfall_Glas
    }
  })
  output$abfallresttext <- renderText({
    if (is.null(input$selectyear_abfall))
      return(NULL)
    if (input$selectyear_abfall == "1") {d17$Abfall_Rest
    } else if (input$selectyear_abfall == "2") {d16$Abfall_Rest
    } else if (input$selectyear_abfall == "3") {d15$Abfall_Rest
    }
  })
 
  # Tab Panel 6********************************************************************************************** P6 server

  output$vegitext <- renderText({
    if (is.null(input$selectyear_verpflegung))
      return(NULL)
    if (input$selectyear_verpflegung == "1") {d17$Verpfl_Vegi
    } else if (input$selectyear_verpflegung == "2") {d16$Verpfl_Vegi
    } else if (input$selectyear_verpflegung == "3") {d15$Verpfl_Vegi
    }
  })
  output$pflanzlichtext <- renderText({
    if (is.null(input$selectyear_verpflegung))
      return(NULL)
    if (input$selectyear_verpflegung == "1") {d17$Verpfl_Pflanzlich
    } else if (input$selectyear_verpflegung == "2") {d16$Verpfl_Pflanzlich
    } else if (input$selectyear_verpflegung == "3") {d15$Verpfl_Pflanzlich
    }
  })
  output$biotext <- renderText({
    if (is.null(input$selectyear_verpflegung))
      return(NULL)
    if (input$selectyear_verpflegung == "1") {d17$Verpfl_Bio
    } else if (input$selectyear_verpflegung == "2") {d16$Verpfl_Bio
    } else if (input$selectyear_verpflegung == "3") {d15$Verpfl_Bio
    }
  })
  output$wassertext <- renderText({
    if (is.null(input$selectyear_verpflegung))
      return(NULL)
    if (input$selectyear_verpflegung == "1") {d17$Verpfl_Wassergünstig
    } else if (input$selectyear_verpflegung == "2") {d16$Verpfl_Wassergünstig
    } else if (input$selectyear_verpflegung == "3") {d15$Verpfl_Wassergünstig
    }
  })
  output$regionaltext <- renderText({
    if (is.null(input$selectyear_verpflegung))
      return(NULL)
    if (input$selectyear_verpflegung == "1") {d17$Verpf_Regional
    } else if (input$selectyear_verpflegung == "2") {d16$Verpf_Regional
    } else if (input$selectyear_verpflegung == "3") {d15$Verpf_Regional
    }
  })
  output$saisonaltext <- renderText({
    if (is.null(input$selectyear_verpflegung))
      return(NULL)
    if (input$selectyear_verpflegung == "1") {d17$Verpfl_Saisonal
    } else if (input$selectyear_verpflegung == "2") {d16$Verpfl_Saisonal
    } else if (input$selectyear_verpflegung == "3") {d15$Verpfl_Saisonal
    }
  })
  
  # Tab Panel 7********************************************************************************************** P7 server
 
  output$jahrlabel1 <- renderText({
    if (is.null(input$selectyear_unfall))
      return(NULL)
    if (input$selectyear_unfall == "1") {"2017"
    } else if (input$selectyear_unfall == "2") {"2016"
    } else if (input$selectyear_unfall == "3") {"2015"
    }
  })
  output$jahrlabel2 <- renderText({
    if (is.null(input$selectyear_unfall))
      return(NULL)
    if (input$selectyear_unfall == "1") {"2016"
    } else if (input$selectyear_unfall == "2") {"2015"
    } else if (input$selectyear_unfall == "3") {"2014"
    }
  })
  output$uleicht_text1 <- renderText({
    if (is.null(input$selectyear_unfall))
      return(NULL)
    if (input$selectyear_unfall == "1") {d17$Unfall_leicht
    } else if (input$selectyear_unfall == "2") {d16$Unfall_leicht
    } else if (input$selectyear_unfall == "3") {d15$Unfall_leicht
    }
  })
  output$uleicht_text2 <- renderText({
    if (is.null(input$selectyear_unfall))
      return(NULL)
    if (input$selectyear_unfall == "1") {d16$Unfall_leicht
    } else if (input$selectyear_unfall == "2") {d15$Unfall_leicht
    } else if (input$selectyear_unfall == "3") {"keine Angabe"
    }
  })
  output$umittel_text1 <- renderText({
    if (is.null(input$selectyear_unfall))
      return(NULL)
    if (input$selectyear_unfall == "1") {d17$Unfall_mittel
    } else if (input$selectyear_unfall == "2") {d16$Unfall_mittel
    } else if (input$selectyear_unfall == "3") {d15$Unfall_mittel
    }
  })
  output$umittel_text2 <- renderText({
    if (is.null(input$selectyear_unfall))
      return(NULL)
    if (input$selectyear_unfall == "1") {d16$Unfall_mittel
    } else if (input$selectyear_unfall == "2") {d15$Unfall_mittel
    } else if (input$selectyear_unfall == "3") {"keine Angabe"
    }
  })
  output$uschwer_text1 <- renderText({
    if (is.null(input$selectyear_unfall))
      return(NULL)
    if (input$selectyear_unfall == "1") {d17$Unfall_schwer
    } else if (input$selectyear_unfall == "2") {d16$Unfall_schwer
    } else if (input$selectyear_unfall == "3") {d15$Unfall_schwer
    }
  })
  output$uschwer_text2 <- renderText({
    if (is.null(input$selectyear_unfall))
      return(NULL)
    if (input$selectyear_unfall == "1") {d16$Unfall_schwer
    } else if (input$selectyear_unfall == "2") {d15$Unfall_schwer
    } else if (input$selectyear_unfall == "3") {"keine Angabe"
    }
  })
}

shinyApp(ui = ui, server = server)


#2

I found the solution: turn app.r into ui.r and server.r in all new directory.


#3

Glad that work around helped.

I'm still curious why the app.R failed to parse the dependencies. @jonathan any ideas? Could the deploy be made to fail if the dependencies fail to parse in app.R/ui.R/server.R? Could more information about why the parse failed be output by default (presumably more is available if the tracing option is enabled)?


#4

Yes, if memory serves we won't deploy if we can't figure out which packages are required.

I'm curious why this works since there's very little difference in these deployment mechanisms! Possibly a transient encoding issue in the original app.R?


closed #5

This topic was automatically closed 7 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.