Merge pull request #42 from SanjayShetty01/migrate-paws.security.iden…

…tity

migrating to paws.security.identity

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: RCognito
 Type: Package
 Title: A Simplified Interface for 'Amazon Cognito'
-Version: 0.1.0
+Version: 0.2.0
 Authors@R: person(given = c("Sanjaya", "J"),
                   family = "Shetty",
                   role = c("aut", "cre"),
@@ -12,7 +12,7 @@ License: MIT + file LICENSE
 Encoding: UTF-8
 LazyData: true
 RoxygenNote: 7.3.2
-Imports: paws
+Imports: paws.security.identity
 Suggests: 
     testthat (>= 3.0.0),
     mockery

NAMESPACE

@@ -6,4 +6,4 @@ export(confirm_sign_up_user)
 export(forgot_password)
 export(sign_in)
 export(sign_up_user)
-import(paws)
+import(paws.security.identity)

R/change_password.R

@@ -1,6 +1,6 @@
 #' Change User Password
 #'
-#'@import paws
+#'@import paws.security.identity
 #'
 #' @param old_password A character string representing the user's current password.
 #' @param new_password A character string representing the user's new password.
@@ -12,7 +12,7 @@
 change_password <- function(old_password, new_password, token) {
 
   tryCatch({
-    cognito <-  paws::cognitoidentityprovider()
+    cognito <-  paws.security.identity::cognitoidentityprovider()
 
     cognito$change_password(PreviousPassword = old_password,
                             ProposedPassword = new_password,

R/confirm_forgot_password.R

@@ -2,7 +2,7 @@
 #'
 #' This function confirms the forgot password process by setting a new password for a user.
 #'
-#'@import paws
+#'@import paws.security.identity
 #'
 #' @param client_id A character string representing the app client ID.
 #' @param username A character string for the user's username.
@@ -15,7 +15,7 @@
 confirm_forgot_password <- function(client_id, username, confirmation_code, new_password) {
   tryCatch({
 
-    cognito <- paws::cognitoidentityprovider()
+    cognito <- paws.security.identity::cognitoidentityprovider()
 
     cognito$confirm_forgot_password(
       ClientId = client_id,

R/confirm_sign_up.R

@@ -2,7 +2,7 @@
 #'
 #' This function confirms the sign-up process for a user in AWS Cognito.
 #'
-#' @import paws
+#' @import paws.security.identity
 #'
 #' @param client_id A character string representing the app client ID.
 #' @param userpool A character string representing the user pool ID.
@@ -17,7 +17,7 @@ confirm_sign_up_user <- function(client_id,
                             username,
                             verification_code) {
   tryCatch({
-    cognito <- paws::cognitoidentityprovider()
+    cognito <- paws.security.identity::cognitoidentityprovider()
 
     users_info_from_cognito <- get_user_list_from_cognito(cognito_client =
                                                             cognito, userpool =

R/forgot_password.R

@@ -1,6 +1,6 @@
 #' Initiate Forgot Password Request
 #'
-#'@import paws
+#'@import paws.security.identity
 #'
 #' @param client_id A character string representing the app client ID.
 #' @param username A character string for the user's username.
@@ -10,7 +10,7 @@
 forgot_password <- function(client_id, username) {
   tryCatch({
 
-    cognito <- paws::cognitoidentityprovider()
+    cognito <- paws.security.identity::cognitoidentityprovider()
 
     cognito$forgot_password(ClientId = client_id, Username = username)
 

R/sign_in.R

@@ -1,6 +1,6 @@
 #' Sign in to AWS Cognito
 #'
-#'@import paws
+#'@import paws.security.identity
 #'
 #' @param client_id A character string representing the app client ID.
 #' @param username A character string for the user's username.
@@ -14,7 +14,7 @@ sign_in <- function(client_id, username, password,
                     authflow = "USER_PASSWORD_AUTH") {
   tryCatch({
 
-    cognito <- paws::cognitoidentityprovider()
+    cognito <- paws.security.identity::cognitoidentityprovider()
 
     auth_parameter <- list(USERNAME = username, PASSWORD = password)
 

R/sign_up.R

@@ -1,6 +1,6 @@
 #' Sign up a new user to AWS Cognito
 #'
-#'@import paws
+#'@import paws.security.identity
 #'
 #' @param client_id A character string representing the app client ID.
 #' @param email A character string for the user's email address.
@@ -20,7 +20,7 @@ sign_up_user <- function(client_id, email, username, password, ...) {
 
   tryCatch({
 
-    cognito <- paws::cognitoidentityprovider()
+    cognito <- paws.security.identity::cognitoidentityprovider()
 
     sign_up_result <- cognito$sign_up(
       ClientId = client_id,