Listar arquivos de servidor remoto

listar_arquivos.R

listar_arquivos <- function(session, dir = ".", pattern = NULL, all = FALSE, recursive = FALSE, full_names = FALSE){
  
  if (all == TRUE & recursive == TRUE){
  
    argumento <- paste0("ls -a -R ",dir," | ","egrep ",pattern)
  
  } else if (all == TRUE){
    
    argumento <- paste0("ls -a ",dir," | ","egrep ",pattern)
    
  } else if (recursive == TRUE){
    
    argumento <- paste0("ls -R ",dir," | ","egrep ",pattern)
    
  } else 
    
    argumento <- paste0("ls ",dir," | ","egrep ",pattern)
  
 

  if (is.null(pattern)){
    
    argumento <- gsub("\\|.*","",argumento)
    
    }
  
 files <- ssh::ssh_exec_internal(session,argumento)$stdout %>% 
    rawToChar() %>% 
    strsplit("\n") %>% 
    unlist()
  
  if (full_names == TRUE){
    
 fn <- ssh::ssh_exec_internal(session,"pwd")$stdout %>% 
    rawToChar() %>% 
    strsplit("\n") %>% 
    unlist() %>% 
    file.path(dir)
 
 files <- file.path(fn,files) %>% 
   gsub("//","/",.)
  }
  
 files <- gsub("/root","",files)
 
  files <- gsub("/~","",files)

  
 return(files)
}