box.R
In box: Write Reusable, Composable and Modular R Code

## ----eval = FALSE-------------------------------------------------------------
#  box::use(./bio/seq)

## ----eval = FALSE-------------------------------------------------------------
#  ls()

## ----eval = FALSE-------------------------------------------------------------
#  seq

## ----eval = FALSE-------------------------------------------------------------
#  ls(seq)

## ----eval = FALSE-------------------------------------------------------------
#  box::help(seq$revcomp)

## ----eval = FALSE-------------------------------------------------------------
#  s = seq$seq(
#      gene1 = 'GATTACAGATCAGCTCAGCACCTAGCACTATCAGCAAC',
#      gene2 = 'CATAGCAACTGACATCACAGCG'
#  )
#  
#  seq$is_valid(s)

## ----eval = FALSE-------------------------------------------------------------
#  s

## ----eval = FALSE-------------------------------------------------------------
#  getS3method('print', 'bio/seq')

## ----eval = FALSE-------------------------------------------------------------
#  box::unload(seq)

## ----eval = FALSE-------------------------------------------------------------
#  options(box.path = getwd())
#  box::use(bio/seq[revcomp, is_valid])

## ----eval = FALSE-------------------------------------------------------------
#  is_valid(s)

## ----eval = FALSE-------------------------------------------------------------
#  revcomp(s)

## ----eval = FALSE-------------------------------------------------------------
#  search()

## ----eval = FALSE-------------------------------------------------------------
#  detach()
#  
#  seq_table = function (s) {
#      box::use(./bio/seq[...])
#      table(s)
#  }
#  
#  seq_table(s)

## ----eval = FALSE-------------------------------------------------------------
#  search()

## ----eval = FALSE-------------------------------------------------------------
#  table(s)

## ----eval = FALSE-------------------------------------------------------------
#  #' @export
#  box::use(./seq)

## ----eval = FALSE-------------------------------------------------------------
#  options(box.path = NULL) # Reset search path
#  box::use(./bio)
#  ls(bio)

## ----eval = FALSE-------------------------------------------------------------
#  ls(bio$seq)

## ----eval = FALSE-------------------------------------------------------------
#  bio$seq$revcomp('CAT')

## ----eval = FALSE-------------------------------------------------------------
#  #' @export
#  box::use(./seq[...])

## ----eval = FALSE-------------------------------------------------------------
#  .on_load = function (ns) {
#      message(
#          'Loading module "', box::name(), '"\n',
#          'Module path: "', basename(box::file()), '"'
#      )
#  }
#  
#  box::export() # Mark as a ‘box’ module.

## ----eval = FALSE-------------------------------------------------------------
#  box::use(./info)

## ----eval = FALSE-------------------------------------------------------------
#  box::use(./info)

## ----eval = FALSE-------------------------------------------------------------
#  box::reload(info)