rename to keccak

jeroen · May 16, 2024 · 329befe · 329befe
1 parent 6ee47af
commit 329befe
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 5 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -89,6 +89,7 @@ export(ed25519_verify)
 export(encrypt_envelope)
 export(fingerprint)
 export(fips_mode)
+export(keccak)
 export(md4)
 export(md5)
 export(multihash)
@@ -136,6 +137,7 @@ export(write_ssh)
 export(x25519_diffie_hellman)
 export(x25519_keygen)
 import(askpass)
+importFrom(askpass,askpass)
 importFrom(utils,.DollarNames)
 useDynLib(openssl,R_RAND_bytes)
 useDynLib(openssl,R_aes_any)

diff --git a/NEWS b/NEWS
@@ -1,6 +1,6 @@
 2.2.0
  - Use new EVP_MD_fetch() api on libssl 3 to find non-default algorithms.
- - Add keccak256() hash function
+ - Add keccak() hash function
 
 2.1.2
  - MacOS: avoid linking against legacy versions of openssl

diff --git a/R/hash.R b/R/hash.R
@@ -99,8 +99,8 @@ sha512 <- function(x, key = NULL){
 
 #' @rdname hash
 #' @export
-keccak256 <- function(x, key = NULL){
-  rawstringhash(x, "keccak-256", key)
+keccak <- function(x, size = 256, key = NULL){
+  rawstringhash(x, paste0("keccak-", size), key)
 }
 
 #' @rdname hash

diff --git a/man/hash.Rd b/man/hash.Rd