R/sftpMakeDirectory.R

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

# sftpMakeDirectory -- create a directory on an sftp server
# returns TRUE if successful, FALSE otherwise
# 
# Author: brucehoff
###############################################################################

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