fix: replaces as.integer with L

Ref: #194
epiverse-trace · Jul 29, 2024 · 3e268cb · 3e268cb
1 parent c806d18
commit 3e268cb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -504,7 +504,7 @@ obtener_cond_inciden_event <- function(cod_eve) {
   if (nrow(vals_event) == 0) {
     aux_event <-
       data.frame(cod_eve, "casos", "NA", "proyecciones", "NA",
-                 as.integer(10000),
+                 10000L,
         stringsAsFactors = FALSE
       )
     names(aux_event) <- names(vals_event)