错误：在将应用程序部署到Shiny时找不到功能“dmy”

Question

当我使用runApp（）时，我的应用程序在我的计算机上本地正常工作。

问题是当我想部署它时，它给我一个错误，它无法找到一个函数： 错误：没有任何关于“dmy”的信息。

转换为： 错误：找不到函数“dmy”。

我知道这个函数是lubridate的一部分（我在本地），我知道我应该在服务器中安装它，但我不能。我环顾四周，找不到哪里     library(lubridate) 应该去。

这是我的代码（抱歉语法错误，但我是Shiny的新手）：

#Comienzo la aplicación

#Cargo las librerías
require(shiny)
require(rsconnect)
require(lubridate)

#Cambio el directorio (solo lo uso si lo voy a correr local)
#setwd("C:/Users/borja.sanz/Desktop/Borja/R/Shiny/Directorio - Proyecciones Productos")


#Cargo los datos
data<-read.csv("./data/Pruebas Shiny.csv")

#Obtengo los niveles de cada factor
Producto.Maestro = levels(data$Producto.Maestro)
Producto = levels(data$Producto)
Pais = levels(data$Pais)

#Cambio las fechas a formato de fecha
data$Fecha = dmy(data$Fecha)

#Extraigo el año
data$Año = as.factor(year(data$Fecha))

#Obtengo los niveles de Año
Años = levels(data$Año)

#-------------------------------------------------------------------
#Comienzo la interfaz de usuario
ui <-
  shinyUI(pageWithSidebar(
    headerPanel("Proyecciones de Productos"),
    #Creo los inputs del sidebar
      sidebarPanel(uiOutput("duracion"),
                   uiOutput("pais"),
                   uiOutput("año"),
                   uiOutput("producto.maestro"),
                   uiOutput("producto")),
      mainPanel()
  )
)


#Comienzo el archivo de servidor
require(shiny)
require(lubridate)

server <- function(input, output) {
  output$duracion = renderUI(sliderInput(inputId = "duracion",
                                         label = "Seleccione la duración de su promoción:",
                                         value = 45, min = 15, max = 90)
  )

  output$pais = renderUI(selectInput(inputId = "pais",
                                     label = "",
                                     choices = c("Seleccione un país",levels(data$Pais)),
                                     selected = "Seleccione un país")
  )

  output$año = renderUI(selectInput(inputId = "año",
                                     label = NULL,
                                     choices = c("Seleccione un año",levels(data$Año)),
                                     selected = "Seleccione un año")
  )

  output$producto.maestro = renderUI(
        selectInput(inputId = "producto.maestro",
                        label = NULL,
                        choices = c("Seleccione un producto maestro",levels(data$Producto.Maestro[which(data$Pais == input$pais & data$Año == input$año)])),
                        selected = "Seleccione un producto maestro")
  )

  output$producto = renderUI(
    if(input$pais == "Seleccione un país" || input$año == "Seleccione un año" || input$producto.maestro == "Seleccione un producto maestro"){return()
     }else selectInput(inputId = "producto",
                     label = NULL,
                     choices = c("Seleccione los productos relevantes",levels(factor(data$Producto[which(data$Pais == input$pais & data$Producto.Maestro == input$producto.maestro)]))),
                     selected = levels(factor(data$Producto[which(data$Pais == input$pais & data$Producto.Maestro == input$producto.maestro)])),
                     multiple = TRUE)
  )
}

#Corro la aplicación
shinyApp(ui = ui, server = server)

Answer 1

解决方法可能是使用

lubridate::dmy()而不是使用require()或library()加载lubridate包。这样做需要更多输入，因为您需要将dmy()的任何实例替换为lubridate::dmy()。