dev version

Author: robchallen

CRAN-SUBMISSION

@@ -1,3 +1,3 @@
-Version: 0.4.0
-Date: 2023-03-24 15:03:54 UTC
-SHA: 01147162f3adb2a9815e9967a18db7a9056aec24
+Version: 0.4.4
+Date: 2023-09-04 11:52:14 UTC
+SHA: 84e3f953625e8b94f665bd82b7d680188ccd0e7b

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: dtrackr
 Title: Track your Data Pipelines
-Version: 0.4.4
+Version: 0.4.4.9001
 Authors@R: 
     person(given = "Robert",
            family = "Challen",

R/experimental/group-counting.R

@@ -0,0 +1,21 @@
+#TODO:
+# Configure a countable items named list of expressions
+# or maybe better a formula like the exclusion spec
+# Use a n_distinct call to generate a set of additional .count type columns
+# maybe this is able to use status.
+
+# iris %>% dplyr::group_by(Species) %>% summarise(n = n_distinct(Petal.Length+Sepal.Length))
+# iris %>% dplyr::group_by(Species) %>% dplyr::summarise(n = dplyr::n_distinct(Petal.Length+Sepal.Length))
+# iris %>% dplyr::group_by(Species) %>% dplyr::summarise(n = dplyr::n_distinct(Petal.Length+Sepal.Length, Sepal.Width+Petal.Width))
+# x = function(...) {dots = rlang::enexprs(...); browser()}
+# x(a = c(Petal.Length+Sepal.Length, Sepal.Wdith), b= c(asdasda) )
+# class(dots$a)
+# as.expression(dots$a)
+# as.expression(unlist(dots$a))
+# x(a = c(Petal.Length+Sepal.Length, Sepal.Wdith), b= c(asdasda) )
+# x(a = c(Petal.Length+Sepal.Length, Sepal.Width), b= c(asdasda) )
+# iris %>% dplyr::summarise(n = !!dots$a)
+# iris %>% dplyr::summarise(n = dplyr::n_distinct(!!dots$a))
+# iris %>% dplyr::summarise(n = dplyr::n_distinct(!!dots$b))
+# iris %>% dplyr::summarise(n = dplyr::n_distinct(Petal.Length + Sepal.Length, Sepal.Width))
+# iris %>% dplyr::summarise(n = dplyr::n_distinct(c(Petal.Length + Sepal.Length, Sepal.Width)))