Fix crash when using cache with no-output operators

Author: eliocamp

pkg_build/extra-R/cdo.R

@@ -212,13 +212,15 @@ cdo_execute <- function(
 ) {
   check_cdo_version(get_cdo())
 
+  use_cache <- FALSE
   # Need to first build the hash to make temp output deterministic
   if (isTRUE(cache)) {
     if (operation$operator$n_output != 1) {
       cli::cli_alert_warning(
         "Cache only works with oeprations with 1 file output."
       )
     }
+    use_cache <- TRUE
     hash_current <- rlang::hash(list(
       get_cdo_version(get_cdo()),
       build_operation(
@@ -248,7 +250,7 @@ cdo_execute <- function(
     options_replace = options_replace
   )
 
-  if (isTRUE(cache)) {
+  if (use_cache) {
     hash_file <- paste0(operation$output, ".hash")
 
     if (file.exists(operation$output)) {
@@ -299,7 +301,7 @@ cdo_execute <- function(
     attr(operation$output, "size") <- sum(file.size(operation$output))
   }
 
-  if (isTRUE(cache)) {
+  if (use_cache) {
     writeLines(hash_current, hash_file)
   }