setupTestEnvironment <- function() {
randomName <- function() paste0(sample(letters, 10), collapse = "")
# setup folder
dirName <- paste0(tempdir(), "/", randomName(), "/")
dirName2 <- paste0(tempdir(), "/", randomName(), "/")
dir.create(dirName)
dir.create(dirName2)
nestedFolder <- paste0(dirName, "nestedFolder/")
dir.create(nestedFolder)
nestedFolderWithSpace <- paste0(dirName, "nested folder/")
dir.create(nestedFolderWithSpace)
nestedFolderWithTwoSpaces <- paste0(dirName, "nested folder/")
dir.create(nestedFolderWithTwoSpaces)
# create some files
x <- 1
y <- 2
save(list = "x", file = paste0(dirName, "x.Rdata"))
save(list = "y", file = paste0(dirName, "y.Rdata"))
save(list = "y", file = paste0(nestedFolderWithSpace, "y.Rdata"))
save(list = "x", file = paste0(dirName, ".x.Rdata"))
rsync(
src = dirName,
dest = dirName2
)
}
setupS3TestEnvironment <- function() {
randomName <- function() paste0(sample(letters, 10), collapse = "")
# setup folder
dirName <- paste0(tempdir(), "/", randomName(), "/")
dir.create(dirName)
nestedFolder <- paste0(dirName, "nestedFolder/")
dir.create(nestedFolder)
folderWithSpace <- paste0(dirName, "nested folder/")
dir.create(folderWithSpace)
folderWithTwoSpaces <- paste0(dirName, "nested folder/")
dir.create(folderWithTwoSpaces)
# create some files
x <- 1
y <- 2
save(list = "x", file = paste0(dirName, "x.Rdata"))
save(list = "y", file = paste0(dirName, "y.Rdata"))
save(list = "y", file = paste0(dirName, ".y.Rdata"))
save(list = "y", file = paste0(nestedFolder, "y.Rdata"))
save(list = "y", file = paste0(folderWithSpace, "y.Rdata"))
save(list = "y", file = paste0(folderWithTwoSpaces, "y.Rdata"))
awss3(
src = dirName,
dest = "s3://inwt-testing",
profile = "testing"
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.