Add example data

.Rbuildignore

@@ -13,3 +13,4 @@
 ^docs$
 ^pkgdown$
 ^tools$
+^data-raw$

DESCRIPTION

@@ -23,3 +23,6 @@ Encoding: UTF-8
 Language: en-GB
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.2.3
+Depends: 
+    R (>= 3.5)
+LazyData: true

authoritative.Rproj

@@ -0,0 +1,17 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX
+
+BuildType: Package
+PackageUseDevtools: Yes
+PackageInstallArgs: --no-multiarch --with-keep.source

data-raw/cran_epidemiology_packages.R

@@ -0,0 +1,31 @@
+tf <- tempfile(fileext = ".md")
+# Default branch name can change between repos so we check first
+ctv_file_address <- gh::gh(
+  "/repos/{owner}/{repo}/contents/{path}",
+  owner = "cran-task-views",
+  repo = "Epidemiology",
+  path = "Epidemiology"
+)
+download.file(
+  ctv_file_address$download_url,
+  tf
+)
+
+ctv_pkgs <- ctv::read.ctv(tf) |> 
+  purrr::pluck("packagelist", "name") 
+
+cran_epidemiology_packages <- ctv_pkgs |>
+  purrr::map(pkgsearch::cran_package_history)
+
+cran_epidemiology_packages <- cran_epidemiology_packages |> 
+  dplyr::select(
+    Package, 
+    Version,
+    `Authors@R`,
+    Author,
+    Maintainer
+  )
+
+rownames(cran_epidemiology_packages) <- NULL
+
+usethis::use_data(cran_epidemiology_packages, overwrite = TRUE, version = 3)