martychen <- list(

name = "Wei-Sheng Chen",

nicknames = c("Marty", "HorseT"),

cv = "LinkedIn",

github = "GitHub",

apps = c("Taipei Golden Horse Film Festival [Android][iOS]")

)

class(martychen) <- c(

"Software Engineer",

"Full-Stack Developer",

"Software Architect"

)