Skip to content
Extraits de code Groupes Projets
print_advise.R 405 octets
Newer Older
  • Learn to ignore specific revisions
  • Alexandre Jacquemain's avatar
    Alexandre Jacquemain a validé
    #' 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 "))
    
    }