Basic script to test upload to s3 functionality is working in R

upload-file-to-s3-with-encryption.R

#!/usr/bin/Rscript
library(aws.s3)
library(stringi)
source("./credentials/aws.txt")
#bucketlist()
s3conn <- rawConnection(raw(0), "r+")
#this is not writing anything out....
tempfile <- paste0("hello this is a test.")
put_object(tempfile,
          object = ("liz-example/redshift/tempfile"),
          bucket="my-bucket-name",
          file=rawConnectionValue(s3conn),
          headers = c('x-amz-server-side-encryption'='AES256'))
#but the file is there!