EQUALencrypt (version 0.1.0)

EQUAL_perform_data_encryption: Wrapper function for data encryption

Description

"A wrapper function which takes the user input obtained via the Rshiny app, generates muliple sets of private and public encryption keys corresponding to the levels of access using the EQUAL_encrypt_generate_keys() function, encrypts different columns using encryption keys corresponding to the level of access using the EQUAL_encrypt_data() function, and inserts digital signature on the encrypted data using the EQUAL_insert_signature_data() function."

Usage

EQUAL_perform_data_encryption(rv, server_address = tempdir())

Value

"

html_message

message to the user which includes whether the encryption was successfully performed

"

encrypted_file_name

path to the encrypted file

Arguments

rv

A list supplied by EQUAL-STATS application based on user input

server_address

default address is tempdir(). If a different address is provided, a local copy of the file uploaded for encryption is retained.

Author

Kurinchi Gurusamy

References

https://sites.google.com/view/equal-group/home

See Also

EQUAL_encrypt_data() EQUAL_insert_signature_file()

Examples

library(openssl)
# Data ####
data <- lapply(1:3, function(x) {
  mean = sample(1:100, 1, replace = FALSE)
  sd = sample(1:100, 1, replace = FALSE)
  rnorm(100, mean = mean, sd = sd)
})
data <- do.call(cbind.data.frame, data)
colnames(data) <- paste0("v", formatC(1:3, width = 6, flag = "0"))
test_file <- write.csv(data, paste0(tempdir(), "/test.csv"), row.names = FALSE,
na = "")
# Simulate the rv variable ####
rv <- {list(
  file_upload_encrypt = cbind.data.frame(datapath = paste0(tempdir(),
  "/test.csv")),
  level_1 = "v000002",
  level_2 = "",
  level_3 = "v000003",
  level_4 = "",
  level_5 = "v000001",
  level_6 = "",
  level_7 = ""
)}
# Encrypt data ####
encrypted_data <- EQUAL_perform_data_encryption(rv, server_address = tempdir())