style: styler (GHA)

Author: nmdefries

R/data.R

@@ -108,18 +108,18 @@ delayed_assign_with_unregister_awareness <- function(x, value,
 #' @format An `epi_archive` data format. The data table DT has 129,638 rows and 5 columns.
 #' @inheritSection epidatasets::archive_cases_dv_subset_dt Data dictionary
 #' @examples
-#'  # Since this is a re-exported dataset, it cannot be loaded using
-#'  # the `data()` function. `data()` looks for a file of the same name
-#'  # in the `data/` directory, which doesn't exist in this package.
-#'  # works
-#'  epiprocess::archive_cases_dv_subset
+#' # Since this is a re-exported dataset, it cannot be loaded using
+#' # the `data()` function. `data()` looks for a file of the same name
+#' # in the `data/` directory, which doesn't exist in this package.
+#' # works
+#' epiprocess::archive_cases_dv_subset
 #'
-#'  # works
-#'  library(epiprocess)
-#'  archive_cases_dv_subset
+#' # works
+#' library(epiprocess)
+#' archive_cases_dv_subset
 #'
-#'  # fails
-#'  data(archive_cases_dv_subset, package = "epiprocess")
+#' # fails
+#' data(archive_cases_dv_subset, package = "epiprocess")
 #'
 #' @export
 # Like normal data objects, set `archive_cases_dv_subset` up as a promise, so it

R/reexports.R

@@ -82,71 +82,71 @@ ggplot2::autoplot
 #' @inherit epidatasets::cases_deaths_subset description source references title
 #' @inheritSection epidatasets::cases_deaths_subset Data dictionary
 #' @examples
-#'  # Since this is a re-exported dataset, it cannot be loaded using
-#'  # the `data()` function. `data()` looks for a file of the same name
-#'  # in the `data/` directory, which doesn't exist in this package.
-#'  # works
-#'  epiprocess::cases_deaths_subset
+#' # Since this is a re-exported dataset, it cannot be loaded using
+#' # the `data()` function. `data()` looks for a file of the same name
+#' # in the `data/` directory, which doesn't exist in this package.
+#' # works
+#' epiprocess::cases_deaths_subset
 #'
-#'  # works
-#'  library(epiprocess)
-#'  cases_deaths_subset
+#' # works
+#' library(epiprocess)
+#' cases_deaths_subset
 #'
-#'  # fails
-#'  data(cases_deaths_subset, package = "epiprocess")
+#' # fails
+#' data(cases_deaths_subset, package = "epiprocess")
 #' @export
 cases_deaths_subset <- epidatasets::cases_deaths_subset
 
 #' @inherit epidatasets::covid_incidence_county_subset description source references title
 #' @inheritSection epidatasets::covid_incidence_county_subset Data dictionary
 #' @examples
-#'  # Since this is a re-exported dataset, it cannot be loaded using
-#'  # the `data()` function. `data()` looks for a file of the same name
-#'  # in the `data/` directory, which doesn't exist in this package.
-#'  # works
-#'  epiprocess::covid_incidence_county_subset
+#' # Since this is a re-exported dataset, it cannot be loaded using
+#' # the `data()` function. `data()` looks for a file of the same name
+#' # in the `data/` directory, which doesn't exist in this package.
+#' # works
+#' epiprocess::covid_incidence_county_subset
 #'
-#'  # works
-#'  library(epiprocess)
-#'  covid_incidence_county_subset
+#' # works
+#' library(epiprocess)
+#' covid_incidence_county_subset
 #'
-#'  # fails
-#'  data(covid_incidence_county_subset, package = "epiprocess")
+#' # fails
+#' data(covid_incidence_county_subset, package = "epiprocess")
 #' @export
 covid_incidence_county_subset <- epidatasets::covid_incidence_county_subset
 
 #' @inherit epidatasets::covid_incidence_outliers description source references title
 #' @inheritSection epidatasets::covid_incidence_outliers Data dictionary
 #' @examples
-#'  # Since this is a re-exported dataset, it cannot be loaded using
-#'  # the `data()` function. `data()` looks for a file of the same name
-#'  # in the `data/` directory, which doesn't exist in this package.
-#'  # works
-#'  epiprocess::covid_incidence_outliers
+#' # Since this is a re-exported dataset, it cannot be loaded using
+#' # the `data()` function. `data()` looks for a file of the same name
+#' # in the `data/` directory, which doesn't exist in this package.
+#' # works
+#' epiprocess::covid_incidence_outliers
 #'
-#'  # works
-#'  library(epiprocess)
-#'  covid_incidence_outliers
+#' # works
+#' library(epiprocess)
+#' covid_incidence_outliers
 #'
-#'  # fails
-#'  data(covid_incidence_outliers, package = "epiprocess")
+#' # fails
+#' data(covid_incidence_outliers, package = "epiprocess")
 #' @export
 covid_incidence_outliers <- epidatasets::covid_incidence_outliers
 
 #' @inherit epidatasets::jhu_confirmed_cumulative_num description source references title
 #' @inheritSection epidatasets::jhu_confirmed_cumulative_num Data dictionary
 #' @examples
-#'  # Since this is a re-exported dataset, it cannot be loaded using
-#'  # the `data()` function. `data()` looks for a file of the same name
-#'  # in the `data/` directory, which doesn't exist in this package.
-#'  # works
-#'  epiprocess::jhu_confirmed_cumulative_num
+#' # Since this is a re-exported dataset, it cannot be loaded using
+#' # the `data()` function. `data()` looks for a file of the same name
+#' # in the `data/` directory, which doesn't exist in this package.
+#' # works
+#' epiprocess::jhu_confirmed_cumulative_num
 #'
-#'  # works
-#'  library(epiprocess)
-#'  jhu_confirmed_cumulative_num
+#' # works
+#' library(epiprocess)
+#' jhu_confirmed_cumulative_num
 #'
-#'  # fails
-#'  data(jhu_confirmed_cumulative_num, package = "epiprocess")
+#' # fails
+#' data(jhu_confirmed_cumulative_num, package = "epiprocess")
 #' @export
 jhu_confirmed_cumulative_num <- epidatasets::jhu_confirmed_cumulative_num

vignettes/archive.Rmd

@@ -49,7 +49,7 @@ dv <- pub_covidcast(
   geo_values = "ca,fl,ny,tx",
   time_values = epirange(20200601, 20211201),
   issues = epirange(20200601, 20211201)
-) %>% 
+) %>%
   rename(version = issue, percent_cli = value)
 ```