Я пытаюсь подключиться к ftp-серверу в r и хочу загрузить файл. Это полностью успешно, когда я использую этот код работает в автономном режиме.
url = "ftp://user:pswd@000.000.0.00/folder_name"
filenames <- getURL(url,ftp.use.epsv = FALSE,dirlistonly = TRUE)
userpwd <- "user:password"
filenames = paste(url,"/", strsplit(filenames, "\r*\n")[[1]], sep =
"")
con = getCurlHandle( ftp.use.epsv = FALSE)
download_ftp_file <- function(file_remote, file_output, credentials =
"",
curl = FALSE, verbose = FALSE, progress =
"none") {
# Check
if (!length(file_remote) == length(file_output))
stop("Remote and output vectors need to be the same length...", call.
= FALSE)
# Build mapping data frame
df_map <- data.frame(
file_remote = file_remote,
file_output = file_output,
stringsAsFactors = FALSE
)
# Do
plyr::a_ply(
df_map,
1,
download_ftp_file_worker,
credentials,
curl,
verbose,
.progress = progress
)
# No return
}
Это успешно, но тот же код, когда я использую его в моем блестящем приложении, я получаю ошибку:
Предупреждение: ошибка в: сервер отказал вам в переходе на указанный
каталог
Как решить эту проблему, пожалуйста, помогите мне ...