wip

BOX/01_simple_box.R

@@ -0,0 +1,16 @@
+box::use(
+  tibble,
+  mod/hello
+)
+hello$hello("jim")
+
+options('box.path')
+
+day = date()
+log = function (msg) {
+  box::use(glue[glue])
+  # We can now use `glue` inside the function:
+  message(glue('{day}-[LOG MESSAGE] {msg}'))
+}
+
+log('test')

BOX/mod/hello.R

@@ -0,0 +1,20 @@
+# Box module
+# mod/hello.R
+
+# USAGE:
+
+# box::use(
+#   tibble,
+#   mod/hello   # no .R extension
+# )
+# hello$hello("jim")
+
+#' @export
+hello = function (name) {
+  message('Hello, ', name, '!')
+}
+
+#' @export
+bye = function (name) {
+  message('Goodbye ', name, '!')
+}