Pinned

1. activeBinding activeBinding

   1

   ABC <- local({

   2

     x <- 1

   3

     function(v) {

   4

       if (missing(v)){

   5

         cat("get\n")

2. One line to keep rows such that ther... One line to keep rows such that there are no NAs across all columns

   1

   # One line to keep rows such that there are no NAs across all columns

   2

   dt[Reduce("&", lapply(dt, function(i) !is.na(i)))]

3. example_rlang_newcall.R example_rlang_newcall.R

   1

   library(rlang)

   2

   3

   # Symbolic objects and functions are callable:

   4

   is_callable(quote(foo))

   5

   is_callable(base::identity)

4. Launch New Package Launch New Package

   1

   # DEFINE HELPER FUNS AND SET INIT OPTIONS ---------------------------------

   2

   3

   options(devtools.name = "Bobby Fatemi")

   4

   options(devtools.desc.license = "file LICENSE")

   5

   options(devtools.desc.author =  'person(email = "bfatemi07@gmail.com", role = c("aut", "cre"), given = "Bobby", family = "Fatemi")')

5. shiny app to explore current session... shiny app to explore current session user and more

   1

   library(shiny)

   2

   library(lubridate)

   3

   library(sodium)

   4

   library(jsonlite)

   5

6. dbo_Dockerfile dbo_Dockerfile

   1

   ##

   2

   ## POSTGRES LITE DOCKERFILE- create db, user/pwd, and open listening

   3

   ##

   4

   FROM postgres:11.1-alpine

   5