extras/TestCode.R

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")
OHDSI/OhdsiSharing documentation built on Sept. 4, 2023, 3:55 p.m.