R/read_using.R

In moj-analytical-services/s3tools: Tools to help explore Amazon S3

#' Read from S3 using a particular function
#'
#' @param FUN a function to parse the data into
#' @param ... arguments for said function 
#' @param path path to the s3 file bucket/folder/file.txt
#'
#' @return whatever the function returns
#' @export 
#'
#' @examples s3tools:::read_using(FUN=readxl::read_excel, s3_path="alpha-test-team/mpg.xlsx")
read_using <- function(FUN, s3_path, ...){
  tmp <- s3_download_temp_file(s3_path)
  return(FUN(tmp, ...))
}