demo/displayKwics.R

In KorAP/RKorAPClient: 'KorAP' Web Service Client Package

library(RKorAPClient)
library(httr)
library(kableExtra)
library(dplyr)

query = 'V\u00F6ner' # "Portable packages must use only ASCII characters in their demos."

korap_app <-oauth_app("test-korap-client", key = "773NHGM76N7P9b6rLfmpM4", secret = NULL)
korap_endpoint <- oauth_endpoint(NULL,
                                 "settings/oauth/authorize",
                                 "api/v1.0/oauth2/token",
                                 base_url = "https://korap.ids-mannheim.de")
token_bundle = oauth2.0_token(korap_endpoint, korap_app, scope = "search match_info", cache = FALSE)

new("KorAPConnection", verbose = TRUE, accessToken = token_bundle[["credentials"]][["access_token"]]) %>%
  corpusQuery(query, fields = c("textSigle", "pubDate", "corpusTitle", "snippet"),
              metadataOnly = FALSE) %>%
  fetchAll() %>%
  slot("collectedMatches") %>%
  dplyr::arrange(pubDate) %>%
  dplyr::rename("kwic" = "snippet") %>%
  kable(escape = FALSE, caption = paste0("Query hits for '", query, "' ordered by date of publication")) %>%
  kable_styling() %>%
  print()