tests/testthat/test_tokenvis.r

In kasperwelbers/tokenbrowser: Create Full Text Browsers from Annotated Token Lists

test_that("tokenbrowser", {
  library(testthat)
  d = sotu_data

  ## simple
  d$tokens
  d$meta$test = NA
  url = create_browser(d$tokens, d$meta, token_col = 'token', header = 'Speeches')
  testthat::expect_true(file.exists(url))

  ## simple with navigation
  url = create_browser(d$tokens, d$meta, token_col = 'token', header = 'Speeches', doc_nav = 'headline')
  testthat::expect_true(file.exists(url))

  ## highlight
  highlight = nchar(as.character(sotu_data$tokens$token))
  highlight = round(highlight / max(highlight), 1)
  highlight[highlight < 0.3] = NA
  url = highlighted_browser(sotu_data$tokens, value = highlight, sotu_data$meta)
  #view_browser(url)
  testthat::expect_true(file.exists(url))

  ## scales
  scale = nchar(as.character(sotu_data$tokens$token))
  scale[scale>6] = scale[scale>6] +20
  scale = rescale_var(sqrt(scale), -1, 1)
  scale[abs(scale) < 0.5] = NA
  url = colorscaled_browser(sotu_data$tokens, value = scale, meta=sotu_data$meta)
  testthat::expect_true(file.exists(url))

  ## search results
  code = rep(NA, nrow(sotu_data$tokens))
  code[grep('war', sotu_data$tokens$token)] = 'War'
  code[grep('mother|father|child', sotu_data$tokens$token)] = 'Family'
  code = as.factor(code)
  url = categorical_browser(sotu_data$tokens, category=(code), meta=sotu_data$meta)
  testthat::expect_true(file.exists(url))

  ## categories (using top_nav)
  category = match(sotu_data$tokens$pos, c('N','M','V'))
  category[sotu_data$tokens$doc_id == unique(sotu_data$tokens$doc_id)[2]] = NA ## add empty document for test

  url = categorical_browser(sotu_data$tokens, category=category, labels=c('N','M','V'), meta=sotu_data$meta, top_nav=2)
  testthat::expect_true(file.exists(url))

  ## remove missing meta
  sotu_data$meta$medium[1] = NA
  url = create_browser(sotu_data$tokens, meta=sotu_data$meta, drop_missing_meta=T)
  #view_browser(url)
  testthat::expect_true(file.exists(url))
})