tests/testthat/test-misc.R

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

test_that("queryStringToLabel works correctly", {
  expect_equivalent(queryStringToLabel(
    c(
      "referTo=x & textClass = /natur.*/ & creationDate in 2013",
      "referTo=x & textClass = /natur.*/ & creationDate in 2014"
    )
  ),
  c("2013", "2014"))

  expect_equivalent(queryStringToLabel(
    c(
      "referTo=x & textClass = /natur.*/ & pubDate in 2013",
      "referTo=x & textClass = /freizeit.*/ & pubDate in 2014"
    ),
    pubDateOnly = T
  ),
  c("2013", "2014"))

  expect_equivalent(queryStringToLabel(
    c(
      "referTo=x & textClass = /natur.*/ & creationDate in 2013",
      "referTo=x & textClass = /freizeit.*/ & creationDate in 2014"
    ),
    pubDateOnly = T
  ),
  c("2013", "2014"))

  expect_equivalent(queryStringToLabel(
    c(
      "referTo=x & textClass = /natur.*/ & creationDate in 2013",
      "referTo=x & textClass = /freizeit.*/ & creationDate in 2014"
    ),
    excludePubDate = T
  ),
  c("/natur.*/", "/freizeit.*/"))
})

test_that("geom_freq_by_year_ci works correctly", {
  df <-
    structure(
      list(
        condition = c(
          "textDomain = /Wirtschaft.*/",
          "textDomain = /Wirtschaft.*/",
          "textDomain = /Wirtschaft.*/",
          "textDomain = /Wirtschaft.*/",
          "textDomain = /Wirtschaft.*/",
          "textDomain = /Wirtschaft.*/",
          "textDomain = /Wirtschaft.*/",
          "textDomain != /Wirtschaft.*/",
          "textDomain != /Wirtschaft.*/",
          "textDomain != /Wirtschaft.*/",
          "textDomain != /Wirtschaft.*/",
          "textDomain != /Wirtschaft.*/",
          "textDomain != /Wirtschaft.*/",
          "textDomain != /Wirtschaft.*/"
        ),
        year = c(
          2005L,
          2006L,
          2007L,
          2008L,
          2009L,
          2010L,
          2011L,
          2005L,
          2006L,
          2007L,
          2008L,
          2009L,
          2010L,
          2011L
        ),
        query = c(
          "[tt/l=Heuschrecke]",
          "[tt/l=Heuschrecke]",
          "[tt/l=Heuschrecke]",
          "[tt/l=Heuschrecke]",
          "[tt/l=Heuschrecke]",
          "[tt/l=Heuschrecke]",
          "[tt/l=Heuschrecke]",
          "[tt/l=Heuschrecke]",
          "[tt/l=Heuschrecke]",
          "[tt/l=Heuschrecke]",
          "[tt/l=Heuschrecke]",
          "[tt/l=Heuschrecke]",
          "[tt/l=Heuschrecke]",
          "[tt/l=Heuschrecke]"
        ),
        totalResults = c(
          531L,
          823L,
          1130L,
          496L,
          302L,
          159L,
          122L,
          2831L,
          2245L,
          2477L,
          2010L,
          1697L,
          1142L,
          1829L
        ),
        vc = c(
          "textDomain = /Wirtschaft.*/ & pubDate in 2005",
          "textDomain = /Wirtschaft.*/ & pubDate in 2006",
          "textDomain = /Wirtschaft.*/ & pubDate in 2007",
          "textDomain = /Wirtschaft.*/ & pubDate in 2008",
          "textDomain = /Wirtschaft.*/ & pubDate in 2009",
          "textDomain = /Wirtschaft.*/ & pubDate in 2010",
          "textDomain = /Wirtschaft.*/ & pubDate in 2011",
          "textDomain != /Wirtschaft.*/ & pubDate in 2005",
          "textDomain != /Wirtschaft.*/ & pubDate in 2006",
          "textDomain != /Wirtschaft.*/ & pubDate in 2007",
          "textDomain != /Wirtschaft.*/ & pubDate in 2008",
          "textDomain != /Wirtschaft.*/ & pubDate in 2009",
          "textDomain != /Wirtschaft.*/ & pubDate in 2010",
          "textDomain != /Wirtschaft.*/ & pubDate in 2011"
        ),
        webUIRequestUrl = c(
          "https://korapt.ids-mannheim.de/?q=%5btt%2fl%3dHeuschrecke%5d&cq=textDomain%20%3d%20%2fWirtschaft.%2a%2f%20%26%20pubDate%20in%202005&ql=poliqarp",
          "https://korapt.ids-mannheim.de/?q=%5btt%2fl%3dHeuschrecke%5d&cq=textDomain%20%3d%20%2fWirtschaft.%2a%2f%20%26%20pubDate%20in%202006&ql=poliqarp",
          "https://korapt.ids-mannheim.de/?q=%5btt%2fl%3dHeuschrecke%5d&cq=textDomain%20%3d%20%2fWirtschaft.%2a%2f%20%26%20pubDate%20in%202007&ql=poliqarp",
          "https://korapt.ids-mannheim.de/?q=%5btt%2fl%3dHeuschrecke%5d&cq=textDomain%20%3d%20%2fWirtschaft.%2a%2f%20%26%20pubDate%20in%202008&ql=poliqarp",
          "https://korapt.ids-mannheim.de/?q=%5btt%2fl%3dHeuschrecke%5d&cq=textDomain%20%3d%20%2fWirtschaft.%2a%2f%20%26%20pubDate%20in%202009&ql=poliqarp",
          "https://korapt.ids-mannheim.de/?q=%5btt%2fl%3dHeuschrecke%5d&cq=textDomain%20%3d%20%2fWirtschaft.%2a%2f%20%26%20pubDate%20in%202010&ql=poliqarp",
          "https://korapt.ids-mannheim.de/?q=%5btt%2fl%3dHeuschrecke%5d&cq=textDomain%20%3d%20%2fWirtschaft.%2a%2f%20%26%20pubDate%20in%202011&ql=poliqarp",
          "https://korapt.ids-mannheim.de/?q=%5btt%2fl%3dHeuschrecke%5d&cq=textDomain%20%21%3d%20%2fWirtschaft.%2a%2f%20%26%20pubDate%20in%202005&ql=poliqarp",
          "https://korapt.ids-mannheim.de/?q=%5btt%2fl%3dHeuschrecke%5d&cq=textDomain%20%21%3d%20%2fWirtschaft.%2a%2f%20%26%20pubDate%20in%202006&ql=poliqarp",
          "https://korapt.ids-mannheim.de/?q=%5btt%2fl%3dHeuschrecke%5d&cq=textDomain%20%21%3d%20%2fWirtschaft.%2a%2f%20%26%20pubDate%20in%202007&ql=poliqarp",
          "https://korapt.ids-mannheim.de/?q=%5btt%2fl%3dHeuschrecke%5d&cq=textDomain%20%21%3d%20%2fWirtschaft.%2a%2f%20%26%20pubDate%20in%202008&ql=poliqarp",
          "https://korapt.ids-mannheim.de/?q=%5btt%2fl%3dHeuschrecke%5d&cq=textDomain%20%21%3d%20%2fWirtschaft.%2a%2f%20%26%20pubDate%20in%202009&ql=poliqarp",
          "https://korapt.ids-mannheim.de/?q=%5btt%2fl%3dHeuschrecke%5d&cq=textDomain%20%21%3d%20%2fWirtschaft.%2a%2f%20%26%20pubDate%20in%202010&ql=poliqarp",
          "https://korapt.ids-mannheim.de/?q=%5btt%2fl%3dHeuschrecke%5d&cq=textDomain%20%21%3d%20%2fWirtschaft.%2a%2f%20%26%20pubDate%20in%202011&ql=poliqarp"
        ),
        total = c(
          35980430L,
          43834111L,
          45318302L,
          48021215L,
          43445640L,
          37850216L,
          43208130L,
          734690498L,
          754436010L,
          837243512L,
          870913993L,
          840473763L,
          758631859L,
          1650860702L
        ),
        f = c(
          1.4758022625077e-05,
          1.87753322977167e-05,
          2.49347382874142e-05,
          1.0328768232957e-05,
          6.95121535785869e-06,
          4.20076862969553e-06,
          2.82354269902447e-06,
          3.85332328062857e-06,
          2.97573282590262e-06,
          2.9585179992413e-06,
          2.30792020355103e-06,
          2.0190993160128e-06,
          1.50534147287901e-06,
          1.10790692260358e-06
        ),
        conf.low = c(
          13.541726123006,
          17.5246639403598,
          23.5119781061303,
          9.44895282189122,
          6.19934083242504,
          3.58441307384462,
          2.35445121482762,
          3.71330289674541,
          2.85451040064217,
          2.84369529096211,
          2.20864478463198,
          1.92471184006826,
          1.41988948639017,
          1.05798679123886
        ),
        conf.high = c(
          16.0822620637798,
          20.1144124716816,
          26.4429033931224,
          11.2894924346856,
          7.79280444795191,
          4.92066150039394,
          3.38358495629102,
          3.9985973655165,
          3.10207445836027,
          3.07795241551153,
          2.41163153037033,
          2.11808565716224,
          1.59589532013765,
          1.1601678685439
        ),
        ipm = c(
          14.758022625077,
          18.7753322977167,
          24.9347382874142,
          10.328768232957,
          6.95121535785869,
          4.20076862969553,
          2.82354269902447,
          3.85332328062857,
          2.97573282590262,
          2.9585179992413,
          2.30792020355103,
          2.0190993160128,
          1.50534147287901,
          1.10790692260358
        )
      ),
      class = "data.frame",
      row.names = c(NA,-14L)
    )
    gpt <- df %>% ggplot(aes(year, ipm, fill = condition, color = condition)) +
      geom_freq_by_year_ci()
    expect_equal(gpt[["labels"]][["url"]], "webUIRequestUrl")
    expect_equal(gpt[["data"]][["query"]][14], "[tt/l=Heuschrecke]")
})