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

knitr::opts_chunk$set(echo = FALSE, warnings = FALSE)
library(RKorAPClient)
library(kableExtra)
library(DT)
library(tidyverse)
kco <- new("KorAPConnection", verbose=T)
if (!exists('ca')) {
ca <- kco %>%
  collocationAnalysis(
    "aufmerksam",
    leftContextSize = 2,
    rightContextSize = 2,
    exactFrequencies = TRUE,
    searchHitsSampleLimit = 1000,
    topCollocatesLimit = 10,
    withinSpan = "",
    maxRecurse=1
  )
}

ca %>%
  mutate(Beispiel=sprintf('<a href="%s">%s</a>', webUIRequestUrl, example)) %>%
  select(Beispiel, logDice, pmi, ll) %>%
  head(50) %>%
  datatable(escape = F,
            extensions = c('Buttons'),
            options = list(
              buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
              pageLength = 25,
              dom = 'ftpB'
            )) %>%
    formatRound(columns=~logDice + pmi + ll,digits=2)

KorAP/RKorAPClient documentation built on Feb. 6, 2024, 2:28 p.m.