testthat/old/tira_col.R

# retira colunas
tira_col <- function(x, tira = NULL){
  if(is.null(tira)){ tira <- c('X__1') }
  x <- select(x,-tira)
  return(x)
}
filipezabala/jurimetrics documentation built on Aug. 28, 2020, 1:37 p.m.