Nothing
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)
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.