Newer
Older
#' Printing method for the advise.good.movie function
#'
#' \code{print.advise} prints the selected value and the advised movies
#'
#' @param advice Output of a call to \code{\link{advise.good.movie}}.
#'
#' @method print advice
#' @export
print.advice <- function(advice){
cat("Based on the movie",
advice$selected,
"we advise to watch",
paste(advice$to_watch,collapse=" and "))
}