fix: lintr space and lines

epiverse-trace · Sep 18, 2024 · e8cf594 · e8cf594
1 parent 8ed0bfd
commit e8cf594
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 5 deletions.
diff --git a/R/cleaning_data.R b/R/cleaning_data.R
@@ -148,8 +148,10 @@ convert_edad <- function(data_event,
       dplyr::mutate(
         data_event,
         {{ col_edad }} := dplyr::case_when(
-          .data[[col_uni_med]] == 1 ~ round(.data[[col_edad]] * 365 * 24 * 60, 3),
-          .data[[col_uni_med]] == 2 ~ round(.data[[col_edad]] * 30 * 24 * 60, 3),
+          .data[[col_uni_med]] == 1 ~
+            round(.data[[col_edad]] * 365 * 24 * 60, 3),
+          .data[[col_uni_med]] == 2 ~
+            round(.data[[col_edad]] * 30 * 24 * 60, 3),
           .data[[col_uni_med]] == 3 ~ round(.data[[col_edad]] * 24 * 60, 3),
           .data[[col_uni_med]] == 4 ~ round(.data[[col_edad]] * 60, 3),
           .data[[col_uni_med]] == 5 ~ round(.data[[col_edad]], 3)

diff --git a/R/utils.R b/R/utils.R
@@ -433,7 +433,7 @@ obtener_eventos_relacionados <- function(nombre_event, years) {
   grupo_events <-
     list_events[which(stringr::str_detect(
       list_events$enfermedad,
-      gsub("([()])", "\\\\\\1",substr(
+      gsub("([()])", "\\\\\\1", substr(
         nombre_event,
         1,
         nchar(nombre_event) - 1

diff --git a/inst/rmarkdown/templates/reports/skeleton/skeleton.Rmd b/inst/rmarkdown/templates/reports/skeleton/skeleton.Rmd
@@ -1,11 +1,11 @@
 ---
 output:
-  pdf_document:
-    number_sections: true
   html_document:
     number_sections: true
     fig_caption: true
     css: style.css
+  pdf_document:
+    number_sections: true
   word_document: 
     number_sections: true
 header-includes: