Merge pull request #10 from chi2labs/sasha

Sasha

R/cookie_server.R

@@ -7,6 +7,7 @@
 #' * getCookie - Reactive function, returns the content of cookie if exist. Else return FALSE.
 #' * setCookie - Sets the content for a cookie. (Required param: list())
 #' * rmCookie -  Removes a cookie
+#' @md
 #' @param input shiny input
 #' @param output shiny output
 #' @param session shiny session

R/get_config.R

@@ -1,9 +1,9 @@
-#' Get Cognito config from .yml
-#'
-#' Return all required configuration from file .yml to connect with Amazon Cognito instance.
+# #' Get Cognito config from .yml
+# #'
+# #' Return all required configuration from file .yml to connect with Amazon Cognito instance.
 #' @import config
-#' @return list|FALSE
-#' @author Pablo Pagnone
+# #' @return list|FALSE
+# #' @author Pablo Pagnone
 get_config <- function() {
 
   # Get configuration for Cognito Service.

R/get_info_user.R

@@ -1,11 +1,11 @@
-#' Get Cognito Information of user via oauth
-#'
-#' @param token string You can obtain with get_cognito_token_access()
-#' @param cognito_config list List obtained with get_cognito_config()
+# #' Get Cognito Information of user via oauth
+# #'
+# #' @param token string You can obtain with get_cognito_token_access()
+# #' @param cognito_config list List obtained with get_cognito_config()
 #' @import config
 #' @import httr
-#' @return list|FALSE - If request is success return list with info about user. If configuration of token is invalid return FALSE.
-#' @author Pablo Pagnone
+# #' @return list|FALSE - If request is success return list with info about user. If configuration of token is invalid return FALSE.
+# #' @author Pablo Pagnone
 get_info_user <- function(token, cognito_config) {
 
   if(!is.list(cognito_config) || is.null(cognito_config$base_cognito_url)) {

R/get_token_access.R

@@ -1,13 +1,13 @@
-#' Get Cognito Tokens via oauth
-#'
-#' With code received via url, get tokens for user via oauth.
-#'
-#' @param code character - Code Access received from Amazon Cognito
-#' @param cognito_config list - List obtained with get_cognito_config()
+# #' Get Cognito Tokens via oauth
+# #'
+# #' With code received via url, get tokens for user via oauth.
+# #'
+# #' @param code character - Code Access received from Amazon Cognito
+# #' @param cognito_config list - List obtained with get_cognito_config()
 #' @import config
 #' @import httr
-#' @return list|FALSE
-#' @author Pablo Pagnone
+# #' @return list|FALSE
+# #' @author Pablo Pagnone
 get_token_access <- function(code, cognito_config) {
 
   if(!is.list(cognito_config) ||

R/get_url_auth_redirect.R

@@ -1,11 +1,11 @@
-#' Get Cognito URL for authentication redirect
-#'
-#' Return Url where user is redirect if is not logged yet.
-#'
-#' @param cognito_config list Obtained with get_cognito_config()
-#' @param session Shiny session Will be used to keep the params in urls when redirection is done.
-#' @return character|FALSE
-#' @author Pablo Pagnone
+# #' Get Cognito URL for authentication redirect
+# #'
+# #' Return Url where user is redirect if is not logged yet.
+# #'
+# #' @param cognito_config list Obtained with get_cognito_config()
+# #' @param session Shiny session Will be used to keep the params in urls when redirection is done.
+# #' @return character|FALSE
+# #' @author Pablo Pagnone
 get_url_auth_redirect <- function(cognito_config, session = getDefaultReactiveDomain()) {
 
   if(!is.list(cognito_config) ||

R/get_url_logout_redirect.R

@@ -1,10 +1,10 @@
-#' Get Cognito URL for Logout redirect.
-#'
-#' Return Url where user is redirect when is logout.
-#'
-#' @param cognito_config list Obtained with get_cognito_config()
-#' @return character|FALSE
-#' @author Pablo Pagnone
+# #' Get Cognito URL for Logout redirect.
+# #'
+# #' Return Url where user is redirect when is logout.
+# #'
+# #' @param cognito_config list Obtained with get_cognito_config()
+# #' @return character|FALSE
+# #' @author Pablo Pagnone
 get_url_logout_redirect <- function(cognito_config) {
 
   if(!is.list(cognito_config) ||