title: ERROR: Could not find function "dmy" when Deploying App to Shiny
body: <p>My app works correctly locally on my computer when I use runApp().</p>
  
  <p>The problem is when I want to deploy it it gives me an error that it can't find a function:
  ERROR: no se pudo encontrar la función "dmy"</p>
  
  <p>which translates to:
  ERROR: Could not find the function "dmy".</p>
  
  <p>I know this function is part of lubridate (which I have locally) and I know I should install it in the server but I can't. I've looked around and I can't find where 
      <code>library(lubridate)</code>
  should go.</p>
  
  <p>Here is my code (sorry for the bad syntax but Im new in Shiny):</p>
  
  <pre><code>#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&lt;-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 &lt;-
    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 &lt;- 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 &amp; 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 &amp; data$Producto.Maestro == input$producto.maestro)]))),
                       selected = levels(factor(data$Producto[which(data$Pais == input$pais &amp; data$Producto.Maestro == input$producto.maestro)])),
                       multiple = TRUE)
    )
  }
  
  #Corro la aplicaciÃ³n
  shinyApp(ui = ui, server = server)
  </code></pre>