R/folder.test.R

In activPAL: Advanced Processing and Chart Generation from activPAL Events Files

valid.folder.path <-
  function(file_path){
    if(is.null(file_path)){
      # No folder specified
      return(FALSE)
    }
    if(!dir.exists(file_path)){
      # Folder does not exist
      return(FALSE)
    }
    return(TRUE)
  }

valid.file.path <-
  function(file_path){
    if(is.null(file_path)){
      # No file specified
      return(FALSE)
    }
    if(!file.exists(file_path)){
      # File does not exist
      return(FALSE)
    }
    return(TRUE)
  }