Merge pull request #32 from ronnyhdez/T28

T28 Changes in order to submit package

.Rbuildignore

@@ -1,5 +1,7 @@
-^lacramr\.Rproj$
+^lacrmr\.Rproj$
 ^\.Rproj\.user$
 ^doc$
+^docs$
 ^Meta$
 ^README\.Rmd$
+

DESCRIPTION

@@ -16,12 +16,12 @@ Authors@R: c(
          role = "aut", 
          email="frans@ixpantia.com"))
 Description: Connect to the Less Annoying CRM API to get your data clean and tidy.
-License: GPL + file LICENCE
+License: GPL-3 | file LICENSE
 URL: https://ixpantia.github.io/lacrmr/
 BugReports: https://github.com/ixpantia/lacrmr/issues
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.0.2
+RoxygenNote: 7.1.0
 Depends:
     R (>= 3.6),
     magrittr
@@ -37,4 +37,6 @@ Imports:
     jsonlite,
     janitor,
     sjmisc,
-    httptest
+    httptest,
+    stringr,
+    mockery

NAMESPACE

@@ -5,3 +5,4 @@ export(get_contact_information)
 export(get_pipeline_report)
 export(search_contacts)
 import(magrittr)
+importFrom(dplyr,"%>%")

R/lacrmr.R

@@ -0,0 +1,19 @@
+#' \code{lacrmr} package
+#'
+#' Connect to the Less Annoying CRM API to get your data clean and tidy.
+#'
+#' See the README on
+#'
+#' @docType package
+#' @name lacramr
+#' @importFrom dplyr %>%
+NULL
+
+## quiets concerns of R CMD check re: the .'s that appear in pipelines
+utils::globalVariables(c(".", "Success", "result_email", "result_phone",
+                         "result_address", "result_website",
+                         "result_contact_custom_fields", "Result.FirstName",
+                         "result_email", "result_phone", "result_website",
+                         "filter", "select", "Text", "Type", "bind_cols",
+                         "result_custom_fields"
+                         ))

R/utils.R

@@ -1,6 +1,6 @@
 #' GET call to lacrm API
 #' @param x an integer
-#' @NoRd
+#' @noRd
 get_request <- function(user_code, api_token, api_function, ...) {
 
   item <- paste0(...)

README.Rmd

@@ -13,7 +13,7 @@ knitr::opts_chunk$set(
 )
 ```
 
-# lacrmr <a href="url"><img src="img/lacrmR.png" align="right" width="30%"></a>
+# lacrmr <a href="url"><img src="man/figures/lacrmR.png" align="right" width="30%"></a>
 
 <!-- badges: start -->
 [![CRAN status](https://www.r-pkg.org/badges/version/lacrmr)](https://cran.r-project.org/package=lacrmr)

README.md

@@ -1,7 +1,7 @@
 
 <!-- README.md is generated from README.Rmd. Please edit that file -->
 
-# lacrmr <a href="url"><img src="img/lacrmR.png" align="right" width="30%"></a>
+# lacrmr <a href="url"><img src="man/figures/lacrmR.png" align="right" width="30%"></a>
 
 <!-- badges: start -->
 
@@ -69,8 +69,8 @@ sales <- get_pipeline_report(user_code = "12454",
 
 ## Use glimpse function to check the data frame
 dplyr::glimpse(sales)
-#> Observations: 7
-#> Variables: 33
+#> Rows: 7
+#> Columns: 33
 #> $ result_contact_id                            <chr> "35041909076033466731615…
 #> $ result_user_id                               <chr> "334595", "435944", "334…
 #> $ result_company_id                            <lgl> NA, NA, NA, NA, NA, NA, …

tests/testthat.R

@@ -1,4 +1,5 @@
 library(testthat)
 library(lacrmr)
+library(mockery)
 
 test_check("lacrmr")

tests/testthat/test-limpiar.R

@@ -1,3 +1,4 @@
+
 context("limpieza")
 
 testthat::test_that("listas son eliminadas de datos de contactos", {