Fix to sotkanet_interactive

rOpenGov · Jul 5, 2024 · bbdaf9f · bbdaf9f
1 parent a009472
commit bbdaf9f
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/R/sotkanet_interactive.R b/R/sotkanet_interactive.R
@@ -168,15 +168,15 @@ sotkanet_interactive <- function(code = NULL){
   }
 
   if (exists("sotkanet_data")){
-    print_code <- switch(
+    print_fixity <- switch(
       menu(choices = c("Yes", "No"),
            title = "Print dataset fixity checksum?") + 1,
       return(invisible()),
       TRUE,
       FALSE
     )
 
-    if (print_code){
+    if (print_fixity){
       fixity <- sotkanet_fixity(sotkanet_data, algorithm = "md5")
       capture.output(cat("#### FIXITY CHECKSUM: \n\n"),
                      file = tempfile_for_sink, append = TRUE)
@@ -189,7 +189,9 @@ sotkanet_interactive <- function(code = NULL){
   }
 
   if (exists("sotkanet_data")){
-    cat(readLines(tempfile_for_sink), sep = "\n")
+    if (print_code || print_citation || print_fixity) {
+      cat(readLines(tempfile_for_sink), sep = "\n")
+    }
     return(sotkanet_data)
   }