Nothing
library(act)
# Search
mysearch <- act::search_new(examplecorpus, pattern="yo")
# Create print transcripts for all search results
test <- act::search_cuts_printtranscript (x=examplecorpus, s=mysearch)
# Display all print transcripts on screen from @cuts.printtranscripts
cat(test@cuts.printtranscripts)
# Display all print transcripts from results data frame
cat(test@results[,mysearch@cuts.column.printtranscript])
cat(test@results[,mysearch@cuts.column.printtranscript])
# Only single print transcript from results data frame
cat(test@results[1,mysearch@cuts.column.printtranscript])
# Create print transcript snippets including 1 sec before and 5 sec after
mysearch@cuts.span.beforesec =1
mysearch@cuts.span.aftersec = 5
test <- act::search_cuts_printtranscript (x=examplecorpus,
s=mysearch)
# Display all transcript snippets on screen
cat(test@results[,mysearch@cuts.column.printtranscript])
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.