#' Sample skeleton for custom science - Main application function
#'
#' @import keboola.r.docker.application
#' @export
#' @param datadir Path to data directory.
doSomething <- function(datadir) {
# read input
# Get the file from FTP
# do something
app <- DockerApplication$new(datadir)
app$readConfig()
UserName <- app$getParameters()$UserName
PassWord <- app$getParameters()$PassWord
url <- "sftp://transfer6.silverpop.com/download/"
userpwd <- paste0(UserName,":",PassWord)
last_file_df <- read.csv("in/tables/last_file.csv")
last_file <- last_file_df[1,1]
zipfile <- getBinaryURL(paste(url,last_file,sep=""), userpwd = userpwd)
writeBin(zipfile, "test.zip")
unzip("test.zip")
csv_file <- gsub("zip","csv",last_file)
df <- read.csv(csv_file)
write.csv(df, file = file.path(datadir, "out/tables/events.csv"), row.names = FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.