fix to cran

Author: Flavio

DESCRIPTION

@@ -1,14 +1,14 @@
 Package: inti
 Type: Package
-Version: 0.4.2
+Version: 0.4.3
 Title: Tools and Statistical Procedures in Plant Science
 Description: The 'inti' package is part of the 'inkaverse' project for developing 
     different procedures and tools used in plant science and experimental designs. 
     The mean aim of the package is to support researchers during the planning of
     experiments and data collection (tarpuy()), data analysis and graphics (yupana())
     , and technical writing. 
     Learn more about the 'inkaverse' project at <https://inkaverse.com/>.
-Date: 2021-09-07
+Date: 2021-09-08
 Authors@R: person("Flavio", "Lozano-Isla", email = "flavjack@gmail.com",
                   role = c("aut", "cre"), comment = c(ORCID = "0000-0002-0714-669X"))
 URL: https://inkaverse.com/, https://github.com/flavjack/inti

R/plot_raw.R

@@ -38,26 +38,17 @@
 #' \dontrun{
 #'
 #' library(inti)
-#' library(gsheet)
 #'
-#' url <- paste0("https://docs.google.com/spreadsheets/d/"
-#'               , "1D1KYc5FMTHow_PpW6ijravmkF_z9zES8Incfroi-Tc4/edit#gid=1336259432")
-#' # browseURL(url)
-#'
-#' fb <- gsheet2tbl(url)
+#' fb <- potato
 #' 
 #' fb %>%
-#'   plot_raw(type = "sca"
-#'            , x = "elt_test"
-#'            , y = "tam_test"
-#'            , group = "testiculo"
+#'   plot_raw(type = "box"
+#'            , x = "geno"
+#'            , y = "twue"
+#'            , group = "treat"
 #'            , color = T
-#'            , ylimits = c(0, 1500, 300)
-#'            , linetype = 2
-#'            , glab = "testiculo (cm^3)"
-#'            ) +
-#'   ggpmisc::stat_poly_eq(aes(label =  paste(stat(eq.label), stat(adj.rr.label), sep = "*\", \"*")))
-#'   
+#'            ) 
+#'            
 #' }
 #' 
 
@@ -82,9 +73,7 @@ plot_raw <- function(data
 
 # -------------------------------------------------------------------------
 
-  type <- match.arg(type, c(
-    "boxplot", "scatterplot"
-    ))
+  type <- match.arg(type, c("boxplot", "scatterplot"))
 
 # -------------------------------------------------------------------------
 
@@ -161,7 +150,7 @@ if ( !is.null(glab) ) {
 if(type == "boxplot") {
 
   plotdt <- data %>% 
-    mutate(across(c({{x}}, {{group}}), as.factor))
+    mutate(across(c({{x}}, {{group}}), as.factor)) 
 
   type <- plotdt %>% 
     ggplot(., aes(x = .data[[x]]