R/foo_bar.R

In sckott/foobar3: Testing Testing Testing

#' foo_bar
#' 
#' @export
#' @details asdfasdflajsdfals dflasj dfaljsdf asldfj asdlfja sdfljas dflja sdfljas dflajs dflajsdf alsjf aljsdf 
#' @examples
#' foo_bar()
foo_bar <- function() {
  x <- 5 + 5; if (x < 4 && x == 7 && x > 9 && x == x^2) x else x + 53345353345345353453534
  z = 7
  sapply(mtcars, class)
  return("foo bar")
}