safer as.character.nanoHash

Author: shikokuchuo

R/sha.R

@@ -142,7 +142,7 @@ sha512 <- function(x, key = NULL) .Call(rnng_sha512, x, key)
 
 #' @export
 #'
-as.character.nanoHash <- function(x, ...) .Call(rnng_hashToChar, x)
+as.character.nanoHash <- function(x, ...) paste0(unclass(x), collapse = "")
 
 #' @export
 #'

src/init.c

@@ -79,7 +79,6 @@ static const R_CallMethodDef CallEntries[] = {
   {"rnng_dialer_create", (DL_FUNC) &rnng_dialer_create, 2},
   {"rnng_dialer_set", (DL_FUNC) &rnng_dialer_set, 4},
   {"rnng_dialer_start", (DL_FUNC) &rnng_dialer_start, 2},
-  {"rnng_hashToChar", (DL_FUNC) &rnng_hashToChar, 1},
   {"rnng_listen", (DL_FUNC) &rnng_listen, 2},
   {"rnng_listener_close", (DL_FUNC) &rnng_listener_close, 1},
   {"rnng_listener_create", (DL_FUNC) &rnng_listener_create, 2},

src/nanonext.h

@@ -109,7 +109,6 @@ extern SEXP rnng_dialer_close(SEXP);
 extern SEXP rnng_dialer_create(SEXP, SEXP);
 extern SEXP rnng_dialer_set(SEXP, SEXP, SEXP, SEXP);
 extern SEXP rnng_dialer_start(SEXP, SEXP);
-extern SEXP rnng_hashToChar(SEXP);
 extern SEXP rnng_listen(SEXP, SEXP);
 extern SEXP rnng_listener_close(SEXP);
 extern SEXP rnng_listener_create(SEXP, SEXP);

src/sha.c

@@ -366,15 +366,3 @@ SEXP rnng_sha512(SEXP x, SEXP key) {
 
 }
 
-SEXP rnng_hashToChar(SEXP x) {
-
-  const unsigned char *hash = RAW(x);
-  R_xlen_t xlen = Rf_xlength(x);
-  char conv[xlen * 2];
-  for (int i = 0, a = 0; i < xlen; i++, a += 2)
-    sprintf(&conv[a], "%.2x", (int) hash[i]);
-
-  return Rf_mkString(conv);
-
-}
-