# NOT RUN {
kcon <- new("KorAPConnection", verbose = TRUE)
kq <- corpusQuery(kcon, "Ameisenplage")
kq <- fetchAll(kq)
# }
# NOT RUN {
# }
# NOT RUN {
kcon <- new("KorAPConnection", verbose = TRUE, accessToken="e739u6eOzkwADQPdVChxFg")
kq <- corpusQuery(kcon, "Ameisenplage", metadataOnly=FALSE)
kq <- fetchAll(kq)
kq@collectedMatches$snippet
# }
# NOT RUN {
# }
# NOT RUN {
kco <- new("KorAPConnection", accessToken="e739u6eOzkwADQPdVChxFg")
persistAccessToken(kco)
# }
# NOT RUN {
# }
# NOT RUN {
kco <- new("KorAPConnection")
clearAccessToken(kco)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab