R/bdy.copy.R

In yikeshu0611/RBaiduYun: Request Baidu Yun by R

#' copy files
#'
#' @param ... one or more files or directory
#' @param todir one or more directory
#'
#' @export
#'
bdy.copy <- function(...,todir){
    files = c(...)
    for (j in 1:length(todir)) {
        cat('\n\n',crayon::bgCyan('          '))
        cat('   ',paste(j,todir[j]),'   ')
        cat(crayon::bgCyan('          '))
        for (i in 1:length(files)) {
            cat('\n',crayon::red(paste(i,files[i])),'\n')
            command <- paste('BaiduPCS-Go.exe cp',
                             files[i],
                             todir[j])
            x <- system(command = command,
                        intern = T,show.output.on.console = F)
            Encoding(x) = 'UTF-8'
            cat(paste0(x,collapse = '\n'))
        }
    }
}