make check happy

Author: dsweber2

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

@@ -168,13 +168,13 @@ 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.
+  msg <-"{cli::symbol$warn} epidatr cache is being used (set env var EPIDATR_USE_CACHE=FALSE if not intended).
+   {cli::symbol$info} The cache directory is {cache_dir}.
+   {cli::symbol$info} The cache will be cleared after {days} day{ifelse(days>1,'s','')} and will be pruned if it exceeds {max_size} MB.
+   {cli::symbol$info} The log of cache transactions is stored at {file.path(cache_dir, logfile)}."
   rlang::inform(cli::format_inline(msg), class = "packageStartupMessage")
-  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} 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)}."
-  ))
 }
 
 #' Manually reset the cache, deleting all currently saved data and starting afresh

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")
+}