# NOT RUN {
tospongebob("SpongeBob-Case Conversion")
tospongebob(c("S3 generic function", "Mocking SpongeBob case"))
tospongebob(packageDescription("base"))
df <- head(datasets::CO2)
tospongebob(df)
tospongebob(summary(df))
nicktoons <- list(
spongebob = list(
episodes = c("Help Wanted", "Reef Blower", "Tea at the Treedome"),
characters = c("SpongeBob", "Patrick", "Squidward", "Sandy")
),
hey_arnold = list(
episodes = c("Downtown as Fruits", "Eugene's Bike"),
characters = c("Arnold", "Gerald", "Helga")
)
)
tospongebob(nicktoons)
# }
Run the code above in your browser using DataLab