library(OhdsiSharing)
# SFTP --------------------------------------------------------------------
connection <- sftpConnect("c:/temp/sftp/study-coordinator-test", "study-coordinator-test")
connection <- sftpConnect("c:/temp/sftp/study-data-site-test", "study-data-site-test")
sftpLs(connection)
sftpGetFiles(connection, "einots6u_test.csv", "c:/temp/sftp/test.csv")
files <- sftpLs(connection)
sftpGetFiles(connection, files$fileName, localFolder = "c:/temp/sftp")
sftpRename(connection, "cars4.csv", "cars5.csv")
sftpRm(connection, "cars.csv")
files <- sftpLs(connection)
sftpRm(connection, files$fileName)
sftpMkdir(connection, "testDir")
sftpCd(connection, "testDir")
sftPwd(connection)
sftpCd(connection, "..")
sftPwd(connection)
sftpRmdir(connection, "testDir")
sftpPutFile(connection, "c:/temp/sftp/cars.csv")
sftpPutFile(connection, "c:/temp/sftp/cars.csv", remoteFileName = "testDir/test.csv")
sftpDisconnect(connection)
# Three in one: connect - put - disconnect
sftpUploadFile(privateKeyFileName = "c:/temp/sftp/study-data-site-test",
userName = "study-data-site-test",
remoteFolder = "testDir",
fileName = "c:/temp/sftp/cars.csv")
# Encryption --------------------------------------------------------------
generateKeyPair("s:/temp/public.key", "s:/temp/private.key")
data <- data.frame(x = runif(1000), y = 1:1000)
saveRDS(data, "s:/temp/data.rds", compress = "xz")
encryptFile("s:/temp/data.rds", "s:/temp/data.rds.enc", "s:/temp/public.key")
decryptFile("s:/temp/data.rds.enc", "s:/temp/data2.rds", "s:/temp/private.key")
data2 <- readRDS("s:/temp/data.rds")
all.equal(data, data2)
if (!file.exists("s:/temp/test")) {
dir.create("s:/temp/test")
}
data <- data.frame(x = runif(1000), y = 1:1000)
saveRDS(data, "s:/temp/test/data1.rds", compress = "xz")
saveRDS(data, "s:/temp/test/data2.rds", compress = "xz")
compressAndEncryptFolder("s:/temp/test", "s:/temp/data.zip.enc", "s:/temp/public.key")
decryptAndDecompressFolder("s:/temp/data.zip.enc", "s:/temp/test2", "s:/temp/private.key")
# Compression -------------------------------------------------------------
setwd("s:/")
compressFolder("temp/test", "temp/data.zip")
decompressFolder("s:/temp/data.zip", "s:/temp/test2")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.