Post 1.0 release

.github/pull_request_template.md

@@ -4,8 +4,8 @@ Please:
 
 - [ ] Make sure this PR is against "dev", not "main" (unless this is a release
       PR).
-- [ ] Request a review from one of the current epiprocess main reviewers:
-      brookslogan, nmdefries.
+- [ ] Request a review from one of the current epidatr main reviewers:
+      brookslogan, dshemetov, nmdefries, dsweber2.
 - [ ] Makes sure to bump the version number in `DESCRIPTION`. Always increment
       the patch version number (the third number), unless you are making a
       release PR from dev to main, in which case increment the minor version

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: epidatr
 Type: Package
 Title: Client for Delphi's 'Epidata' API
-Version: 1.0.2
+Version: 1.1.0
 Date: 2023-12-07
 Authors@R:
   c(

DEVELOPMENT.md

@@ -45,5 +45,20 @@ python -m http.server -d docs
 Please follow the guidelines in the [PR template document](.github/pull_request_template.md).
 
 ## Release process
+First, there's a handy function that makes a github issue; for example, at the time of writing we were doing:
+```R
+usethis::use_release_issue(version = "1.0.2")
+```
+If you want to extend it, add to the `release_bullets` function in [utils.R](https://github.com/cmu-delphi/epidatr/blob/dev/R/utils.R).
+ First, make sure that all the checks pass
+
+```R
+devtools::check(".", manual = TRUE, env_vars =c(NOT_CRAN = "false"))
+```
 
-TBD
+Aim for 10/10, no notes.
+
+When this has gone smoothly enough, release to CRAN via
+```R
+devtools::release(check = TRUE)
+```

NAMESPACE

@@ -81,6 +81,7 @@ importFrom(openssl,md5)
 importFrom(purrr,map_chr)
 importFrom(purrr,map_lgl)
 importFrom(readr,read_csv)
+importFrom(stats,na.omit)
 importFrom(tibble,as_tibble)
 importFrom(tibble,tibble)
 importFrom(utils,help.search)

R/cache.R

@@ -90,6 +90,8 @@ cache_environ$epidatr_cache <- NULL
 #'   variable is `EPIDATR_CACHE_LOGFILE`.
 #' @param confirm whether to confirm directory creation. default is `TRUE`;
 #'   should only be set in non-interactive scripts
+#' @param startup indicates whether the function is being called on
+#'   startup. Affects suppressability of the messages. Default is `FALSE`.
 #' @return [`NULL`] no return value, all effects are stored in the package
 #'         environment
 #' @seealso [`clear_cache`] to delete the old cache while making a new one,
@@ -102,7 +104,8 @@ set_cache <- function(cache_dir = NULL,
                       days = NULL,
                       max_size = NULL,
                       logfile = NULL,
-                      confirm = TRUE) {
+                      confirm = TRUE,
+                      startup = FALSE) {
   if (is.null(cache_dir)) {
     cache_dir <- Sys.getenv("EPIDATR_CACHE_DIR", unset = rappdirs::user_cache_dir("R", version = "epidatr"))
   } else if (is.null(cache_dir)) {
@@ -168,12 +171,14 @@ set_cache <- function(cache_dir = NULL,
     )
   }
 
+  # this is effectively a startup message, and for some reason, cli_inform doesn't support start suppression, so we're on our own
+  # https://github.com/r-lib/cli/issues/589 when this closes we can go back.
   cli::cli_inform(c(
     "!" = "epidatr cache is being used (set env var EPIDATR_USE_CACHE=FALSE if not intended).",
     "i" = "The cache directory is {cache_dir}.",
-    "i" = "The cache will be cleared after {days} days and will be pruned if it exceeds {max_size} MB.",
+    "i" = "The cache will be cleared after {days} day{ifelse(days>1,'s','')} and will be pruned if it exceeds {max_size} MB.",
     "i" = "The log of cache transactions is stored at {file.path(cache_dir, logfile)}."
-  ))
+  ), class = if (startup) "packageStartupMessage" else NULL)
 }
 
 #' Manually reset the cache, deleting all currently saved data and starting afresh

R/epidatr-package.R

@@ -11,6 +11,6 @@
   cache_environ$use_cache <- Sys.getenv("EPIDATR_USE_CACHE", unset = FALSE)
   cache_environ$use_cache <- (cache_environ$use_cache == "TRUE")
   if (cache_environ$use_cache) {
-    set_cache()
+    set_cache(startup = TRUE)
   }
 }

R/model.R

@@ -165,6 +165,7 @@ print.EpidataFieldInfo <- function(x, ...) {
   cli::cli_dl(x[attr(x, "names")])
 }
 
+#' @importFrom stats na.omit
 parse_value <- function(info, value, disable_date_parsing = FALSE) {
   stopifnot(inherits(info, "EpidataFieldInfo"))
 

R/utils.R

@@ -61,3 +61,9 @@ get_wildcard_equivalent_dates <- function(time_value, time_type = c("day", "week
   }
   return(time_value)
 }
+
+#' inserts each string as a bullet at the end of the "Prepare for release" section
+#' @keywords internal
+release_bullets <- function() {
+  c("merge to main")
+}