linting

PaulC91 · May 16, 2024 · 9ecf667 · 9ecf667
1 parent ceeea4b
commit 9ecf667
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 8 deletions.
diff --git a/R/coercion.R b/R/coercion.R
@@ -199,7 +199,7 @@ epidist_df_to_epidist <- function(x, ...) {
   }
 
   # remove <AsIs> from citation
-  class(x$citation) <- class(x$citation)[!class(x$citation) == "AsIs"]
+  class(x$citation) <- class(x$citation)[!class(x$citation) == "AsIs"] # nolint class_equals_linter
 
   # return <epidist> from class constructor
   epidist(
@@ -228,8 +228,6 @@ epidist_df_to_epidist <- function(x, ...) {
 #' as it will be matched by name by `$`.
 #'
 #' @param x A `<data.frame>`.
-#' @param article A `<data.frame>` with bibliographic information on the
-#' epidemiological parameters. See Details for more information.
 #' @param ... [dots] Extra arguments to pass to [epidist()].
 #'
 #' @inherit epidist return

diff --git a/man/epireview_to_epidist.Rd b/man/epireview_to_epidist.Rd
diff --git a/vignettes/articles/data_from_epireview.Rmd b/vignettes/articles/data_from_epireview.Rmd
@@ -111,7 +111,7 @@ Now we can repeat the example of converting to `<epidist>` as shown above, but t
 
 ```{r, convert-to-epidist-full-citation}
 marburg_incub_epidist <- as_epidist(
-  marburg_incub, 
+  marburg_incub,
   articles = marburg_incub_article
 )
 marburg_incub_epidist
@@ -138,7 +138,7 @@ multi_row_ids <- marburg_params$id[multi_row_entries]
 ```
 
 ```{r, subset-multi-row-entries}
-multi_row_marburg_params <- 
+multi_row_marburg_params <-
   marburg_params[marburg_params$id %in% multi_row_ids, ]
 ```