# NOT RUN {
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")
)
)
spongebob:::tospongebob.default(nicktoons)
# }
Run the code above in your browser using DataLab