Shinyapps.io 上的 Shiny 部署錯誤

Question

我有一個在我的 PC 上運行良好的 Shiny 應用程序，但是一旦我在 shinyapps.io 上進行部署，它就會在 Web 瀏覽器上顯示以下錯誤：

以及部署控制台上的以下錯誤：

Warning message:
In value[[3L]](cond) :
  Failed to parse 
C:/Users/david.jorquera/AppData/Local/Temp/RtmpSOqdYV/file13849671673/app.R 
; dependencies in this file will not be discovered.

如果您需要我正在使用的確切 excel 文件，如果您告訴我如何操作，我會很樂意附上它（抱歉，還沒有弄清楚）。 這是用戶界面：

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

EPA <- read_excel("data/EPA.xlsx")


ui <- fluidPage(titlePanel(img(src = 'logo-escudo-rojo.jpg', height=100, 
width=150)),
            titlePanel("Dirección de Análisis Institucional"),

sidebarLayout(
sidebarPanel(selectInput("facultad", h4("Seleccione Facultad o Total UDP"),
                     choices=c("Arquitectura, Arte y Diseño",
                                  "Ciencias Sociales e Historia",
                                  "Comunicación y Letras",
                                  "Derecho",
                                  "Economía y Empresa",
                                  "Educación",
                                  "Ingeniería y Ciencias", 
                                  "Medicina",
                                  "Psicología",
                                  "Salud y Odontología",
                                  "Total UDP")),
conditionalPanel(condition = "input.facultad=='Arquitectura, Arte y 
Diseño'",
             selectInput("faad", h4("Seleccione carrera o Total Facultad"),
                          choices=c("Arquitectura",
                                       "Artes Visuales",
                                       "Diseño",
                                       "Facultad de Arquitectura, Arte y Diseño"), selected="Arquitectura")),
conditionalPanel(condition = "input.facultad=='Ciencias Sociales e Historia'",
             selectInput("fcsh", h4("Seleccione carrera o Total Facultad"),
                          choices=c("Bachillerato en Ciencias Sociales y Humanidades",
                                       "Ciencia Política",
                                       "Historia",
                                       "Sociología",
                                       "Facultad de Ciencias Sociales e Historia"), selected="Bachillerato en Ciencias Sociales y Humanidades")),
conditionalPanel(condition = "input.facultad=='Comunicación y Letras'",
             selectInput("fcyl", h4("Seleccione carrera o Total Facultad"),
                          choices=c("Literatura Creativa",
                                       "Periodismo",
                                       "Publicidad",
                                       "Facultad de Comunicación y Letras"))),
conditionalPanel(condition = "input.facultad=='Economía y Empresa'",
             selectInput("fee", h4("Seleccione carrera o Total Facultad"),
                          choices=c("Ingeniería Comercial",
                                       "Ingeniería en Control de Gestión",
                                       "Contador Auditor-Contador Público 
(D)",
                                       "Facultad de Economía y Empresa"))),
conditionalPanel(condition = "input.facultad=='Educación'",
             selectInput("fed", h4("Seleccione carrera o Total Facultad"),
                          choices=c("Pedagogía Básica",
                                       "Pedagogía Parvularia",
                                       "Pedagogía en Educación Diferencial",
                                       "Pedagogía en Inglés",
                                       "Pedagogía Media en Lenguaje y 
Comunicación",
                                       "Pedagogía Media en Historia y 
Ciencias Sociales",
                                       "Facultad de Educación"))),
conditionalPanel(condition = "input.facultad=='Ingeniería y Ciencias'",
             selectInput("fing", h4("Seleccione carrera o Total Facultad"),
                          choices=c("Ingeniería Civil Plan Común",
                                       "Ingeniería Civil Industrial",
                                       "Ingeniería Civil en Informática y 
Telecomunicaciones",
                                       "Ingeniería Civil en Obras Civiles",
                                       "Facultad de Ingeniería y 
Ciencias"))),
conditionalPanel(condition = "input.facultad=='Salud y Odontología'",
             selectInput("fsyod", h4("Seleccione carrera o Total Facultad"),
                          choices=c("Enfermería",
                                       "Kinesiología",
                                       "Odontología",
                                       "Obstetricia y Neonatología",
                                       "Tecnología Médica",
                                       "Facultad de Salud y 
Odontología")))),

  mainPanel(h4("Encuesta de Primer Año"),


plotOutput("grafico1"),
br(),
br(),
plotOutput("grafico2")


)
))

...這是服務器

server <- function(input, output) {


base <- reactive ({

base <-   if(input$facultad == "Arquitectura, Arte y Diseño") {
      filter(EPA, Carrera==input$faad)}
   else 
     if(input$facultad == "Ciencias Sociales e Historia") {
     filter(EPA, Carrera==input$fcsh)}
   else
     if(input$facultad == "Comunicación y Letras") {
   filter(EPA, Carrera==input$fcyl)}  
   else
     if(input$facultad == "Derecho") {
       filter(EPA, Carrera == "Facultad de Derecho")}
    else
   if(input$facultad == "Economía y Empresa") {
     filter(EPA, Carrera == input$fee)}
   else
   if(input$facultad == "Educación") {
     filter(EPA, Carrera == input$fed)}
 else
   if(input$facultad == "Ingeniería y Ciencias") {
     filter(EPA, Carrera == input$fing)}
 else
   if(input$facultad == "Medicina") {
     filter(EPA, Carrera == "Facultad de Medicina")}
 else
   if(input$facultad == "Psicología") {
     filter(EPA, Carrera == "Facultad de Psicología")}
 else
   if(input$facultad == "Salud y Odontología") {
     filter(EPA, Carrera == input$fsyod)}


  }) 


  output$grafico1 <- renderPlot({

datos <- base()

    ggplot(datos, aes(Año, EPA_T_2, label=paste(round(EPA_T_2*100, 0), "%", 
sep="")))  + 
      geom_col(aes(y = EPA_T_2)) + 
      scale_x_continuous(name = "Cohorte de Ingreso", 
                         breaks = seq(min(datos[[4]]), max(datos[[4]]), 1)) 
+
      scale_y_continuous(name = "% de Estudiantes encuestados", labels = 
scales::percent) +
      geom_text(position = position_stack(vjust=0.5), size=5) +
      ggtitle("Tasa de Respuesta Encuesta de Primer Año") + 
theme(plot.title=
           element_text(color="#666666", face="bold", size=20, hjust=0.5))

  })



output$grafico2 <- renderPlot({

datos <- base()

ggplot(datos, aes(Año, EPA_T_1_OK, label=EPA_T_1_OK)) +
  geom_col(aes(y = EPA_T_1_OK)) +
  scale_x_continuous(name = "Cohorte de Ingreso", 
                     breaks = seq(min(datos[[4]]), max(datos[[4]]), 1)) +
  scale_y_continuous(name = "N° de Estudiantes encuestados", breaks = 
seq(min(0), max(datos[[6]]+10), 20)) +
  geom_text(position = position_stack(vjust=0.5), size=5) +
  ggtitle("Número de Estudiantes Encuestados") + theme(plot.title=
          element_text(color="#666666", face="bold", size=20, hjust=0.5))


})  

  }

shinyApp(ui = ui, server = server)

我之前看到過這個問題，一個解決方案與將library()替換為require()相關，但這並沒有解決問題。

Answer 1

經過幾天嘗試不同的解決方案，事實證明這是一個與編碼有關的問題。 然而，解決方案不是在代碼中嘗試編碼規范（我嘗試使用 UTF-8 保存我的應用程序和我的數據庫，使用enc2utf8()和其他相關功能；重新訪問此網頁上的類似問題等）。 最后，事實證明服務器正在調用數據庫中充滿特殊字符（主要是 ñ 和重音符號）的值。 所以解決方案是替換那些調用值而不是字符串的調用。 我只希望有人能早點告訴我！ 但無論如何，生活和學習。

Answer 2

幾周前我一直在為同樣的問題苦苦掙扎，每當我尋找解決方案時，你在這里提出的這個問題就會出現。 我終於能夠通過在 '' 之間編寫變量名稱來部署我的 shinny 應用程序。問題是我的 shinny 在嘗試部署它時找不到諸如GÉNERO或DÍA類的變量，所以我開始將它們放在反引號之間，例如`DÍA`和`GÉNERO` （從 0 重寫后）。 我想讓這個解決方法寫在某個地方，這個問題似乎是最好的地方。 來自阿根廷的問候！