Writes each table in the RCDF object to a .dta file for use in Stata.
Examples
dir <- system.file("extdata", package = "rcdf")
rcdf_path <- file.path(dir, 'mtcars.rcdf')
private_key <- file.path(dir, 'sample-private-key-pw.pem')
rcdf_data <- read_rcdf(path = rcdf_path, decryption_key = private_key, password = '1234')
temp_dir <- tempdir()
write_rcdf_dta(data = rcdf_data, path = temp_dir)
unlink(temp_dir, force = TRUE)