rm magrittr dependency.

declare imports from paws
rd files auto update

DESCRIPTION

@@ -20,7 +20,6 @@ Imports:
     jsonlite,
     lambdr,
     logger,
-    magrittr,
     paws,
     rlang,
     stevedore,

NAMESPACE

@@ -1,10 +1,13 @@
 # Generated by roxygen2: do not edit by hand
 
-export("%>%")
 export(aws_connect)
 export(build_lambda)
 export(deploy_lambda)
 export(invoke_lambda)
 export(schedule_lambda)
 export(test_lambda)
-importFrom(magrittr,"%>%")
+importFrom(paws,ecr)
+importFrom(paws,eventbridge)
+importFrom(paws,iam)
+importFrom(paws,lambda)
+importFrom(paws,s3)

R/lambda-deploy.R

@@ -78,7 +78,7 @@ test_lambda <- function(tag, payload) {
 
   logger::log_info("[test_lambda] Checking image tag exists.")
   images <- docker_cli$image$list()
-  tags <- images[["repo_tags"]] %>% unlist()
+  tags <- images[["repo_tags"]] |> unlist()
   tag_exists <- repo_tag %in% tags
 
   if (!tag_exists) {
@@ -149,6 +149,7 @@ test_lambda <- function(tag, payload) {
 #'     )
 #'
 #' }
+#' @importFrom paws ecr iam lambda s3 eventbridge
 #' @export
 deploy_lambda <-
   function(tag, set_aws_envvars = FALSE, ...) {

R/lambda-util.R

@@ -24,7 +24,7 @@ check_system_dependencies <- function() {
 
 #' connect to an aws service
 #' @param service character, the name of a service, e.g., "lambda" or "iam". Should
-#' be a function exported by `{paws}` (see `getNamespaceExports("paws")`)
+#' be a function exported by `paws` (see `getNamespaceExports("paws")`)
 #' @examples
 #' \dontrun{
 #' aws_connect("lambda")
@@ -66,10 +66,10 @@ runtime_line <- function(runtime) {
 #' parse password from ecr token
 #' @noRd
 parse_password <- function(ecr_token) {
-  ecr_token %>%
-    jsonlite::base64_dec() %>%
-    rawToChar() %>%
-    gsub(pattern = "^AWS:", replacement = "", x = .)
+  ecr_token |>
+    jsonlite::base64_dec() |>
+    rawToChar() |>
+    gsub(pattern = "^AWS:", replacement = "")
 }
 
 #' create_lambda_dockerfile
@@ -267,7 +267,7 @@ push_lambda_image <- function(tag) {
   ecr_token <- ecr_service$get_authorization_token()
   ecr_password <- parse_password(ecr_token$authorizationData[[1]]$authorizationToken)
   repo_uri <- fetch_ecr_repo(tag)
-  server_address <- repo_uri %>% gsub(pattern = "/.*$", replacement = "", x = .)
+  server_address <- gsub(pattern = "/.*$", replacement = "", x = repo_uri)
 
   docker_cli <- stevedore::docker_client()
   docker_cli$login(

vignettes/lambda-s3.Rmd

@@ -140,7 +140,7 @@ tt_dataset <- s3_service$get_object(
 )
 
 # convert from raw and show the first few rows
-tt_dataset$Body %>% unserialize() %>% head()
+tt_dataset$Body |> unserialize() |> head()
 ```
 
 Now we should have everything we need to write our Lambda function.

vignettes/schedule-lambda.Rmd

@@ -179,7 +179,7 @@ the rule.
 # connect to the EventBridge service
 events_service <- r2lambda::aws_connect("eventbridge")
 # find the names of all rules we need
-schedule_rules <- events_service$list_rules()[[1]] %>% sapply("[[", 1)
+schedule_rules <- events_service$list_rules()[[1]] |> sapply("[[", 1)
 
 # find the targets associated with the rule we want to remove
 rule_to_remove <- schedule_rules[[1]]
@@ -188,15 +188,15 @@ target_arn_to_remove <- events_service$list_targets_by_rule(Rule = rule_to_remov
 events_service$remove_targets(Rule = rule_to_remove, Ids = target_arn_to_remove)
 events_service$delete_rule(Name = rule_to_remove)
 
-events_service$list_rules()[[1]] %>% sapply("[[", 1)
+events_service$list_rules()[[1]] |> sapply("[[", 1)
 
 ```
 
 Finally, to remove the Lambda:
 
 ```{r}
 lambda_service <- r2lambda::aws_connect("lambda")
-lambda_service$list_functions()$Functions %>% sapply("[[","FunctionName")
+lambda_service$list_functions()$Functions |> sapply("[[","FunctionName")
 lambda_service$delete_function(FunctionName = "parity1")
 ```
 

vignettes/tt-lambda.Rmd

@@ -185,8 +185,8 @@ Just like in the local test, the response payload comes as a raw vector that nee
 be parsed into a data.frame:
 
 ```{r}
-tidytuesday_dataset <- response$Payload %>% 
-  rawToChar() %>% 
+tidytuesday_dataset <- response$Payload |> 
+  rawToChar() |> 
   jsonlite::fromJSON(simplifyDataFrame = TRUE)
 
 tidytuesday_dataset[[1]][1:5, 1:5]