sftp get files with R [closed]

Answer 1

x<-getURL("sftp://site.com/filename.txt", userpwd="id:passed")
fileConn<-file("output.txt")
writeLines(x, fileConn)
close(fileConn)
y<-readLines("output.txt")

now I can parse out the y. This is what I come up with. Let me know there may be a better way to do this?