R/const.R

In basilkhuder/usefulR: usefulR functions

#Creates a constant variable type that cannot be changed. Similiar to Javascript's const.

`%<-%` <- function(lhs, rhs){
  let <- deparse(substitute(lhs))
  if (exists(let, parent.frame(), inherits = FALSE)) { 
    stop (glue::glue("The variable you are trying to create, {let}, already exists. 
                     Please choose another name or use the regular assignment operator to overwrite this variable."))
    } else { 
      assign(let, rhs, parent.frame())
    } 
  }