R/stdin.R

In kota7/rpacktest: Demonstrate R Package Building

Defines functions marryme

Documented in marryme

#' Standard input
#' @export
marryme <- function()
{
  ans <- readline("will you marry me? (y/n) > ")
  return(ans == "y")
}