template needed changing

Author: dsweber2

R/epi_df.R

@@ -162,6 +162,7 @@ new_epi_df <- function(x = tibble::tibble(), geo_type, time_type, as_of,
 #' guide](https://cmu-delphi.github.io/epiprocess/articles/epiprocess.html) for
 #' examples.
 #'
+#' @param ... Additional arguments passed to methods.
 #' @template epi_df-params
 #'
 #' @export

R/utils.R

@@ -510,7 +510,7 @@ version_column_names <- function() {
 #' @description
 #' potentially renames
 #' @param x the tibble to potentially rename
-#' @param substitions a named vector. the potential substitions, with every name `time_value`
+#' @param substitutions a named vector. the potential substitions, with every name `time_value`
 #' @keywords internal
 guess_column_name <- function(x, column_name, substitutions) {
   if (!(column_name %in% names(x))) {

man-roxygen/epi_df-params.R

@@ -15,5 +15,4 @@
 #'   `as_of` fields; named entries from the passed list will be included as
 #'   well. If your tibble has additional keys, be sure to specify them as a
 #'   character vector in the `other_keys` component of `additional_metadata`.
-#' @param ... Additional arguments passed to methods.
 #' @return An `epi_df` object.

man/guess_column_name.Rd

@@ -33,9 +33,13 @@ test_that("as_epi_archive custom name mapping works correctly", {
     as_epi_archive(dt)
   ))
 
-  expect_error(as_epi_archive(rename(dt, weirdName = version),
-    version = weirdName, version = time_value
-  ), "Names must be unique")
+  expect_error(
+    as_epi_archive(
+      rename(dt, weirdName = version),
+      version = weirdName,
+      version = time_value
+    ), "Names must be unique"
+  )
 })
 
 test_that("other_keys can only contain names of the data.frame columns", {