R/null_to_default.R

In ropensci/robotstxt: A 'robots.txt' Parser and 'Webbot'/'Spider'/'Crawler' Permissions Checker

Defines functions null_to_defeault

Documented in null_to_defeault

#' null_to_defeault
#'
#' @param x value to check and return
#' @param d value to return in case x is NULL
#'
null_to_defeault <-
  function(x, d){
    if ( is.null(x) ){
      d
    }else{
      x
    }
  }