R getURL() – Quick SFTP File Transfer

This code will help quickly transfer data from a remote server, instead of using SFTP/FTP client, like WinSCP.

# 1. Load "RCurl" package 
library ("RCurl")

# Input #
protocol <- "sftp"
server <- "12.345.6.789"
userpwd <- "user:pwd"
tsfrFilename <- "/test/example.csv" #you can transfer other kinds, like text, as well.
ouptFilename <- "~/output/example.csv"

# Run #
## Download Data
url <- paste0(protocol, "://", server, tsfrFilename)
data <- getURL(url = url, userpwd=userpwd)

## Create File
fconn <- file(ouptFilename)
writeLines(data, fconn)
close(fconn)