openssl objects to missing padding

cboettig · Jan 21, 2025 · 95d70b4 · 95d70b4
1 parent 6a5d9f0
commit 95d70b4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/format_identifiers.R b/R/format_identifiers.R
@@ -112,7 +112,7 @@ from_ni <- function(x){
 
   hash <-  gsub(paste0("^ni:///([a-zA-Z0-9]+);", base64_regex), "\\2", x)
   algo <- gsub(paste0("^ni:///", algo_regex,  ";", hash), "\\1", x)
-  hex <- paste0(openssl::base64_decode(hash), collapse = "")
+  hex <- paste0(jsonlite::base64_dec((hash), collapse = "")
   paste0("hash://", algo, "/", hex)
 
 }