R/character-quotes.R

In tbradley1013/dundermifflin: The Office Quotes on-Demand

#' Get quotes from specific characters
#'
#' @param ... arguments to be passed to \link[dundermifflin]{get_quote}
#'
#' @examples
#' \dontrun{
#'   michael()
#'   jim()
#'   kelly()
#'   dwight()
#' }
#'
#'
#' @name character_quotes
NULL

#' @rdname character_quotes
#' @export
michael <- function(...){
  get_quote(character = "Michael", ...)
}


#' @rdname character_quotes
#' @export
jim <- function(...){
  get_quote(character = "Jim", ...)
}


#' @rdname character_quotes
#' @export
dwight <- function(...){
  get_quote(character = "Dwight", ...)
}

#' @rdname character_quotes
#' @export
pam <- function(...){
  get_quote(character = "Pam", ...)
}


#' @rdname character_quotes
#' @export
andy <- function(...){
  get_quote(character = "Andy", ...)
}

#' @rdname character_quotes
#' @export
kevin <- function(...){
  get_quote(character = "Kevin", ...)
}

#' @rdname character_quotes
#' @export
angela <- function(...){
  get_quote(character = "Angela", ...)
}

#' @rdname character_quotes
#' @export
erin <- function(...){
  get_quote(character = "Erin", ...)
}

#' @rdname character_quotes
#' @export
oscar <- function(...){
  get_quote(character = "Oscar", ...)
}

#' @rdname character_quotes
#' @export
ryan <- function(...){
  get_quote(character = "Ryan", ...)
}

#' @rdname character_quotes
#' @export
darryl <- function(...){
  get_quote(character = "Darryl", ...)
}

#' @rdname character_quotes
#' @export
phyllis <- function(...){
  get_quote(character = "Phyllis", ...)
}

#' @rdname character_quotes
#' @export
toby <- function(...){
  get_quote(character = "Toby", ...)
}

#' @rdname character_quotes
#' @export
kelly <- function(...){
  get_quote(character = "Kelly", ...)
}

#' @rdname character_quotes
#' @export
stanley <- function(...){
  get_quote(character = "Stanley", ...)
}

#' @rdname character_quotes
#' @export
meredith <- function(...){
  get_quote(character = "Meredith", ...)
}

#' @rdname character_quotes
#' @export
creed <- function(...){
  get_quote(character = "Creed", ...)
}