su: ignore --preserve-environment, it's mutually exclusive to --login.
Rows: 431 Columns: 495
── Column specification ────────────────────────────────────────────────────────
Delimiter: ","
chr  (221): redcap_repeat_instrument, paciente_rut, patient_substr1, patient...
dbl  (144): record_id, redcap_repeat_instance, patient_l, patient_substr5, p...
num    (1): ap2_temp_c
lgl   (95): medico_ingreso_otro, medico_responsable_otro, medicamento_9, tip...
dttm   (9): fecha_hospitalizacion, fecha_ingreso_uci, vmi_fecha_inicio_1, vm...
date  (25): datos_generales_today, fech, f_nac, antecedentes_today, vacuna_c...

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
Error in `mutate()`:
ℹ In argument: `across(all_of(list_var), ~ifelse(is.na(.), "", .))`.
Caused by error in `all_of()`:
! Can't subset columns that don't exist.
✖ Columns `hemodinamia_ingreso`, `respiratorio_ingreso`, `vascular_ingreso`, `renal_ingreso`, `infeccioso_ingreso`, etc. don't exist.
Backtrace:
     ▆
  1. ├─shiny::runApp(Sys.getenv("SHINY_APP"), port = port, launch.browser = FALSE)
  2. │ ├─shiny::as.shiny.appobj(appDir)
  3. │ └─shiny:::as.shiny.appobj.character(appDir)
  4. │   └─shiny::shinyAppDir(x)
  5. │     └─shiny:::shinyAppDir_appR("app.R", appDir, options = options)
  6. │       └─shiny (local) appObj()
  7. │         └─shiny (local) func(fname, ...)
  8. │           └─shiny:::sourceUTF8(fullpath, envir = new.env(parent = sharedEnv))
  9. │             └─base::eval(exprs, envir)
 10. │               └─base::eval(exprs, envir)
 11. │                 ├─shiny::..stacktraceon..(...)
 12. │                 └─df0 %>% ...
 13. ├─dplyr::mutate(...)
 14. ├─dplyr:::mutate.data.frame(., across(all_of(list_var), ~ifelse(is.na(.), "", .)))
 15. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
 16. │   ├─base::withCallingHandlers(...)
 17. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
 18. │     └─dplyr:::expand_across(dot)
 19. │       └─dplyr:::across_setup(...)
 20. │         └─tidyselect::eval_select(cols, data = data, error_call = error_call)
 21. │           └─tidyselect:::eval_select_impl(...)
 22. │             ├─tidyselect:::with_subscript_errors(...)
 23. │             │ └─rlang::try_fetch(...)
 24. │             │   └─base::withCallingHandlers(...)
 25. │             └─tidyselect:::vars_select_eval(...)
 26. │               └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
 27. │                 └─tidyselect:::eval_context(expr, context_mask, call = error_call)
 28. │                   ├─tidyselect:::with_chained_errors(...)
 29. │                   │ └─rlang::try_fetch(...)
 30. │                   │   ├─base::tryCatch(...)
 31. │                   │   │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 32. │                   │   │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 33. │                   │   │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
 34. │                   │   └─base::withCallingHandlers(...)
 35. │                   └─rlang::eval_tidy(as_quosure(expr, env), context_mask)
 36. ├─tidyselect::all_of(list_var)
 37. │ └─tidyselect:::as_indices_impl(x, vars = vars, strict = TRUE)
 38. │   └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
 39. │     └─vctrs::vec_as_location(...)
 40. └─vctrs (local) `<fn>`()
 41.   └─vctrs:::stop_subscript_oob(...)
 42.     └─vctrs:::stop_subscript(...)
 43.       └─rlang::abort(...)
Execution halted