R Shiny - publication problems

Question

Good afternoon, I’m having trouble publishing a fuzzy logic system with R Shiny. The system runs normally in R environment, but when publishing the system returns me the error message: The application failed to start (exited with code 1). Error in value[3L] Unable to change working directory Calls: local ... tryCatch -> tryCatchList -> tryCatchOne -> Execution interrupted

sets_options("universe",seq(1,100,1))
variaveis <- set(
Grupo_familiar = fuzzy_partition(varnames = c( gemin  = 5, gemen = 15, gemed = 50, gemaior=75, gemax=90), sd = 10),

This same code repeats for all variables. Then I’ll set the rules

regras <- set(fuzzy_rule( Grupo_familiar %is%   gemaior && Impacto_economico %is%   rimen   && Trabalho_infantil %is%   ecmaior && Saude %is%   plmin   && Seguranca %is%   gsmax   && Impacto_ambiental %is%   hcmed   , Classificacao %is%    altissima   ),

The same rule applies to every system. After that I set Fluid Row (all work) I believe the problems are in input/output

server <- function(input, output) {
 output$GrafSistema<-renderPlot({plot(sistema)})
observeEvent(input$Processar,{
 inferencia <- fuzzy_inference(sistema,list(Grupo_familiar=input$sgf,Impacto_economico=input$sie,Trabalho_infantil=input$sti,Saude=input$sis,Seguranca=input$sisg,
                                           Impacto_ambiental=input$sia))
output$Grafresultado<-renderPlot({
  plot(sistema$variables$Classificacao)
  lines(inferencia,col='red',lwd=5)})
 })}

shinyApp(ui = ui, server = server)