bf

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: ggExpress
 Title: ggExpress is the fastest way to create, annotate and export plots
     in R
-Version: 0.2.6
+Version: 0.2.7
 Authors@R: 
     person("Abel", "Vertesy", , "a.vertesy@imba.oeaw.ac.at", role = c("aut", "cre"))
 Author: Abel Vertesy <abel.vertesy@imba.oeaw.ac.at> [aut, cre]
@@ -38,7 +38,7 @@ Imports:
     stats,
     tidyverse
 Encoding: UTF-8
-Packaged: 2021-11-14 13:30:20
+Packaged: 2021-11-14 13:32:21
 Repository: CRAN
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.1.2

Development/Create_the_ggExpress_Package.v0.1.R

@@ -40,7 +40,7 @@ DESCRIPTION <- list("Title" = "ggExpress is the fastest way to create, annotate
     4. Describe your figures & findings in the same report in a clear and nicely formatted way, parsed from your variables into english sentences.
     5. Share your report, by exporting your report to .pdf, .html or .docx, or via Github or a personal website."
     , "License" = "GPL-3 + file LICENSE"
-    , "Version" = "0.2.6"
+    , "Version" = "0.2.7"
     , "Packaged" =  Sys.time()
     , "Repository" =  "CRAN"
     , "Depends" =  "Stringendo, MarkdownHelpers, ggplot2, ggpubr"

Development/Development.bac

@@ -422,7 +422,7 @@ qviolin <- function(df_XYcol
 #' @param ... Pass any other parameter of the corresponding plotting function(most of them should work).
 #' @import ggpubr
 #' @export
-#' @examples dfx <- as.data.frame(cbind("AA"=rnorm(12), "BB"=rnorm(12))); qscatter(dfx, suffix = "2D.gaussian")
+#' @examples dfx <- as.data.frame(cbind("AA"=rnorm(500), "BB"=rnorm(500))); qscatter(dfx, suffix = "2D.gaussian")
 
 qscatter <- function(df_XYcol
                      , suffix = NULL
@@ -435,7 +435,6 @@ qscatter <- function(df_XYcol
                      , w = 7, h = w, ...) {
   # plotname <- if (isFALSE(title)) Stringendo::kpp(make.names(as.character(substitute(df_XYcol))), suffix) else title
   vars <- colnames(df_XYcol)
-  nrCategories.DFcol1 <- length(unique(df_XYcol[,1])); stopif(nrCategories.DFcol1>  100)
 
   p <- ggpubr::ggscatter(data = df_XYcol, x = vars[1], y = vars[2], color = col
                          , title = plotname, ...) +

R/ggExpress.R

@@ -422,7 +422,7 @@ qviolin <- function(df_XYcol
 #' @param ... Pass any other parameter of the corresponding plotting function(most of them should work).
 #' @import ggpubr
 #' @export
-#' @examples dfx <- as.data.frame(cbind("AA"=rnorm(12), "BB"=rnorm(12))); qscatter(dfx, suffix = "2D.gaussian")
+#' @examples dfx <- as.data.frame(cbind("AA"=rnorm(500), "BB"=rnorm(500))); qscatter(dfx, suffix = "2D.gaussian")
 
 qscatter <- function(df_XYcol
                      , suffix = NULL
@@ -435,7 +435,6 @@ qscatter <- function(df_XYcol
                      , w = 7, h = w, ...) {
   # plotname <- if (isFALSE(title)) Stringendo::kpp(make.names(as.character(substitute(df_XYcol))), suffix) else title
   vars <- colnames(df_XYcol)
-  nrCategories.DFcol1 <- length(unique(df_XYcol[,1])); stopif(nrCategories.DFcol1>  100)
 
   p <- ggpubr::ggscatter(data = df_XYcol, x = vars[1], y = vars[2], color = col
                          , title = plotname, ...) +