# NOT RUN {
########################################################################
# Create a story object for the Star Trek The Original Series episode #
# TOS1x19 "The Arena" and manipulate it in various ways #
########################################################################
story_id <- "TOS1x19"
mystory <- story$new(story_id)
print(mystory)
# Add "pride" as a minor theme
mystory$add_theme(theme = "pride", level = "minor")
# Remove "pride" as a minor theme on second thought
mystory$remove_theme(theme = "pride")
# Add "candy shop" as a setting
mystory$add_setting(setting = "candy shop")
# Remove "candy shop" as a setting
#' mystory$remove_setting(setting = "candy shop")
# Add a new keyword
mystory$add_keyword(keyword = "Captain Kirk is climbing a mountain")
# }
Run the code above in your browser using DataLab