if (FALSE) {
## define the LaBB-CAT URL
labbcat.url <- "https://labbcat.canterbury.ac.nz/demo/"
## Get some span-layer intervales
topics <- getMatches(labbcat.url, list(topic = ".*quake.*"))
## Get concantenated word tokens for each topic annotation
topic.tokens <- getFragmentAnnotations(
labbcat.url, topics$Transcript, topics$Participant, topics$topic.start, topics$topic.end,
c("word"))
}
Run the code above in your browser using DataLab