Last updated on 2025-12-28 03:52:01 CET.
| Package | ERROR | NOTE | OK |
|---|---|---|---|
| sentopics | 1 | 2 | 10 |
Current CRAN status: ERROR: 1, NOTE: 2, OK: 10
Version: 0.7.6
Check: examples
Result: ERROR
Running examples in 'sentopics-Ex.R' failed
The error most likely occurred in:
> ### Name: topWords
> ### Title: Extract the most representative words from topics
> ### Aliases: topWords plot_topWords
>
> ### ** Examples
>
> model <- LDA(ECB_press_conferences_tokens)
> model <- fit(model, 10)
0% 10 20 30 40 50 60 70 80 90 100%
[----|----|----|----|----|----|----|----|----|----|
**************************************************|
> topWords(model)
topic word value[frequency] overall
<fctr> <char> <int> <num>
1: topic1 price 2098 2155
2: topic1 risk 1290 1374
3: topic1 development 1196 1583
4: topic1 inflation 925 1737
5: topic1 price_stability 873 1047
6: topic1 increase 625 674
7: topic1 outlook 625 868
8: topic1 euro_area 566 3169
9: topic1 pressure 546 684
10: topic1 oil 518 542
11: topic2 monetary 1262 1569
12: topic2 governing_council 921 1514
13: topic2 ecb 796 975
14: topic2 interest_rate 556 804
15: topic2 meeting 532 550
16: topic2 monetary_policy 448 1093
17: topic2 inflation 443 1737
18: topic2 outcome 403 418
19: topic2 money 397 415
20: topic2 president 358 358
21: topic3 fiscal 952 960
22: topic3 country 748 753
23: topic3 policy 716 813
24: topic3 euro_area 712 3169
25: topic3 growth 582 3424
26: topic3 reform 573 647
27: topic3 structural 541 594
28: topic3 market 442 1296
29: topic3 measure 340 861
30: topic3 european 328 336
31: topic4 euro_area 1370 3169
32: topic4 growth 1102 3424
33: topic4 economic 754 2018
34: topic4 real 698 726
35: topic4 quarter 692 903
36: topic4 projection 550 555
37: topic4 gdp 513 523
38: topic4 economy 413 830
39: topic4 staff 387 419
40: topic4 recovery 374 614
41: topic5 growth 1171 3424
42: topic5 rate 977 1355
43: topic5 annual 880 1268
44: topic5 loan 825 832
45: topic5 financial 797 1204
46: topic5 credit 550 705
47: topic5 euro_area 507 3169
48: topic5 sector 484 735
49: topic5 bank 481 722
50: topic5 household 412 420
topic word value[frequency] overall
> topWords(model, output = "matrix")
topic1 topic2 topic3 topic4
[1,] "price" "monetary" "fiscal" "euro_area"
[2,] "risk" "governing_council" "country" "growth"
[3,] "development" "ecb" "policy" "economic"
[4,] "inflation" "interest_rate" "euro_area" "real"
[5,] "price_stability" "meeting" "growth" "quarter"
[6,] "increase" "monetary_policy" "reform" "projection"
[7,] "outlook" "inflation" "structural" "gdp"
[8,] "euro_area" "outcome" "market" "economy"
[9,] "pressure" "money" "measure" "staff"
[10,] "oil" "president" "european" "recovery"
topic5
[1,] "growth"
[2,] "rate"
[3,] "annual"
[4,] "loan"
[5,] "financial"
[6,] "credit"
[7,] "euro_area"
[8,] "sector"
[9,] "bank"
[10,] "household"
> topWords(model, method = "FREX")
Error in `[.data.table`(phiStats, , `:=`("exclusivity", value/sum(value)), :
attempt access index 4/4 in VECTOR_ELT
Calls: topWords -> topWords_dt -> [ -> [.data.table
Execution halted
Flavor: r-devel-windows-x86_64
Version: 0.7.6
Check: tests
Result: ERROR
Running 'testthat.R' [129s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
> library("testthat")
> library("sentopics")
>
> # For solving 'Examples with CPU time > 2.5 times elapsed time'
> Sys.setenv("OMP_THREAD_LIMIT" = 2)
>
> if (Sys.getenv("R_COVR") != "true") {
+ test_check("sentopics")
+ } else {
+ test_check("sentopics", reporter = default_reporter())
+ # test_check("sentopics", reporter = LocationReporter)
+ }
0% 10 20 30 40 50 60 70 80 90 100%
[----|----|----|----|----|----|----|----|----|----|
**************************************************|
0% 10 20 30 40 50 60 70 80 90 100%
[----|----|----|----|----|----|----|----|----|----|
**************************************************|
0% 10 20 30 40 50 60 70 80 90 100%
[----|----|----|----|----|----|----|----|----|----|
**************************************************|
0% 10 20 30 40 50 60 70 80 90 100%
[----|----|----|----|----|----|----|----|----|----|
**************************************************|
[ FAIL 1 | WARN 0 | SKIP 1 | PASS 343 ]
══ Skipped tests (1) ═══════════════════════════════════════════════════════════
• On CRAN (1): 'test-parallel_chains.R:97:5'
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-basic.R:66:3'): topWords methods works ─────────────────────────
Error in ``[.data.table`(phiStats, , `:=`("exclusivity", value/sum(value)), by = word)`: attempt access index 4/4 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_silent(tops <- topWords(sentopicmodel, method = "FREX")) at test-basic.R:66:3
2. │ └─testthat:::quasi_capture(enquo(object), NULL, evaluate_promise)
3. │ ├─testthat (local) .capture(...)
4. │ │ ├─withr::with_output_sink(...)
5. │ │ │ └─base::force(code)
6. │ │ ├─base::withCallingHandlers(...)
7. │ │ └─base::withVisible(code)
8. │ └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
9. └─sentopics::topWords(sentopicmodel, method = "FREX")
10. └─sentopics:::topWords_dt(x, nWords, method, w)
11. ├─phiStats[, `:=`("exclusivity", value/sum(value)), by = word]
12. └─data.table:::`[.data.table`(...)
[ FAIL 1 | WARN 0 | SKIP 1 | PASS 343 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-windows-x86_64
Version: 0.7.6
Check: installed package size
Result: NOTE
installed size is 6.8Mb
sub-directories of 1Mb or more:
data 1.2Mb
libs 4.5Mb
Flavors: r-oldrel-macos-arm64, r-oldrel-macos-x86_64
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.
Health stats visible at Monitor.