| displayKwics <- function(q, htmlFile = file.path(tempfile(fileext = ".html"))) { |
| '<?xml version="1.0" encoding="UTF-8" standalone="yes"?> |
| font-family: "Lato", sans-serif; |
| div.kwic:nth-child(even) {background: #EEE} |
| div.kwic:nth-child(odd) {background: #FFF} |
| font-family: "Courier New", monospace; |
| "<div class='kwic'><span class='sigle'>", |
| q@collectedMatches$textSigle, |
| as.character(q@collectedMatches$snippet), |
| viewer <- getOption("viewer") |
| kco <- new("KorAPConnection", verbose = TRUE) |
| if (is.null(kco@accessToken)) { |
| "In order to receive KWICSs also from corpora with restricted licenses, you need an access token.\n", |
| "To generate an access token, login to KorAP and navigite to KorAP's OAuth settings <", |
| "settings/oauth#page-top>" |
| q <- corpusQuery(kco, "Ameisenplage", metadataOnly = F) %>% |