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

xyulie · February 6, 2019, 4:57am

Hello community,

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

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`

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

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)

xyulie · February 6, 2019, 11:34am

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

github.com/rstudio/rsconnect

ERROR: there is no package called "shinydashboard"

opened 04:20PM - 14 Mar 17 UTC

closed 05:01PM - 14 Nov 19 UTC

jiehwan94

I am trying to deploy my app.R file on shinyapp.io for the first time, but I am …getting an error saying **ERROR: there is no package called "shinydashboard"** in the chrome tab. It runs fine when I run the app in RStudio. I found a similar post [https://github.com/rstudio/shinydashboard/issues/190](url) but it doesn't seem to have a sound solution. Here is what I have from running devtools::session_info() and rsconnect::appDependencies(). Also, I have pasted my entire code in app.R below. `> devtools::session_info() Session info ----------------------------------------------------------------------------------------------------------------- setting value version R version 3.3.2 (2016-10-31) system i386, mingw32 ui RStudio (1.0.136) language (EN) collate Korean_Korea.949 tz Asia/Seoul date 2017-03-15 Packages --------------------------------------------------------------------------------------------------------------------- package * version date source assertthat 0.1 2013-12-06 CRAN (R 3.1.3) backports 1.0.5 2017-01-18 CRAN (R 3.3.2) bitops 1.0-6 2013-08-17 CRAN (R 3.1.3) codetools 0.2-15 2016-10-05 CRAN (R 3.3.2) DBI 0.6 2017-03-09 CRAN (R 3.3.3) devtools 1.11.1 2016-04-21 CRAN (R 3.1.3) digest 0.6.9 2016-01-08 CRAN (R 3.1.3) dimple * 0.1 2017-03-13 Github (Bart6114/dimple@2c25304) dplyr * 0.5.0 2016-06-24 CRAN (R 3.3.3) DT * 0.2 2016-08-09 CRAN (R 3.3.3) evaluate 0.10 2016-10-11 CRAN (R 3.3.2) flexdashboard * 0.4 2017-02-01 CRAN (R 3.3.2) googleVis * 0.6.2 2017-01-01 CRAN (R 3.3.2) htmltools 0.3.5 2016-03-21 CRAN (R 3.1.3) htmlwidgets 0.6 2016-02-25 CRAN (R 3.1.3) httpuv 1.3.3 2015-08-04 CRAN (R 3.1.3) jsonlite 0.9.19 2015-11-28 CRAN (R 3.1.3) knitr 1.15.1 2016-11-22 CRAN (R 3.3.2) lazyeval 0.2.0 2016-06-12 CRAN (R 3.3.3) magrittr 1.5 2014-11-22 CRAN (R 3.1.3) memoise 1.0.0 2016-01-29 CRAN (R 3.1.3) mime 0.3 2015-03-29 CRAN (R 3.1.3) miniUI 0.1.1 2016-01-15 CRAN (R 3.3.2) R6 2.1.2 2016-01-26 CRAN (R 3.1.3) Rcpp 0.12.9 2017-01-14 CRAN (R 3.3.2) RCurl 1.95-4.8 2016-03-01 CRAN (R 3.1.3) RJSONIO 1.3-0 2014-07-28 CRAN (R 3.1.3) rmarkdown 1.3 2016-12-21 CRAN (R 3.3.2) rprojroot 1.2 2017-01-16 CRAN (R 3.3.2) rsconnect * 0.7 2016-12-21 CRAN (R 3.3.3) shiny * 1.0.0 2017-01-12 CRAN (R 3.3.2) shinydashboard * 0.5.3 2016-09-20 CRAN (R 3.3.2) shinyjs * 0.9 2016-12-26 CRAN (R 3.3.2) stringi 1.0-1 2015-10-22 CRAN (R 3.1.3) stringr 1.0.0 2015-04-30 CRAN (R 3.1.3) tibble 1.2 2016-08-26 CRAN (R 3.3.3) withr 1.0.1 2016-02-04 CRAN (R 3.1.3) xtable 1.8-2 2016-02-05 CRAN (R 3.1.3) yaml 2.1.14 2016-11-12 CRAN (R 3.3.2) > rsconnect::appDependencies() package version source 1 BH 1.60.0-1 CRAN 2 DT 0.2 CRAN 3 MASS 7.3-45 CRAN 4 NLP 0.1-9 CRAN 5 R6 2.1.2 CRAN 6 RColorBrewer 1.1-2 CRAN 7 Rcpp 0.12.9 CRAN 8 assertthat 0.1 CRAN 9 backports 1.0.5 CRAN 10 base64enc 0.1-3 CRAN 11 bitops 1.0-6 CRAN 12 caTools 1.17.1 CRAN 13 colorspace 1.2-6 CRAN 14 crayon 1.3.1 CRAN 15 curl 0.9.7 CRAN 16 dichromat 2.0-0 CRAN 17 digest 0.6.9 CRAN 18 dimple 0.1 github 19 evaluate 0.10 CRAN 20 flexdashboard 0.4 CRAN 21 ggplot2 2.2.1 CRAN 22 googleVis 0.6.2 CRAN 23 gtable 0.1.2 CRAN 24 highr 0.5 CRAN 25 htmltools 0.3.5 CRAN 26 htmlwidgets 0.6 CRAN 27 httpuv 1.3.3 CRAN 28 jsonlite 0.9.19 CRAN 29 knitr 1.15.1 CRAN 30 labeling 0.3 CRAN 31 lazyeval 0.2.0 CRAN 32 magrittr 1.5 CRAN 33 markdown 0.7.7 CRAN 34 memoise 1.0.0 CRAN 35 mime 0.3 CRAN 36 miniUI 0.1.1 CRAN 37 munsell 0.4.2 CRAN 38 packrat 0.4.8-1 CRAN 39 plyr 1.8.4 CRAN 40 praise 1.0.0 CRAN 41 readr 0.2.2 CRAN 42 reshape2 1.4.1 CRAN 43 rmarkdown 1.3 CRAN 44 rprojroot 1.2 CRAN 45 scales 0.4.1 CRAN 46 shiny 1.0.0 CRAN 47 shinydashboard 0.5.3 CRAN 48 shinyjs 0.9 CRAN 49 slam 0.1-32 CRAN 50 sourcetools 0.1.5-9000 github 51 stringi 1.0-1 CRAN 52 stringr 1.0.0 CRAN 53 testthat 1.0.2 CRAN 54 tibble 1.2 CRAN 55 tm 0.6-2 CRAN 56 wordcloud 2.5 CRAN 57 xtable 1.8-2 CRAN 58 yaml 2.1.14 CRAN` ``` rm(list = ls()) library(shiny) library(shinydashboard) library(shinyjs) library(googleVis) library(flexdashboard) library(DT) library(dimple) library(dplyr) library(rsconnect) rsconnect::setAccountInfo(name='jiehwan94', token='TOKEN', secret='SECRET') ui1 <-tagList( div(id = "login", wellPanel(textInput("userName", "Username"), passwordInput("passwd", "Password"), br(),actionButton("Login", "Log in"))), tags$style(type="text/css", "#login {font-size:10px; text-align: left;position:absolute;top: 40%;left: 50%;margin-top: -100px;margin-left: -150px;}") ) ui2<- dashboardPage( dashboardHeader(title="S-League X Shoot!"), dashboardSidebar( gaugeOutput("plt1",height='130px'), sidebarMenu( menuItem("Shoot 소개", tabName = "shoot_info", icon= icon("heart", lib= "glyphicon")), menuItem("점수순위 및 분석", tabName = "leaderboard", icon= icon("bar-chart-o")), menuItem("참가신청서", tabName = "signup", icon=icon("pencil", lib= "glyphicon"), badgeLabel = "관리자", badgeColor = "red") ), uiOutput("checkbox") ), dashboardBody( tabItems( tabItem(tabName = "shoot_info", fluidRow( tabBox( id= "tabtab1", width = 12, tabPanel("Shoot 소개", fluidRow(div(img(src="1.jpg"), img(src="2.jpg"), img(src="3.jpg"))), fluidRow(div(img(src="4.jpg"), img(src="5.jpg"), img(src="6.jpg"))) ), tabPanel("소아암 소개 및 후원", fluidRow(tags$a(img(src="66.jpg"),href="http://www.soaam.or.kr/donation/introduction.php?PHPSESSID=80f03a3e88d2ee7137d904c22e00a75b")), fluidRow(div(img(src="11.jpg"))), fluidRow(div(img(src="22.png"))), fluidRow(div(img(src="33.png"))), fluidRow(div(img(src="44.png"))), fluidRow(div(img(src="55.png"))) ), tabPanel("2016년도 Shoot 활동", fluidRow(div(img(src="111.jpg"))), fluidRow(div(img(src="222.jpg"))), fluidRow(div(img(src="333.jpg"))), fluidRow(div(img(src="444.jpg"))), fluidRow(div(img(src="555.jpg"))), fluidRow(div(img(src="666.jpg"))) ) ) ) ), tabItem(tabName = "leaderboard", fluidRow( tabBox( id= "tabtab2", width = 12, tabPanel("선수별순위", dataTableOutput("content"), dimpleOutput("distPlot1"), width=12), tabPanel("팀별순위", uiOutput("summa2"), dimpleOutput("distPlot2"), width=6), tabPanel("단과대별순위", uiOutput("summa3"), dimpleOutput("distPlot3"), width=6) ) ) ), tabItem(tabName = "signup", uiOutput("page") #This is the only difference between ui2 and ui3 ) )) ) ui3<- box(fluidRow( tabBox( id= "tabset1", width = 12, tabPanel("참가신청서", textInput("name", "이름"), radioButtons("gender", "성별", list("남자","여자")), selectInput("college", "대학", choices = list("간호대학", "경영대학", "공과대학", "농업생명과학대학", "미술대학", "법과대학", "사범대학", "사회과학대학", "수의과대학", "생활과학대학", "약학대학", "음악대학", "인문대학", "의과대학", "자연과학대학", "기타"), selected = 1), selectInput("team", "교내 소속축구팀", choices = list("싸커21", "아르마다", "에코플러스", "아크로", "P.O.S", "공대", "자연대", "관악사", "농대축구부 휘모리", "지오싸카스", "새츠", "샥스", "FC SEES", "Cells United", "프리템포", "남풍", "없음")), textInput("score", "점수"), actionButton("click_counter","Submit"), width=12), tabPanel("참가자 삭제", textInput("delete_name", "삭제할 참가자 이름을 아래 박스에 기입한 뒤, 삭제 버튼을 눌러주세요."), actionButton("delete_button","삭제"), h4("주의사항: 동명이인이 있을시, 모두가 삭제되므로 삭제하지 않고자 하는 참가자의 정보를 다시 '참가신청서' tab에서 기입해줘야 함."),width=12) ) ), fluidRow( box(dataTableOutput("nText"), width=12) ) ) server <- shinyServer(function(input, output, session) { Logged = FALSE; my_username <- "test" my_password <- "test" USER <- reactiveValues(Logged = Logged) observe({ #print("Observe") if (USER$Logged == FALSE) { #print("1") if (!is.null(input$Login)) { #print("2") if (input$Login > 0) { #print("Username") Username <- isolate(input$userName) Password <- isolate(input$passwd) #print(sprintf("Username:%s Pass:%s",Username,Password)) Id.username <- which(my_username == Username) Id.password <- which(my_password == Password) if (length(Id.username) > 0 & length(Id.password) > 0) { if (Id.username == Id.password) { #print("Success") USER$Logged <- TRUE } } } } } }) output$page <- renderUI({ #print("output$page called") if (USER$Logged == FALSE){ output$page <- renderUI({ div(class="outer",do.call(bootstrapPage,c("",ui1))) }) } if (USER$Logged == TRUE) ui3 }) output$page <- renderUI({ if (USER$Logged==TRUE){ return({ div(class="outer",do.call(bootstrapPage,c("",ui3))) }) } else { return({ div(class="outer",do.call(bootstrapPage,c("",ui1))) }) } }) observe({ values<- reactiveValues(df = NULL) money<- reactiveValues(a=0) observeEvent(input$click_counter, { # Button 클릭시, 500원씩 적립 money$a<- money$a+10000 # create df name<- input$name gender<- input$gender college<- input$college team<- input$team score<- as.numeric(input$score) rank<- 0 new_row<- data.frame(rank,name,college,gender,team,score, stringsAsFactors = FALSE) values$df<- rbind(values$df, new_row) values$df<- values$df[order(values$df$score, decreasing=TRUE),] values$df$rank<- 1:nrow(values$df) }) observeEvent(input$delete_button, { values$df<- values$df[-c(values$df$name==input$delete_name),] }) output$nText<- renderDataTable({ values$df}, options = list(orderClasses = TRUE, lengthMenu = c(5, 10, 30), pageLength = 5), rownames=FALSE) output$content<- renderDataTable({ values$df}, options = list(orderClasses = TRUE, lengthMenu = c(5, 10, 30), pageLength = 10), rownames=FALSE) output$summa1 <- renderPrint({summary(values$df$score)}) output$distPlot1<- renderdimple({ name <- group_by (values$df, score) dd<- as.data.frame(summarise(name, n())) colnames(dd)<- c("score","count") dimple(dd, xCategory="score", xOrderRule="score", yMeasure="count") }) df2<- data.frame() output$summa2 <- renderGvis({ df2<<- df2[0,] for (team_name in unique(values$df$team)){ rank <- 0 team <- team_name score <- format(mean(values$df[values$df$team==team_name,]$score), digits=3) new_row<- data.frame(rank, team, score, stringsAsFactors = FALSE) df2 <<- rbind(df2, new_row) df2 <<- df2[order(as.numeric(df2$score), decreasing=TRUE),] df2$rank <<- 1:nrow(df2) } return(gvisTable(df2[order(df2$score, decreasing=TRUE),])) }) dff2<- data.frame() output$distPlot2 <- renderdimple({ dff2<<- dff2[0,] for (team_name in unique(values$df$team)){ rank <- 0 team <- team_name score <- format(mean(values$df[values$df$team==team_name,]$score), digits=3) new_row<- data.frame(rank, team, score, stringsAsFactors = FALSE) dff2 <<- rbind(dff2, new_row) dff2 <<- dff2[order(as.numeric(dff2$score), decreasing=TRUE),] dff2$rank <<- 1:nrow(dff2) } dimple(dff2, yCategory="team", yOrderRule="score", xMeasure="score") }) df3<- data.frame() output$summa3 <- renderGvis({ df3<<- df3[0,] for (college_name in unique(values$df$college)){ rank <- 0 college <- college_name score <- format(mean(values$df[values$df$college==college_name,]$score), digits=3) new_row<- data.frame(rank, college, score, stringsAsFactors = FALSE) df3 <<- rbind(df3, new_row) df3 <<- df3[order(as.numeric(df3$score), decreasing=TRUE),] df3$rank <<- 1:nrow(df3) } return(gvisTable(df3[order(df3$score, decreasing=TRUE),])) }) dff3<- data.frame() output$distPlot3 <- renderdimple({ dff3<<- dff3[0,] for (team_name in unique(values$df$team)){ rank <- 0 team <- team_name score <- format(mean(values$df[values$df$team==team_name,]$score), digits=3) new_row<- data.frame(rank, team, score, stringsAsFactors = FALSE) dff3 <<- rbind(dff3, new_row) dff3 <<- dff3[order(as.numeric(dff3$score), decreasing=TRUE),] dff3$rank <<- 1:nrow(dff3) } dimple(dff3, yCategory="team", yOrderRule="score", xMeasure="score") }) output$plt1 <- renderGauge({ gauge(money$a, min = 0, max = 300000, symbol = '원', abbreviate=FALSE, label = paste("모금액"),gaugeSectors( success = c(0,300000))) }) }) }) shinyApp(ui = ui2, server = server) ```

josh · February 6, 2019, 2:52pm

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)?

jonathan · February 7, 2019, 5:40pm

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?

system · February 14, 2019, 5:40pm

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.