Warning message: replacing previous import by ‘Rcpp::evalCpp’ when loading ‘later’

tenia implemetada una app en shinyapps.io y todo funcionaba perfectamente hasta hace unos dias que envía el siguiente error "replacing previous import by ‘Rcpp::evalCpp’ when loading ‘later’ " la app si se sube al servidor pero al realizar todo el proceso envia un mensaje que se desconecta del servidor

aqui esta el codigo de mi app

output: html_document
runtime: shiny

#server()
library(mailR)
library(stringr)


SEÑAS <- read.csv("CAP_MEMBERSHIP.csv", header = TRUE)

REUNIONES <- FILES <- list.files(path = "", pattern = ".csv", all.files = FALSE, full.names = FALSE, recursive = FALSE, ignore.case = FALSE, include.dirs = FALSE, no.. = FALSE)

ASISTENTES <- read.csv("ASISTENCIA.csv", header = TRUE)

fecap <- function(TEXTO){
CARACTERS <- c(letters, LETTERS, "ñ", "Ñ", 0:9, "-", "¿", "?", "+", ".", ",", ":", ";", " ", "á", "é", "í", "ó", "ú", "Á", "É", "Í", "Ó", "Ú","ü", "Ü","[","]","(",")")
ESTECODIGO <- sample(CARACTERS)
FIRMAELECTRÓNICA <- character()
for(i in 1:str_length(TEXTO)){
  ESTE <- substr(TEXTO,i, i)
  ESTE <- which(ESTECODIGO == ESTE)
  FIRMAELECTRÓNICA <- paste(FIRMAELECTRÓNICA,CARACTERS[ESTE], sep="")
}
for(i in 1:44){
FIRMAELECTRÓNICA <- paste(FIRMAELECTRÓNICA, ESTECODIGO[i], sep="")
}
for(i in 46:89){
 FIRMAELECTRÓNICA <- paste(ESTECODIGO[i],FIRMAELECTRÓNICA, sep="")
}
FIRMAELECTRÓNICA
}

  output$Box1 = renderUI(selectInput("a1", "Haga una selección", c("Seleccione su nombre", unique(as.character(ASISTENTES[,1]))), "Seleccione su nombre"))
  
  output$Box2 = renderUI(
    if (is.null(input$a1) || input$a1 == "Selecciones su nombre"){return()
    }else selectInput("a2",  "Haga una selección", c(sort(unique(as.character(ASISTENTES[,2][which(ASISTENTES[,1] == input$a1)]))),"Seleccione el evento.csv"), "Seleccione el evento.csv")
  )
    
observeEvent(input$a2, output$df_data_out <- renderText(paste("")))


ntext <- eventReactive(input$firma, {
  if(SEÑAS[as.numeric(which(!is.na(match(SEÑAS[,1], input$a1)))), 2] == input$a3){"FIRMA GENERADA EXITOSAMENTE"
  } else "LA COMBINACIÓN DE USUARIO Y CONTRASEÑA ES INCORECTA"
}
)
output$FIRMA <- renderText({ ntext() })

  
observeEvent(input$enviar, {
    FE <- isolate(fecap(paste(input$a2, input$a1, "Firmada el día:", sep=" ", date())))
    if(SEÑAS[as.numeric(which(!is.na(match(SEÑAS[, 1], input$a1)))), 2] == input$a3){
    EMAIL1 <- as.character(SEÑAS[as.numeric(which(!is.na(match(SEÑAS[, 1], input$a1)) & !is.na(match(SEÑAS[, 2], input$a3)))), 3])

    
send.mail(from = "correo1@mail.com",
          to = c(EMAIL1, "correo2@mail.com", "correo3@mail.com", "corre4@mail.com"),
          replyTo = c("Reply to someone else <correo2@mail.com>"),
          subject = paste("Acuerdos de la", input$a2),
          body =  paste("Aprobación de los acuerdos de la ", input$a2, " otorgado por: ", input$a1,  ". Sello digital de la aprobación: <<", FE, ">> Fecha y hora de emisión de la firma: ", date(), sep ="", ".   Usted puede verificar la validez del sello digital en https://..."),
          attach.files = paste(input$a2, sep=""),
          smtp = list(host.name = "smtp.off.com", port = 123, user.name = "correo1@ mail.com", passwd = "1234", tls = T),
          authenticate = TRUE,
          send = TRUE)


output$df_data_out <- renderText(paste("Gracias por revisar y aprobar los acuerdos de la " , input$a2, ". Sello digital de la aprobatoción: <<", FE, ">> Fecha y hora de emisión de la firma: ", date(), sep ="", ".  Usted puede verificar la validez del sello digital en https://firma"))

    }  else output$df_data_out <- renderText(paste("USTED NO COMPLETÓ EL FORMULARIO CORRECTAMENTE, REVISE QUE HAYA SELECCIONADO SU NOMBRE Y QUE LA CONTRASEÑA SEA CORRECTA"))
    }
  )


FILE <-  renderText({
paste("", input$a2, sep="")
})
fileData <- reactiveFileReader(1800, session, FILE, header = TRUE,  read.csv)
output$ACTA  <- renderTable({
    fileData()
   }, rownames=FALSE)







wellPanel(
  uiOutput("Box1"),
  uiOutput("Box2")
  )

 
h4(wellPanel(tableOutput("ACTA"), style = "color: #2F4F4F; background-color: #D4D4D4" ))


 wellPanel(h3(
  passwordInput(inputId="a3", label="INGRESE LA CONTRASEÑA", value = "")
  ), style = "color: white; background-color: #6495ED")


 wellPanel(
  h3(
    actionButton("firma", "GENERAR FIRMA", icon("cog"), style="color: #EE7621; background-color: #241882; border-color: #8A2BE2"),
    p("Presione el boton <<GENERAR FIRMA>>. En la parte de inferior de esta caja aparecerá la confirmación cuando la firma se haya generado correctamente"), style = "color: darkred; background-color: #eedd82"
  ),
  
  h4(verbatimTextOutput("FIRMA")
  )
  )


wellPanel(h3(
    "Presione el boton <<ENVIAR FIRMA>>. En 30 o 40 segundos se mostrará la confirmación en la parte inferior. La confirmación también será enviada a su correo electrónico de forma inmediata",
    actionButton("enviar","ENVIAR FIRMA", icon("paper-plane"), style="color: #EE7621; background-color: #228B22; border-color: #D02090")),
    
    h5(tableOutput("df_data_out")
     
   ), style = "color: mediumblue; background-color: #ffcc66")

    

This topic was automatically closed 21 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.