update

.Rbuildignore

@@ -13,3 +13,5 @@ main.R
 build.R
 project_files
 ^\.covrignore$
+.idea
+Makefile

.Rprofile

@@ -0,0 +1 @@
+source("renv/activate.R")

.circleci/config.yml

@@ -12,6 +12,12 @@ jobs:
             - r-pkg-cache-{{ arch }}-{{ .Branch }}
             - r-pkg-cache-{{ arch }}-
       - checkout
+      - run:
+          name: Update pip
+          command: | 
+            apt-get install python3
+            apt-get install python3-pip 
+            pip install --upgrade pip
       - run:
           name: Install package dependencies
           command: |

.gitignore

@@ -1,2 +1,4 @@
 .Renviron
 .Rproj.user
+.idea
+.env

Makefile

@@ -0,0 +1,46 @@
+.PHONY: all style document generate check r_env clean
+
+all: style document build
+
+style:
+	@echo 'Styling R Directory'
+	R	-e	"styler::style_dir('R')"
+
+document:
+	@echo "Documenting Package"
+	rm -rf man | echo 'man does not exist'
+	rm NAMESPACE | echo 'NAMESPACE does not exist'
+	R	-e	"devtools::document()"
+	R	-e	"devtools::build_manual(path='project_files')"
+
+build:
+	@echo "Building Package..."
+	R	-e	"devtools::build()"
+	R	-e	"devtools::install()"
+
+check:
+	@echo "Checking Packages"
+	R	-e	"devtools::check()"
+	R	-e	"covr::package_coverage()"
+	R	-e	"covr::report()"
+
+r_env:
+	@echo "Setting Up Environment..."
+	pip install --upgrade pip
+	@rm -rf renv | echo 'deleting renv if exists'
+	@rm -rf .Rprofile | echo 'deleting .Rprofile if exists'
+	R	-e	"install.packages('renv')"
+	R	-e	"renv::consent(provided=TRUE)"
+	R	-e	"renv::init()"
+	R	-e	"renv::restore()"
+	R	-e	"renv::use_python(type='virtualenv')"
+	R	-e	"reticulate::virtualenv_install(packages = 'boto3')"
+	R	-e	"reticulate::import('boto3')"
+
+clean:
+	@echo "Removing unnecessary files"
+	rm *.zip | echo "No ZIP Files"
+	rm *.csv | echo "No CSV Files"
+	rm *.xlsx | echo "No XLSX Files"
+	rm *.txt | echo "No TXT files"
+	rm *.pdf | echo "No PDF files"

R/client.R

@@ -38,7 +38,7 @@ boto3 <- function() {
 client <- function(service = NULL, key_access = NULL, key_secret = NULL, region = NULL) {
   client <- boto3()$client
 
-  client <- client$client(
+  client(
     service,
     aws_access_key_id = key_access,
     aws_secret_access_key = key_secret,