R/logging.R

In jourdiw/minio.s3: MinIO S3 Client Package

get_logging <- function(bucket, ...){
    r <- s3HTTP(verb = "GET", 
                bucket = bucket,
                query = list(logging = ""),
                ...)
    return(r)
}

put_logging <- function(bucket, ...){
    r <- s3HTTP(verb = "PUT", 
                bucket = bucket,
                query = list(logging = ""),
                ...)
    structure(r, class = "s3_bucket")
}