Skip to content

Commit

Permalink
fix: lintr space and lines
Browse files Browse the repository at this point in the history
GeraldineGomez committed Sep 18, 2024

Verified

This commit was signed with the committer’s verified signature. The key has expired.
addaleax Anna Henningsen
1 parent 88fbd59 commit 5b9cad2
Showing 3 changed files with 7 additions and 5 deletions.
6 changes: 4 additions & 2 deletions R/cleaning_data.R
Original file line number Diff line number Diff line change
@@ -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)
2 changes: 1 addition & 1 deletion R/utils.R
Original file line number Diff line number Diff line change
@@ -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
4 changes: 2 additions & 2 deletions inst/rmarkdown/templates/reports/skeleton/skeleton.Rmd
Original file line number Diff line number Diff line change
@@ -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:

0 comments on commit 5b9cad2

Please sign in to comment.