tree 0218113d9cc2903c97d899bf1fe1451f6008ff14
parent 38e4e0201557f2af7b5502ffd467f1f03a044bc1
author Marc Kupietz <kupietz@ids-mannheim.de> 1714404225 +0200
committer Marc Kupietz <kupietz@ids-mannheim.de> 1714404225 +0200

Fix comparison type check in R-devel

making sure the bang bang operator is applied.

Running the tests in ‘tests/testthat.R’ failed.
Last 13 lines of output:
Error in `as.name(thresholdScore) >= threshold`: comparison (>=) is
not possible for language types
  Backtrace:
      ▆
   1. ├─testthat::expect_warning(...) at test-collocations.R:19:5
2. │ └─testthat:::quasi_capture(...) at
testthat/R/expect-condition.R:170:5
3. │   ├─testthat (local) .capture(...) at
testthat/R/quasi-label.R:54:3
4. │   │ └─base::withCallingHandlers(...) at
testthat/R/deprec-condition.R:102:3
5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo)) at
testthat/R/quasi-label.R:54:3
   6. ├─RKorAPClient::collocationAnalysis(...) at rlang/R/eval.R:96:3
7. └─RKorAPClient::collocationAnalysis(...) at
RKorAPClient/R/collocationAnalysis.R:1:35
   8.   └─RKorAPClient (local) .local(kco, ...)

Change-Id: I5f3984376e4a6b01ba9ae03d8ef3e684284be4ef