biggr2

Code Coverage

Download the development version from GitHub with:

# install.packages("devtools")
devtools::install_github("fdrennan/biggr2")

Getting Started

s3 storage

library(biggr2)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union

test_bucket_name <- 'fdrenabc'

s3_client <- 
  client(
    service = "s3",
    key_access = Sys.getenv("AWS_ACCESS"),
    key_secret = Sys.getenv("AWS_SECRET"),
    region = "us-east-2"
 )

current_buckets <- s3_list_buckets(client = s3_client)

if (test_bucket_name %in% pull(current_buckets, name)) 
  s3_delete_bucket(client = s3_client, test_bucket_name)
#> # A tibble: 1 x 4
#>   RequestId    HostId                         HTTPStatusCode TimeDeleted        
#>   <chr>        <chr>                                   <int> <dttm>             
#> 1 79CD84F23CB… L7jLaOpbVZgmPVCU1yOdrgRVWR9w5…            204 2020-11-26 23:20:24

response <- s3_create_bucket(
  client = s3_client, 
  Bucket = 'fdrenabc'
)

response
#>                            Location        RequestId
#> 1 http://fdrenabc.s3.amazonaws.com/ 89608CA3D3C9D0F2
#>                                                                         HostId
#> 1 s1inZXUa51DJV/Sz+Rt8MXZLsUVdaRWVjjoz/zZPnWWHYS4/bfUk+BREw4h3RjX9fTGhRiNprEs=
#>   HTTPStatusCode
#> 1            200
#>                                                         HTTPHeaders.x.amz.id.2
#> 1 s1inZXUa51DJV/Sz+Rt8MXZLsUVdaRWVjjoz/zZPnWWHYS4/bfUk+BREw4h3RjX9fTGhRiNprEs=
#>   HTTPHeaders.x.amz.request.id              HTTPHeaders.date
#> 1             89608CA3D3C9D0F2 Thu, 26 Nov 2020 23:20:27 GMT
#>                HTTPHeaders.location HTTPHeaders.content.length
#> 1 http://fdrenabc.s3.amazonaws.com/                          0
#>   HTTPHeaders.server
#> 1           AmazonS3