develop.R

In hope-data-science/tidydt0: Tidy Verbs for `data.table`

# for develop

library(pacman)
p_load(devtools,usethis,roxygen2,pkgdown,badger)


p_load(maditr,fst,glue,stringr,data.table)


# use_r("global_setting")
# use_r("select_dt")
# use_r("filter_dt")
# use_r("arrange_dt")

document()
install(upgrade = "never",dependencies = F)
.rs.restartR()
rm(list = ls())
library(tidydt)

options(pkgdown.internet = F)
build_site()

submit_cran()

# https://github.com/GuangchuangYu/badger
badge_devel("guangchuangyu/ggtree", "blue")
badge_devel("hope-data-science/tidydt", "blue")


use_logo(file.choose())
use_vignette(name = "Introduction",title = "Using data.table the tidy way")

iris %>%
  mutate_dt(group = Species,sl = Sepal.Length,sw = Sepal.Width) %>%
  select_dt(group,sl,sw) %>%
  filter_dt(sl > 5) %>%
  arrange_dt(group,sl) %>%
  distinct_dt(sl,keep_all = T) %>%
  summarise_dt(sw = max(sw),by = group)