R/utils.r

get_slot <- function(x, name, default='') {
  if(name %in% slotNames(x)) {
    slot(x, name)
  }
  else {
    default
  }
}

"%||%" <- function(x, y) if(is.null(x)) y else x
jimhester/dplyrJDBC documentation built on May 19, 2019, 10:31 a.m.