safer (version 0.1.0)

encrypt_file: Encrypt a file

Description

encrypt_file) encrypts a file as a binary or a ascii file. decrypt_file) decrypts a text or a binary file (encrypted by encrypt_file)

Usage

encrypt_file(infile, outfile, ascii = FALSE, key = "pass",
  method = "symmetric")

Arguments

infile

file to be encrypted

outfile

Non-existant file where the encrypted output is to be written

ascii

TRUE if the outfile is to be encrypted as a ascii file. Default is FALSE

key

A string without embbeded NULL. Default is 'pass'.

method

Currently, a stub. It should be 'symmetric'(default)

Value

An invisible TRUE

Examples

# NOT RUN {
write.table(iris, "iris.csv")
all(
  encrypt_file("iris.csv", "iris_encrypted.bin")
  , file.exists("iris_encrypted.bin")
  , decrypt_file("iris_encrypted.bin", "iris_2.csv")
  , file.exists("iris_2.csv")
  , tools::md5sum("iris_2.csv") == tools::md5sum("iris.csv")
  , unlink("iris.csv") == 0
  , unlink("iris_2.csv") == 0
  , unlink("iris_encrypted.bin") == 0
)

write.table(iris, "iris.csv")
all(
  encrypt_file("iris.csv", "iris_encrypted.txt", ascii = TRUE)
  , file.exists("iris_encrypted.txt")
  , decrypt_file("iris_encrypted.txt", "iris_2.csv", ascii = TRUE)
  , file.exists("iris_2.csv")
  , tools::md5sum("iris_2.csv") == tools::md5sum("iris.csv")
  , unlink("iris.csv") == 0
  , unlink("iris_2.csv") == 0
  , unlink("iris_encrypted.txt") == 0
)

# }

Run the code above in your browser using DataCamp Workspace