你怎么得到R中的远程文件的尾部-50

Question

我需要能够登录系统并获取文件的尾部-50。我有一组代码，但这会得到整个文件。由于文件太大，我需要每10分钟运行一次脚本并获取文件的最后50行。这就是我所拥有的：

library(RCurl)
for(k in 1:2) {
     day1<-day-k
     day1<-format(day1, "%Y%m%d")
     day_vector<-c(day_vector, day1)
}

servers<-c("ServerA", "ServerB","ServerC")

  for (i in 1:length(servers)) {
    for(j in 1:length(day_vector)) {
    ser_day<-paste(servers[i], day_vector[j], sep=".")
    url<-paste0(servers[i], ".example.net/opt/files/appl_log_")
    url<-paste(url, ser_day, sep="")
    url<-paste0("sftp://", url)

    tryCatch({

             x<-getURL(url, userpwd="account1:passwd1", connecttimeout=60)
             writeLines(x, paste0(servers[i], ".txt"))
            },error = function(e) 
            {
                    print("unable to get the file")

        })

有没有办法获得文件的尾部？