Add files via upload

Author: hope-data-science

CRAN-RELEASE

@@ -1,2 +1,2 @@
-This package was submitted to CRAN on 2020-04-02.
+This package was submitted to CRAN on 2020-04-10.
 Once it is accepted, delete this file and tag the release (commit fbccc9581e).

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: tidyfst
 Title: Tidy Verbs for Fast Data Manipulation
-Version: 0.9.4
+Version: 0.9.5
 Depends: R (>= 3.3.0)
 Authors@R: 
     person(given = "Tian-Yuan",

NAMESPACE

@@ -55,6 +55,7 @@ export(mutate_vars)
 export(mutate_when)
 export(nest_dt)
 export(nth)
+export(object_size)
 export(parse_fst)
 export(pull_dt)
 export(rbindlist)
@@ -81,8 +82,11 @@ export(slice_fst)
 export(squeeze_dt)
 export(summarise_dt)
 export(summarise_vars)
+export(summarise_when)
 export(summarize_dt)
 export(summarize_vars)
+export(summarize_when)
+export(summary_fst)
 export(sys_time_print)
 export(t_dt)
 export(tables)
@@ -102,3 +106,4 @@ import(fst)
 import(stringr)
 importFrom(stats,na.omit)
 importFrom(stats,setNames)
+importFrom(utils,object.size)

R/_global_setting.R

@@ -3,7 +3,7 @@
 #' @import fst
 #' @import stringr
 #' @importFrom stats na.omit setNames
-
+#' @importFrom utils object.size
 
 #' @export
 stringr::`%>%`

R/complete.R

@@ -49,11 +49,13 @@ complete_dt = function(.data,...,fill = NA){
       str_replace("list","CJ") %>%
       parse(text = .) %>%
       eval() %>%
-      merge(setorder(dt),all = TRUE) %>%
+      merge(dt,all = TRUE) %>%
+      #merge(setorder(dt),all = TRUE) %>%
       replace_na_dt(to=fill) %>%
       unique()
   }else
-    setorder(dt)%>%
+    dt %>%
+    #setorder(dt)%>%
     select_dt(...) %>%
     lapply(unique) %>%
     deparse() %>%

R/count_dt.R

@@ -37,7 +37,8 @@ count_dt = function(.data,...,sort = TRUE,.name = "n"){
 #' @rdname count
 #' @export
 add_count_dt = function(.data,...,.name = "n"){
-  dt = as_dt(.data)
+  #dt = as_dt(.data)
+  dt = as.data.table(.data)
   dot_string = substitute(list(...))
   dt[,(.name):=.N,by = dot_string][]
 }

R/distinct_dt.R

@@ -22,15 +22,19 @@
 
 distinct_dt = function(.data,...,.keep_all = FALSE){
   dt = as_dt(.data)
-  if(length(substitute(...)) == 0) unique(dt)
-  else{
-    if(.keep_all) eval(substitute(dt[,.SD[1],by = .(...)]))
-    else eval(substitute(unique(dt[,.(...),])))
-  }
+  sel_name = select_dt(dt[0],...) %>% names()
+  if(.keep_all) unique(dt,by = sel_name)
+  else unique(dt[,.SD,.SDcols = sel_name])
 }
 
-
-
+# distinct_dt = function(.data,...,.keep_all = FALSE){
+#   dt = as_dt(.data)
+#   if(length(substitute(...)) == 0) unique(dt)
+#   else{
+#     if(.keep_all) eval(substitute(dt[,.SD[1],by = .(...)]))
+#     else eval(substitute(unique(dt[,.(...),])))
+#   }
+# }
 
 
 

R/dt.R

@@ -19,14 +19,26 @@
 #' @rdname dt
 #' @export
 in_dt = function(.data,...){
-  dt = as_dt(.data)
+  #dt = as_dt(.data)
+  dt = as.data.table(.data)
   dt[...][]
 }
 
 #' @rdname dt
 #' @export
+
+
 as_dt = function (.data) {
-  if (is.data.frame(.data) || ("fst_table" %chin% class(.data)))
+  if(is.data.table(.data)) .data
+  else if (is.data.frame(.data) || ("fst_table" %chin% class(.data)))
     as.data.table(.data)
   else stop("Only a data.frame or fst_table could be received.")
 }
+
+
+
+# as_dt = function (.data) {
+#   if (is.data.frame(.data) || ("fst_table" %chin% class(.data)))
+#     as.data.table(.data)
+#   else stop("Only a data.frame or fst_table could be received.")
+# }

R/dummy_dt.R

@@ -22,7 +22,8 @@
 
 #' @export
 dummy_dt = function(.data,...,longname = TRUE){
-  dt = as_dt(.data)
+  # dt = as_dt(.data)
+  dt = as.data.table(.data)
   if((substitute(list(...)) %>% deparse())=="list()")
     warning("No columns provided, return the orginal data.")
   else{

R/fst.R

@@ -8,7 +8,9 @@
 #' @param ... The filter conditions
 #' @return \code{parse_fst} returns a fst_table class.
 #' @return \code{select_fst} and \code{filter_fst} returns a data.table.
-#' @seealso \code{\link[fst]{fst}}
+#' @details \code{summary_fst} could provide some basic information about
+#' the fst table.
+#' @seealso \code{\link[fst]{fst}}, \code{\link[fst]{metadata_fst}}
 #' @examples
 #'
 #' \dontrun{
@@ -21,6 +23,7 @@
 #'   lapply(ft,class)
 #'   names(ft)
 #'   dim(ft)
+#'   summary_fst(ft)
 #'
 #'   # get the data by query
 #'   ft %>% slice_fst(1:3)
@@ -62,12 +65,12 @@ slice_fst = function(ft,row_no){
 
 #' @rdname fst
 #' @export
-select_fst = function(ft,...){
-
-  setDT(ft[1,])[0] %>% select_dt(...) %>% names() -> sel_names
-  setDT(ft[names(ft) %chin% sel_names])[]
-
-}
+# select_fst = function(ft,...){
+#
+#   setDT(ft[1,])[0] %>% select_dt(...) %>% names() -> sel_names
+#   setDT(ft[names(ft) %chin% sel_names])[]
+#
+# }
 
 select_fst = function(ft,...){
 
@@ -95,7 +98,11 @@ filter_fst = function(ft,...){
   eval(parse(text = str_glue("ft[{dot_string},] %>% as.data.table()")))
 }
 
-
+#' @rdname fst
+#' @export
+summary_fst = function(ft){
+  metadata_fst(.subset2(ft, "meta")[[1]])
+}