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