DataScienceEducator <- setRefClass(
  "DataScienceEducator",
  fields = list(
    name = "character",
    role = "character",
    hobby = "character"
  ),
  methods = list(
    initialize = function() {
      name <<- "Greg Chism"
      role <<- "Assistant Professor of Practice"
      hobby <<- "Website Development"
    }
  )
)

say_hi <- function(ds_edu) {
  print(paste0("Passionate ", ds_edu$role, " with a research background and over eleven years of experience."))
  print("Adept at harnessing data to uncover compelling stories and insight.")
  print("Empowering others to leverage their data and make complex concepts accessible.")
  print("Expanded expertise in data science tools, including inferential statistics, machine learning, containers, and programming languages.")
  print("Capable of tackling a wide range of projects and challenges.")
  print("Committed to sharing knowledge and guiding others on their data-driven journeys.")
  print("Inspiring the next generation of data scientists and storytellers by connecting storytelling with data science.")
  print("Thanks for reading!")
}

ds_edu <- DataScienceEducator$new()
say_hi(ds_edu)