R/test.R

In jumentib/minidplyr: Nothing Matters

#' TEST
#' 
#' THIS IS SPARTA
#'
#' @return NOTHING
#' @export
#'
#' @examples
test <- function() {
  print("AAAAAH")
}


#' select2
#' 
#' A function to select column in a data.frame
#'
#' @param data a data.frame
#' @param selection interger, logical, or character vector
#'
#' @return the choosen column
#' @export
#'
#' @examples
#' x <- data.frame(x1 = rnorm(10), x2 = rnorm(10))
#' 
#' select2(x, "x1")
#' select2(x, 1)
select2 <- function(data, selection) {
  data[selection]
}