Fixes for CRAN submission

.Rbuildignore

@@ -6,3 +6,4 @@
 ^_pkgdown\.yml$
 ^docs$
 ^pkgdown$
+^LICENSE\.md$

DESCRIPTION

@@ -8,11 +8,13 @@ Authors@R:
       person(given = "Frans",
              family = "van Dunne",
              role = c("cre", "aut"),
-             email = "frans@ixpantia.com"),
+             email = "frans@ixpantia.com",
+             comment = c(ORCID = "0000-0002-7853-2811")),
       person(given = "Ronny",
              family = "Hernández Mora",
              role = "aut",
-             email = "ronny@ixpantia.com"),
+             email = "ronny@ixpantia.com",
+             comment = c(ORCID = "0000-0001-6225-7096")),
       person(given = "Daniel",
              family = "Granados Campos",
              role = "ctb",
@@ -22,7 +24,7 @@ Authors@R:
              role = "ctb",
              email = "nayib@ixpantia.com"))
 Description: Create and view tickets in 'gitea', a self-hosted git service <https://gitea.io>, using an RStudio addin, and use helper functions to publish documentation and use git.
-License: file LICENCE
+License: AGPL (>= 3) + file LICENCE
 Depends: 
     R (>= 3.4)
 Imports:

LICENCE

@@ -1,5 +1,2 @@
-Proprietary
-
-Copyright 2018 ixpantia S.R.L.
-
-All rights reserved. Do not distribute.
+YEAR: 2022
+COPYRIGHT HOLDER: ixpantia S.R.L.

R/git.R

@@ -93,6 +93,7 @@ incluye_upstream <- function(instancia = "guardada") {
 #' @param timeout number of seconds before timeout
 #' @param global whether the change should be global or local to the repo
 #'
+#' @return No return value, called for side effects
 #' @export
 set_git_timeout <- function(timeout = 14400, global = FALSE) {
 
@@ -141,4 +142,3 @@ fijar_tiempo_credenciales <- function(pausa =  14400, global = FALSE) {
     set_git_timeout(timeout = pausa, global = TRUE)
   }
 }
-

R/verify_authenticacion.R

@@ -6,6 +6,7 @@ NULL
 #' Verifique si hay un archivo .ixplorer en el directorio de trabajo y
 #' configure las variables.
 #'
+#' @return No return value, called for side effects
 verify_ixplorer_file <- function() {
   api_creds <- list()
   working_directory <- rstudioapi::getActiveProject()
@@ -53,7 +54,7 @@ verify_ixplorer_file <- function() {
 #' @description Verifies token exists for a repository.
 #'
 #' @param gitear_access parameters to access into an ixplorer instance
-
+#' @return No return value, called for side effects
 verify_ixtoken <- function(gitear_access) {
   if (!(TRUE %in% stringr::str_detect(gitear_access$variable, "IXTOKEN") &&
         FALSE %in% any(is.na(gitear_access[1, 2])))) {
@@ -78,7 +79,7 @@ verify_ixurl <- function(gitear_access) {
 #' @description Verifies if the project's name exists in the repository.
 #'
 #' @param gitear_access parameters to access into an ixplorer instance
-
+#' @return No return value, called for side effects
 verify_ixproject <- function(gitear_access) {
   if (!(TRUE %in% stringr::str_detect(gitear_access$variable, "IXPROJECT") &&
         FALSE %in% any(is.na(gitear_access[3, 2])))) {
@@ -91,7 +92,7 @@ verify_ixproject <- function(gitear_access) {
 #' @description Verifies if ixplorer repository's name exists.
 #'
 #' @param gitear_access parameters to access into an ixplorer instance
-
+#' @return No return value, called for side effects
 verify_ixrepo <- function(gitear_access) {
   if (!(TRUE %in% stringr::str_detect(gitear_access$variable, "IXREPO") &&
         FALSE %in% any(is.na(gitear_access[4, 2])))) {
@@ -103,8 +104,8 @@ verify_ixrepo <- function(gitear_access) {
 #' @title Verifies ixplorer user
 #' @description Verifies if user name exists.
 #'
+#' @return No return value, called for side effects
 #' @param gitear_access parameters to access into an ixplorer instance
-
 verify_ixuser <- function(gitear_access) {
   if (!(TRUE %in% stringr::str_detect(gitear_access$variable, "IXUSER") &&
         FALSE %in% any(is.na(gitear_access[5, 2])))) {
@@ -116,8 +117,8 @@ verify_ixuser <- function(gitear_access) {
 #' @description Set the authentification into ixplorer
 #'
 #' @param access_data Data needed to get into ixplorer
+#' @return No return value, called for side effects
 #' @export
-
 set_authentication <- function(access_data) {
   ixurl <- verify_ixurl(access_data)
   ixtoken <- verify_ixtoken(access_data)
@@ -127,4 +128,3 @@ set_authentication <- function(access_data) {
   msj <- c(ixurl, ixtoken, ixproject, ixrepo, ixuser)
   return(msj)
 }
-