if (FALSE) {
# Initialize the LTO `demo` version of a classic The Twilight Zone (1959) story:
set_lto("demo")
story <- Story$new(story_id = "tz1959e1x22")
# Print story info and thematic annotations to console:
story
# Print story info and thematic annotations in st.txt format:
story$print(canonical = TRUE)
# Return the story title:
story$title()
# Return the story description:
story$description()
# Return a tibble of thematic annotations:
story$themes()
}
Run the code above in your browser using DataLab