R/sftpUpload.R

In Sage-Bionetworks/Rsftp: Tools for Communicating via SSH File Transfer Protocol (SFTP)

# sftpUpload -- download a file from an sftp server
# returns TRUE if successful, FALSE otherwise
# 
# Author: brucehoff
###############################################################################

sftpUpload<-function(host, username, password, remotepath, localpath) {
  resetState()
  result<-.C("sftp_upload",
    as.character(host), 
    as.character(username), 
    as.character(password), 
    as.character(remotepath), 
    as.character(localpath), 
    as.integer(0),
    PACKAGE="Rsftp")
  if (result[[6]]==0) return(TRUE) else return(FALSE)
}