# create an object of class DataToAnalyze
dataToAnalyze <- structure(
  list(dataframe = iris, analyzed = "no"),
  class = "DataToAnalyze")

# Define custom print method for this new class

print <- function(x) UseMethod("print")

print.DataToAnalyze <- function(x) {
  if (x$analyzed == "no") {
    cat("\n\nData not analyzed\n")
  } else {
    cat("\n\nData analyzed\n")
  }
  cat("\nPrepare for summarized data: \n\n..............\n\n")
  print("Summary: you have data")
  # print(summary(x$dataframe)) #
}

# Define an analyze method
analyze <- function(x) UseMethod("analyze")
analyze.DataToAnalyze <- function(x) {
  x$analyzed <- "yes"
  return(x)
}

print(dataToAnalyze)
dataToAnalyze <- analyze(dataToAnalyze) # S3 Objects don't have side-effect
                                                                       # i.e. have to assign to mutate states
print(dataToAnalyze)