use identical to compare as_of and issues to *

Author: nmdefries

R/utils.R

@@ -29,8 +29,8 @@ check_is_recent <- function(dates, max_age) {
 #'
 #' @keywords internal
 check_is_cachable <- function(epidata_call, fetch_args) {
-  as_of_cachable <- (!is.null(epidata_call$params$as_of) && epidata_call$params$as_of != "*")
-  issues_cachable <- (!is.null(epidata_call$params$issues) && all(epidata_call$params$issues != "*"))
+  as_of_cachable <- (!is.null(epidata_call$params$as_of) && !identical(epidata_call$params$as_of, "*"))
+  issues_cachable <- (!is.null(epidata_call$params$issues) && all(!identical(epidata_call$params$issues, "*")))
   is_cachable <- (
     !is.null(cache_environ$epidatr_cache) &&
       (as_of_cachable || issues_cachable) &&