Initial commit

Author: TysonStanley

.Rbuildignore

@@ -0,0 +1,2 @@
+^tidyfast\.Rproj$
+^\.Rproj\.user$

.gitattributes

@@ -0,0 +1,2 @@
+# Auto detect text files and perform LF normalization
+* text=auto

.gitignore

@@ -0,0 +1,36 @@
+# History files
+.Rhistory
+.Rapp.history
+
+# Session Data files
+.RData
+
+# User-specific files
+.Ruserdata
+
+# Example code in package build process
+*-Ex.R
+
+# Output files from R CMD build
+/*.tar.gz
+
+# Output files from R CMD check
+/*.Rcheck/
+
+# RStudio files
+.Rproj.user/
+
+# produced vignettes
+vignettes/*.html
+vignettes/*.pdf
+
+# OAuth2 token, see https://github.com/hadley/httr/releases/tag/v0.3
+.httr-oauth
+
+# knitr and R markdown default cache directories
+*_cache/
+/cache/
+
+# Temporary files created by R markdown
+*.utf8.md
+*.knit.md

DESCRIPTION

@@ -0,0 +1,16 @@
+Package: tidyfast
+Title: Fast Tidying of Data
+Version: 0.0.1
+Authors@R: 
+    person(given = "Tyson",
+           family = "Barrett",
+           role = c("aut", "cre"),
+           email = "t.barrett@aggiemail.usu.edu",
+           comment = c(ORCID = "0000-0002-2137-1391"))
+Description: Some tidying functions built on data.table
+    to provide quick and efficient data manipulation.
+Imports: data.table
+License: GPL-3
+Encoding: UTF-8
+LazyData: true
+RoxygenNote: 6.1.1

LICENSE

@@ -0,0 +1,6 @@
+# Generated by roxygen2: do not edit by hand
+
+export(nest_dt)
+export(unnest_dt)
+export(unnest_vec_dt)
+import(data.table)

NAMESPACE

@@ -0,0 +1,22 @@
+#' Fast Nesting
+#'
+#' Quickly nest data tables.
+#'
+#' @param dt the data table to nest
+#' @param ... the variables to group by
+#' @param .key the name of the list column; default is "data"
+#'
+#' @import data.table
+#'
+#' @export
+nest_dt <- function(dt, ..., .key = "data"){
+  stopifnot(is.data.table(dt))
+
+  by <- substitute(list(...))
+
+  dt <- dt[, list(list(.SD)), by = eval(by)]
+  setnames(dt, old = "V1", new = .key)
+  dt
+}
+
+

R/nest.R

@@ -0,0 +1,42 @@
+#' Fast Unnesting of Data Tables
+#'
+#' Quickly unnest data tables.
+#'
+#' @param dt the data table to nest
+#' @param col  the column to unnest
+#' @param id the ID variable to unnest by
+#'
+#' @import data.table
+#'
+#' @export
+unnest_dt <- function(dt, col, id){
+  stopifnot(is.data.table(dt))
+
+  by <- substitute(id)
+  col <- substitute(unlist(col, recursive = FALSE))
+
+  dt[, eval(col), by = eval(by)]
+}
+
+#' Fast Unnesting of Vectors
+#'
+#' Quickly nest vectors nested in a list column.
+#'
+#' @param dt the data table to nest
+#' @param cols  the columns to unnest
+#' @param id the ID variable to unnest by
+#' @param name the names of the unnested vectors
+#'
+#' @import data.table
+#'
+#' @export
+unnest_vec_dt <- function(dt, cols, id, name){
+  stopifnot(is.data.table(dt))
+
+  by <- substitute(id)
+  cols <- substitute(unlist(cols,recursive = FALSE))
+
+  dt <- dt[,eval(cols), by = eval(by)]
+  setnames(dt, old = paste0("V", 1:length(name)), new = name)
+  dt
+}

R/unnest.R

@@ -0,0 +1,2 @@
+# tidyfast
+