This function can be used to rename the columns a linelist
, adjusting tags
as needed.
Usage
# S3 method for class 'linelist'
names(x) <- value
Examples
if (require(outbreaks)) {
## dataset to create a linelist from
measles_hagelloch_1861
## create linelist
x <- make_linelist(measles_hagelloch_1861,
id = "case_ID",
date_onset = "date_of_prodrome",
age = "age",
gender = "gender"
)
head(x)
## change names
names(x)[1] <- "case_label"
## see results: tags have been updated
head(x)
tags(x)
# This also works with using `dplyr::rename()` because it uses names<-()
# under hood
if (require(dplyr)) {
x <- x %>%
rename(case_id= case_label)
head(x)
tags(x)
}
}
#> $id
#> [1] "case_id"
#>
#> $date_onset
#> [1] "date_of_prodrome"
#>
#> $gender
#> [1] "gender"
#>
#> $age
#> [1] "age"
#>