Hash columns of a dataframe

gistfile1.txt

library(digest)
library(stringr)
library(readr)

hashed_id <- function(x, salt){
  y <- paste(x, salt)
  y <- sapply(y, function(X) digest(X, algo = "sha1"))
  as.character(y)
}

hash_columns <- function(df, cols_to_hash, salt) {
  df[,cols_to_hash] <- sapply(df[,cols_to_hash], hashed_id, salt)
  df
}

salt <- stringi::stri_rand_strings(1, 10)
print(salt)

output_example <- hash_columns(head(emergency_adms, 1000),
                               cols_to_hash = c("PseudoID","AgeBand"),
                               salt = salt)