Last updated on 2025-12-21 17:51:26 CET.
| Package | ERROR | NOTE | OK |
|---|---|---|---|
| lexicon | 13 | ||
| numform | 2 | 11 | |
| pacman | 2 | 11 | |
| qdap | 13 | ||
| qdapDictionaries | 2 | 11 | |
| qdapRegex | 13 | ||
| qdapTools | 13 | ||
| sentimentr | 4 | 9 | |
| textclean | 13 | ||
| textshape | 4 | 9 | |
| textstem | 2 | 11 | |
| wakefield | 2 | 11 |
Current CRAN status: NOTE: 13
Version: 1.2.1
Check: CRAN incoming feasibility
Result: NOTE
Maintainer: ‘Tyler Rinker <tyler.rinker@gmail.com>’
Package CITATION file contains call(s) to old-style citEntry(). Please
use bibentry() instead.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 1.2.1
Check: Rd files
Result: NOTE
checkRd: (-1) hash_sentiment_slangsd.Rd:28-37: Lost braces
28 | article{DBLP:journals/corr/Wu-etal16,
| ^
checkRd: (-1) hash_sentiment_slangsd.Rd:29: Lost braces; missing escapes or markup?
29 | author = {Liang Wu and Fred Morstatter and Huan Liu},
| ^
checkRd: (-1) hash_sentiment_slangsd.Rd:30-31: Lost braces
30 | title = {SlangSD: Building and Using a Sentiment Dictionary of Slang
| ^
checkRd: (-1) hash_sentiment_slangsd.Rd:32: Lost braces; missing escapes or markup?
32 | journal = {CoRR},
| ^
checkRd: (-1) hash_sentiment_slangsd.Rd:33: Lost braces; missing escapes or markup?
33 | volume = {abs/1608.05129},
| ^
checkRd: (-1) hash_sentiment_slangsd.Rd:34: Lost braces; missing escapes or markup?
34 | year = {2016},
| ^
checkRd: (-1) hash_sentiment_slangsd.Rd:35: Lost braces; missing escapes or markup?
35 | url = {http://arxiv.org/abs/1608.05129},
| ^
checkRd: (-1) hash_sentiment_slangsd.Rd:36: Lost braces; missing escapes or markup?
36 | timestamp = {Wed, 17 Aug 2016 23:32:57 GMT}
| ^
checkRd: (-1) sw_python.Rd:32: Lost braces; missing escapes or markup?
32 | * Neither the name of the {organization} nor the names of its
| ^
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64, r-patched-linux-x86_64, r-release-linux-x86_64, r-release-macos-arm64, r-release-macos-x86_64, r-release-windows-x86_64, r-oldrel-macos-arm64, r-oldrel-macos-x86_64, r-oldrel-windows-x86_64
Current CRAN status: NOTE: 2, OK: 11
Version: 0.7.0
Check: CRAN incoming feasibility
Result: NOTE
Maintainer: ‘Tyler Rinker <tyler.rinker@gmail.com>’
Package CITATION file contains call(s) to old-style citEntry(). Please
use bibentry() instead.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Current CRAN status: NOTE: 2, OK: 11
Version: 0.5.1
Check: CRAN incoming feasibility
Result: NOTE
Maintainer: ‘Tyler Rinker <tyler.rinker@gmail.com>’
Package CITATION file contains call(s) to old-style citEntry(). Please
use bibentry() instead.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Current CRAN status: OK: 13
Current CRAN status: NOTE: 2, OK: 11
Version: 1.0.7
Check: CRAN incoming feasibility
Result: NOTE
Maintainer: ‘Tyler Rinker <tyler.rinker@gmail.com>’
No Authors@R field in DESCRIPTION.
Please add one, modifying
Authors@R: person(given = "Tyler",
family = "Rinker",
role = c("aut", "cre"),
email = "tyler.rinker@gmail.com")
as necessary.
Package CITATION file contains call(s) to old-style citEntry(). Please
use bibentry() instead.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Current CRAN status: OK: 13
Current CRAN status: OK: 13
Current CRAN status: ERROR: 4, OK: 9
Version: 2.9.0
Check: CRAN incoming feasibility
Result: NOTE
Maintainer: ‘Tyler Rinker <tyler.rinker@gmail.com>’
Package CITATION file contains call(s) to old-style citEntry(). Please
use bibentry() instead.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 2.9.0
Check: examples
Result: ERROR
Running examples in ‘sentimentr-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: emotion
> ### Title: Compute Emotion Rate
> ### Aliases: emotion
>
> ### ** Examples
>
> mytext <- c(
+ "I am not afraid of you",
+ NA,
+ "",
+ "I love it [not really]",
+ "I'm not angry with you",
+ "I hate it when you lie to me. It's so humiliating",
+ "I'm not happpy anymore. It's time to end it",
+ "She's a darn good friend to me",
+ "I went to the terrible store",
+ "There is hate and love in each of us",
+ "I'm no longer angry! I'm really experiencing peace but not true joy.",
+
+ paste("Out of the night that covers me, Black as the Pit from pole to",
+ "pole, I thank whatever gods may be For my unconquerable soul."
+ ),
+ paste("In the fell clutch of circumstance I have not winced nor cried",
+ "aloud. Under the bludgeonings of chance My head is bloody, but unbowed."
+ ),
+ paste("Beyond this place of wrath and tears Looms but the Horror of the",
+ "shade, And yet the menace of the years Finds, and shall find, me unafraid."
+ ),
+ paste("It matters not how strait the gate, How charged with punishments",
+ "the scroll, I am the master of my fate: I am the captain of my soul."
+ )
+
+ )
>
> ## works on a character vector but not the preferred method avoiding the
> ## repeated cost of doing sentence boundary disambiguation every time
> ## `emotion` is run
> emotion(mytext)
Error in `[.data.table`(tidied[, list(token = stringi::stri_replace_all_regex(unlist(token), :
attempt access index 4/4 in VECTOR_ELT
Calls: emotion ... emotion.get_sentences_character -> [ -> [.data.table
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 2.9.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [5s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library("testthat")
> library("sentimentr")
>
> test_check("sentimentr")
Saving _problems/test-extract_sentiment_terms-8.R
Saving _problems/test-get_sentences-33.R
Saving _problems/test-highlight-5.R
Saving _problems/test-sentiment-10.R
Saving _problems/test-sentiment-25.R
Saving _problems/test-sentiment-40.R
Saving _problems/test-sentiment-53.R
Saving _problems/test-sentiment-68.R
Saving _problems/test-sentiment_by-11.R
Saving _problems/test-sentiment_by-18.R
Saving _problems/test-sentiment_by-30.R
Saving _problems/test-uncombine-11.R
[ FAIL 12 | WARN 0 | SKIP 0 | PASS 16 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-extract_sentiment_terms.R:8:5'): extract_sentiment_terms extracts the terms ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::extract_sentiment_terms(x) at test-extract_sentiment_terms.R:8:5
2. └─sentimentr:::extract_sentiment_terms.get_sentences_character(x)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-get_sentences.R:33:5'): get_sentences works on sentment/sentiment_by ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment_by(mytext, question.weight = 0) at test-get_sentences.R:33:5
2. └─sentimentr:::sentiment_by.get_sentences_character(mytext, question.weight = 0)
3. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
4. │ └─base::withCallingHandlers(...)
5. ├─sentimentr::sentiment(text.var = text.var, ...)
6. └─sentimentr:::sentiment.get_sentences_character(...)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
── Error ('test-highlight.R:5:5'): highlight produces an HTML file ─────────────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment_by(...) at test-highlight.R:5:5
2. └─sentimentr:::sentiment_by.get_sentences_character(...)
3. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
4. │ └─base::withCallingHandlers(...)
5. ├─sentimentr::sentiment(text.var = text.var, ...)
6. └─sentimentr:::sentiment.get_sentences_character(...)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:10:5'): sentiment produces a data.table with numeric sentiment column ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(sentiment(mytext), "data.table")) at test-sentiment.R:10:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(sentiment(mytext), "data.table")
5. ├─sentimentr::sentiment(mytext)
6. └─sentimentr:::sentiment.get_sentences_character(mytext)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:25:5'): sentiment question.weight = 0 alters the output ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment(mytext) at test-sentiment.R:25:5
2. └─sentimentr:::sentiment.get_sentences_character(mytext)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:40:5'): sentiment n.before/n.after alters the output ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment(mytext) at test-sentiment.R:40:5
2. └─sentimentr:::sentiment.get_sentences_character(mytext)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:53:5'): sentiment adversative.weight = 0 alters the output ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment(mytext) at test-sentiment.R:53:5
2. └─sentimentr:::sentiment.get_sentences_character(mytext)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:68:5'): sentiment_by plots a ggplot object ─────────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(plot(sentiment(mytext)), "ggplot")) at test-sentiment.R:68:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(plot(sentiment(mytext)), "ggplot")
5. ├─base::plot(sentiment(mytext))
6. ├─sentimentr::sentiment(mytext)
7. └─sentimentr:::sentiment.get_sentences_character(mytext)
8. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
9. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
10. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment_by.R:11:5'): sentiment_by gives combined elements when `by = NULL` ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(sentiment_by(mytext), "data.table")) at test-sentiment_by.R:11:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(sentiment_by(mytext), "data.table")
5. ├─sentimentr::sentiment_by(mytext)
6. └─sentimentr:::sentiment_by.get_sentences_character(mytext)
7. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
8. │ └─base::withCallingHandlers(...)
9. ├─sentimentr::sentiment(text.var = text.var, ...)
10. └─sentimentr:::sentiment.get_sentences_character(...)
11. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
12. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
13. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment_by.R:18:5'): sentiment_by gives combined group when `by` is given ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─base::with(...) at test-sentiment_by.R:18:5
2. └─base::with.default(...)
3. └─base::eval(substitute(expr), data, enclos = parent.frame())
4. └─base::eval(substitute(expr), data, enclos = parent.frame())
5. ├─sentimentr::sentiment_by(...)
6. └─sentimentr:::sentiment_by.get_sentences_character(...)
7. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
8. │ └─base::withCallingHandlers(...)
9. ├─sentimentr::sentiment(text.var = text.var, ...)
10. └─sentimentr:::sentiment.get_sentences_character(...)
11. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
12. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
13. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment_by.R:30:5'): sentiment_by plots a ggplot object ──────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(plot(sentiment_by(mytext)), "ggplot")) at test-sentiment_by.R:30:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(plot(sentiment_by(mytext)), "ggplot")
5. ├─base::plot(sentiment_by(mytext))
6. ├─sentimentr::sentiment_by(mytext)
7. └─sentimentr:::sentiment_by.get_sentences_character(mytext)
8. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
9. │ └─base::withCallingHandlers(...)
10. ├─sentimentr::sentiment(text.var = text.var, ...)
11. └─sentimentr:::sentiment.get_sentences_character(...)
12. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
13. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
14. └─data.table:::`[.data.table`(...)
── Error ('test-uncombine.R:11:5'): uncombine ... ──────────────────────────────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment_by(mytext) at test-uncombine.R:11:5
2. └─sentimentr:::sentiment_by.get_sentences_character(mytext)
3. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
4. │ └─base::withCallingHandlers(...)
5. ├─sentimentr::sentiment(text.var = text.var, ...)
6. └─sentimentr:::sentiment.get_sentences_character(...)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
[ FAIL 12 | WARN 0 | SKIP 0 | PASS 16 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 2.9.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [3s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library("testthat")
> library("sentimentr")
>
> test_check("sentimentr")
Saving _problems/test-extract_sentiment_terms-8.R
Saving _problems/test-get_sentences-33.R
Saving _problems/test-highlight-5.R
Saving _problems/test-sentiment-10.R
Saving _problems/test-sentiment-25.R
Saving _problems/test-sentiment-40.R
Saving _problems/test-sentiment-53.R
Saving _problems/test-sentiment-68.R
Saving _problems/test-sentiment_by-11.R
Saving _problems/test-sentiment_by-18.R
Saving _problems/test-sentiment_by-30.R
Saving _problems/test-uncombine-11.R
[ FAIL 12 | WARN 0 | SKIP 0 | PASS 16 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-extract_sentiment_terms.R:8:5'): extract_sentiment_terms extracts the terms ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::extract_sentiment_terms(x) at test-extract_sentiment_terms.R:8:5
2. └─sentimentr:::extract_sentiment_terms.get_sentences_character(x)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-get_sentences.R:33:5'): get_sentences works on sentment/sentiment_by ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment_by(mytext, question.weight = 0) at test-get_sentences.R:33:5
2. └─sentimentr:::sentiment_by.get_sentences_character(mytext, question.weight = 0)
3. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
4. │ └─base::withCallingHandlers(...)
5. ├─sentimentr::sentiment(text.var = text.var, ...)
6. └─sentimentr:::sentiment.get_sentences_character(...)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
── Error ('test-highlight.R:5:5'): highlight produces an HTML file ─────────────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment_by(...) at test-highlight.R:5:5
2. └─sentimentr:::sentiment_by.get_sentences_character(...)
3. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
4. │ └─base::withCallingHandlers(...)
5. ├─sentimentr::sentiment(text.var = text.var, ...)
6. └─sentimentr:::sentiment.get_sentences_character(...)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:10:5'): sentiment produces a data.table with numeric sentiment column ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(sentiment(mytext), "data.table")) at test-sentiment.R:10:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(sentiment(mytext), "data.table")
5. ├─sentimentr::sentiment(mytext)
6. └─sentimentr:::sentiment.get_sentences_character(mytext)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:25:5'): sentiment question.weight = 0 alters the output ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment(mytext) at test-sentiment.R:25:5
2. └─sentimentr:::sentiment.get_sentences_character(mytext)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:40:5'): sentiment n.before/n.after alters the output ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment(mytext) at test-sentiment.R:40:5
2. └─sentimentr:::sentiment.get_sentences_character(mytext)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:53:5'): sentiment adversative.weight = 0 alters the output ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment(mytext) at test-sentiment.R:53:5
2. └─sentimentr:::sentiment.get_sentences_character(mytext)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:68:5'): sentiment_by plots a ggplot object ─────────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(plot(sentiment(mytext)), "ggplot")) at test-sentiment.R:68:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(plot(sentiment(mytext)), "ggplot")
5. ├─base::plot(sentiment(mytext))
6. ├─sentimentr::sentiment(mytext)
7. └─sentimentr:::sentiment.get_sentences_character(mytext)
8. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
9. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
10. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment_by.R:11:5'): sentiment_by gives combined elements when `by = NULL` ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(sentiment_by(mytext), "data.table")) at test-sentiment_by.R:11:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(sentiment_by(mytext), "data.table")
5. ├─sentimentr::sentiment_by(mytext)
6. └─sentimentr:::sentiment_by.get_sentences_character(mytext)
7. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
8. │ └─base::withCallingHandlers(...)
9. ├─sentimentr::sentiment(text.var = text.var, ...)
10. └─sentimentr:::sentiment.get_sentences_character(...)
11. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
12. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
13. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment_by.R:18:5'): sentiment_by gives combined group when `by` is given ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─base::with(...) at test-sentiment_by.R:18:5
2. └─base::with.default(...)
3. └─base::eval(substitute(expr), data, enclos = parent.frame())
4. └─base::eval(substitute(expr), data, enclos = parent.frame())
5. ├─sentimentr::sentiment_by(...)
6. └─sentimentr:::sentiment_by.get_sentences_character(...)
7. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
8. │ └─base::withCallingHandlers(...)
9. ├─sentimentr::sentiment(text.var = text.var, ...)
10. └─sentimentr:::sentiment.get_sentences_character(...)
11. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
12. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
13. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment_by.R:30:5'): sentiment_by plots a ggplot object ──────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(plot(sentiment_by(mytext)), "ggplot")) at test-sentiment_by.R:30:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(plot(sentiment_by(mytext)), "ggplot")
5. ├─base::plot(sentiment_by(mytext))
6. ├─sentimentr::sentiment_by(mytext)
7. └─sentimentr:::sentiment_by.get_sentences_character(mytext)
8. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
9. │ └─base::withCallingHandlers(...)
10. ├─sentimentr::sentiment(text.var = text.var, ...)
11. └─sentimentr:::sentiment.get_sentences_character(...)
12. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
13. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
14. └─data.table:::`[.data.table`(...)
── Error ('test-uncombine.R:11:5'): uncombine ... ──────────────────────────────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment_by(mytext) at test-uncombine.R:11:5
2. └─sentimentr:::sentiment_by.get_sentences_character(mytext)
3. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
4. │ └─base::withCallingHandlers(...)
5. ├─sentimentr::sentiment(text.var = text.var, ...)
6. └─sentimentr:::sentiment.get_sentences_character(...)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
[ FAIL 12 | WARN 0 | SKIP 0 | PASS 16 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 2.9.0
Check: examples
Result: ERROR
Running examples in ‘sentimentr-Ex.R’ failed
The error most likely occurred in:
> ### Name: emotion
> ### Title: Compute Emotion Rate
> ### Aliases: emotion
>
> ### ** Examples
>
> mytext <- c(
+ "I am not afraid of you",
+ NA,
+ "",
+ "I love it [not really]",
+ "I'm not angry with you",
+ "I hate it when you lie to me. It's so humiliating",
+ "I'm not happpy anymore. It's time to end it",
+ "She's a darn good friend to me",
+ "I went to the terrible store",
+ "There is hate and love in each of us",
+ "I'm no longer angry! I'm really experiencing peace but not true joy.",
+
+ paste("Out of the night that covers me, Black as the Pit from pole to",
+ "pole, I thank whatever gods may be For my unconquerable soul."
+ ),
+ paste("In the fell clutch of circumstance I have not winced nor cried",
+ "aloud. Under the bludgeonings of chance My head is bloody, but unbowed."
+ ),
+ paste("Beyond this place of wrath and tears Looms but the Horror of the",
+ "shade, And yet the menace of the years Finds, and shall find, me unafraid."
+ ),
+ paste("It matters not how strait the gate, How charged with punishments",
+ "the scroll, I am the master of my fate: I am the captain of my soul."
+ )
+
+ )
>
> ## works on a character vector but not the preferred method avoiding the
> ## repeated cost of doing sentence boundary disambiguation every time
> ## `emotion` is run
> emotion(mytext)
Error in `[.data.table`(tidied[, list(token = stringi::stri_replace_all_regex(unlist(token), :
attempt access index 4/4 in VECTOR_ELT
Calls: emotion ... emotion.get_sentences_character -> [ -> [.data.table
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Version: 2.9.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [7s/12s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library("testthat")
> library("sentimentr")
>
> test_check("sentimentr")
Saving _problems/test-extract_sentiment_terms-8.R
Saving _problems/test-get_sentences-33.R
Saving _problems/test-highlight-5.R
Saving _problems/test-sentiment-10.R
Saving _problems/test-sentiment-25.R
Saving _problems/test-sentiment-40.R
Saving _problems/test-sentiment-53.R
Saving _problems/test-sentiment-68.R
Saving _problems/test-sentiment_by-11.R
Saving _problems/test-sentiment_by-18.R
Saving _problems/test-sentiment_by-30.R
Saving _problems/test-uncombine-11.R
[ FAIL 12 | WARN 0 | SKIP 0 | PASS 16 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-extract_sentiment_terms.R:8:5'): extract_sentiment_terms extracts the terms ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::extract_sentiment_terms(x) at test-extract_sentiment_terms.R:8:5
2. └─sentimentr:::extract_sentiment_terms.get_sentences_character(x)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-get_sentences.R:33:5'): get_sentences works on sentment/sentiment_by ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment_by(mytext, question.weight = 0) at test-get_sentences.R:33:5
2. └─sentimentr:::sentiment_by.get_sentences_character(mytext, question.weight = 0)
3. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
4. │ └─base::withCallingHandlers(...)
5. ├─sentimentr::sentiment(text.var = text.var, ...)
6. └─sentimentr:::sentiment.get_sentences_character(...)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
── Error ('test-highlight.R:5:5'): highlight produces an HTML file ─────────────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment_by(...) at test-highlight.R:5:5
2. └─sentimentr:::sentiment_by.get_sentences_character(...)
3. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
4. │ └─base::withCallingHandlers(...)
5. ├─sentimentr::sentiment(text.var = text.var, ...)
6. └─sentimentr:::sentiment.get_sentences_character(...)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:10:5'): sentiment produces a data.table with numeric sentiment column ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(sentiment(mytext), "data.table")) at test-sentiment.R:10:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(sentiment(mytext), "data.table")
5. ├─sentimentr::sentiment(mytext)
6. └─sentimentr:::sentiment.get_sentences_character(mytext)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:25:5'): sentiment question.weight = 0 alters the output ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment(mytext) at test-sentiment.R:25:5
2. └─sentimentr:::sentiment.get_sentences_character(mytext)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:40:5'): sentiment n.before/n.after alters the output ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment(mytext) at test-sentiment.R:40:5
2. └─sentimentr:::sentiment.get_sentences_character(mytext)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:53:5'): sentiment adversative.weight = 0 alters the output ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment(mytext) at test-sentiment.R:53:5
2. └─sentimentr:::sentiment.get_sentences_character(mytext)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:68:5'): sentiment_by plots a ggplot object ─────────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(plot(sentiment(mytext)), "ggplot")) at test-sentiment.R:68:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(plot(sentiment(mytext)), "ggplot")
5. ├─base::plot(sentiment(mytext))
6. ├─sentimentr::sentiment(mytext)
7. └─sentimentr:::sentiment.get_sentences_character(mytext)
8. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
9. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
10. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment_by.R:11:5'): sentiment_by gives combined elements when `by = NULL` ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(sentiment_by(mytext), "data.table")) at test-sentiment_by.R:11:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(sentiment_by(mytext), "data.table")
5. ├─sentimentr::sentiment_by(mytext)
6. └─sentimentr:::sentiment_by.get_sentences_character(mytext)
7. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
8. │ └─base::withCallingHandlers(...)
9. ├─sentimentr::sentiment(text.var = text.var, ...)
10. └─sentimentr:::sentiment.get_sentences_character(...)
11. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
12. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
13. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment_by.R:18:5'): sentiment_by gives combined group when `by` is given ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─base::with(...) at test-sentiment_by.R:18:5
2. └─base::with.default(...)
3. └─base::eval(substitute(expr), data, enclos = parent.frame())
4. └─base::eval(substitute(expr), data, enclos = parent.frame())
5. ├─sentimentr::sentiment_by(...)
6. └─sentimentr:::sentiment_by.get_sentences_character(...)
7. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
8. │ └─base::withCallingHandlers(...)
9. ├─sentimentr::sentiment(text.var = text.var, ...)
10. └─sentimentr:::sentiment.get_sentences_character(...)
11. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
12. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
13. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment_by.R:30:5'): sentiment_by plots a ggplot object ──────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(plot(sentiment_by(mytext)), "ggplot")) at test-sentiment_by.R:30:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(plot(sentiment_by(mytext)), "ggplot")
5. ├─base::plot(sentiment_by(mytext))
6. ├─sentimentr::sentiment_by(mytext)
7. └─sentimentr:::sentiment_by.get_sentences_character(mytext)
8. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
9. │ └─base::withCallingHandlers(...)
10. ├─sentimentr::sentiment(text.var = text.var, ...)
11. └─sentimentr:::sentiment.get_sentences_character(...)
12. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
13. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
14. └─data.table:::`[.data.table`(...)
── Error ('test-uncombine.R:11:5'): uncombine ... ──────────────────────────────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment_by(mytext) at test-uncombine.R:11:5
2. └─sentimentr:::sentiment_by.get_sentences_character(mytext)
3. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
4. │ └─base::withCallingHandlers(...)
5. ├─sentimentr::sentiment(text.var = text.var, ...)
6. └─sentimentr:::sentiment.get_sentences_character(...)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
[ FAIL 12 | WARN 0 | SKIP 0 | PASS 16 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 2.9.0
Check: tests
Result: ERROR
Running ‘testthat.R’
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library("testthat")
> library("sentimentr")
>
> test_check("sentimentr")
Saving _problems/test-extract_sentiment_terms-8.R
Saving _problems/test-get_sentences-33.R
Saving _problems/test-highlight-5.R
Saving _problems/test-sentiment-10.R
Saving _problems/test-sentiment-25.R
Saving _problems/test-sentiment-40.R
Saving _problems/test-sentiment-53.R
Saving _problems/test-sentiment-68.R
Saving _problems/test-sentiment_by-11.R
Saving _problems/test-sentiment_by-18.R
Saving _problems/test-sentiment_by-30.R
Saving _problems/test-uncombine-11.R
[ FAIL 12 | WARN 0 | SKIP 0 | PASS 16 ]
══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test-extract_sentiment_terms.R:8:5'): extract_sentiment_terms extracts the terms ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::extract_sentiment_terms(x) at test-extract_sentiment_terms.R:8:5
2. └─sentimentr:::extract_sentiment_terms.get_sentences_character(x)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-get_sentences.R:33:5'): get_sentences works on sentment/sentiment_by ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment_by(mytext, question.weight = 0) at test-get_sentences.R:33:5
2. └─sentimentr:::sentiment_by.get_sentences_character(mytext, question.weight = 0)
3. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
4. │ └─base::withCallingHandlers(...)
5. ├─sentimentr::sentiment(text.var = text.var, ...)
6. └─sentimentr:::sentiment.get_sentences_character(...)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
── Error ('test-highlight.R:5:5'): highlight produces an HTML file ─────────────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment_by(...) at test-highlight.R:5:5
2. └─sentimentr:::sentiment_by.get_sentences_character(...)
3. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
4. │ └─base::withCallingHandlers(...)
5. ├─sentimentr::sentiment(text.var = text.var, ...)
6. └─sentimentr:::sentiment.get_sentences_character(...)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:10:5'): sentiment produces a data.table with numeric sentiment column ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(sentiment(mytext), "data.table")) at test-sentiment.R:10:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(sentiment(mytext), "data.table")
5. ├─sentimentr::sentiment(mytext)
6. └─sentimentr:::sentiment.get_sentences_character(mytext)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:25:5'): sentiment question.weight = 0 alters the output ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment(mytext) at test-sentiment.R:25:5
2. └─sentimentr:::sentiment.get_sentences_character(mytext)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:40:5'): sentiment n.before/n.after alters the output ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment(mytext) at test-sentiment.R:40:5
2. └─sentimentr:::sentiment.get_sentences_character(mytext)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:53:5'): sentiment adversative.weight = 0 alters the output ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment(mytext) at test-sentiment.R:53:5
2. └─sentimentr:::sentiment.get_sentences_character(mytext)
3. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
4. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
5. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment.R:68:5'): sentiment_by plots a ggplot object ─────────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(plot(sentiment(mytext)), "ggplot")) at test-sentiment.R:68:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(plot(sentiment(mytext)), "ggplot")
5. ├─base::plot(sentiment(mytext))
6. ├─sentimentr::sentiment(mytext)
7. └─sentimentr:::sentiment.get_sentences_character(mytext)
8. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
9. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
10. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment_by.R:11:5'): sentiment_by gives combined elements when `by = NULL` ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(sentiment_by(mytext), "data.table")) at test-sentiment_by.R:11:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(sentiment_by(mytext), "data.table")
5. ├─sentimentr::sentiment_by(mytext)
6. └─sentimentr:::sentiment_by.get_sentences_character(mytext)
7. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
8. │ └─base::withCallingHandlers(...)
9. ├─sentimentr::sentiment(text.var = text.var, ...)
10. └─sentimentr:::sentiment.get_sentences_character(...)
11. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
12. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
13. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment_by.R:18:5'): sentiment_by gives combined group when `by` is given ──
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─base::with(...) at test-sentiment_by.R:18:5
2. └─base::with.default(...)
3. └─base::eval(substitute(expr), data, enclos = parent.frame())
4. └─base::eval(substitute(expr), data, enclos = parent.frame())
5. ├─sentimentr::sentiment_by(...)
6. └─sentimentr:::sentiment_by.get_sentences_character(...)
7. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
8. │ └─base::withCallingHandlers(...)
9. ├─sentimentr::sentiment(text.var = text.var, ...)
10. └─sentimentr:::sentiment.get_sentences_character(...)
11. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
12. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
13. └─data.table:::`[.data.table`(...)
── Error ('test-sentiment_by.R:30:5'): sentiment_by plots a ggplot object ──────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─testthat::expect_true(is(plot(sentiment_by(mytext)), "ggplot")) at test-sentiment_by.R:30:5
2. │ └─testthat::quasi_label(enquo(object), label)
3. │ └─rlang::eval_bare(expr, quo_get_env(quo))
4. ├─methods::is(plot(sentiment_by(mytext)), "ggplot")
5. ├─base::plot(sentiment_by(mytext))
6. ├─sentimentr::sentiment_by(mytext)
7. └─sentimentr:::sentiment_by.get_sentences_character(mytext)
8. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
9. │ └─base::withCallingHandlers(...)
10. ├─sentimentr::sentiment(text.var = text.var, ...)
11. └─sentimentr:::sentiment.get_sentences_character(...)
12. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
13. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
14. └─data.table:::`[.data.table`(...)
── Error ('test-uncombine.R:11:5'): uncombine ... ──────────────────────────────
Error in ``[.data.table`(dat, , `:=`(indx, wc < 1), by = c("id", "sentences", "wc"))`: attempt access index 3/3 in VECTOR_ELT
Backtrace:
▆
1. ├─sentimentr::sentiment_by(mytext) at test-uncombine.R:11:5
2. └─sentimentr:::sentiment_by.get_sentences_character(mytext)
3. ├─base::suppressWarnings(sentiment(text.var = text.var, ...))
4. │ └─base::withCallingHandlers(...)
5. ├─sentimentr::sentiment(text.var = text.var, ...)
6. └─sentimentr:::sentiment.get_sentences_character(...)
7. └─sentimentr:::make_sentence_df2(sents, retention_regex = retention_regex)
8. ├─dat[, `:=`(indx, wc < 1), by = c("id", "sentences", "wc")]
9. └─data.table:::`[.data.table`(...)
[ FAIL 12 | WARN 0 | SKIP 0 | PASS 16 ]
Error:
! Test failures.
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc
Current CRAN status: NOTE: 13
Version: 0.9.3
Check: CRAN incoming feasibility
Result: NOTE
Maintainer: ‘Tyler Rinker <tyler.rinker@gmail.com>’
Package CITATION file contains call(s) to old-style citEntry(). Please
use bibentry() instead.
Found the following (possibly) invalid file URI:
URI: CONDUCT.md
From: README.md
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 0.9.3
Check: Rd files
Result: NOTE
checkRd: (-1) check_text.Rd:31: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:32: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:33: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:34: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:35: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:36: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:37: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:38: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:39: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:40: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:41: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:42: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:43: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:44: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:45: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:46: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:47: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:48: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:49: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:50: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:51: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:52: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) check_text.Rd:53: Lost braces in \itemize; \value handles \item{}{} directly
checkRd: (-1) replace_html.Rd:12: Lost braces
12 | \item{symbol}{logical. If code{TRUE} the symbols are retained with appropriate
| ^
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64, r-patched-linux-x86_64, r-release-linux-x86_64, r-release-macos-arm64, r-release-macos-x86_64, r-release-windows-x86_64, r-oldrel-macos-arm64, r-oldrel-macos-x86_64, r-oldrel-windows-x86_64
Current CRAN status: ERROR: 4, OK: 9
Version: 1.7.5
Check: examples
Result: ERROR
Running examples in ‘textshape-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: combine
> ### Title: Combine Elements
> ### Aliases: combine combine.default combine.data.frame
>
> ### ** Examples
>
> (x <- split_token(DATA[["state"]][1], FALSE))
[[1]]
[1] "Computer" "is" "fun" "." "Not" "too" "fun"
[8] "."
> combine(x)
[1] "Computer is fun. Not too fun."
>
> (x2 <- split_token(DATA[["state"]], FALSE))
[[1]]
[1] "Computer" "is" "fun" "." "Not" "too" "fun"
[8] "."
[[2]]
[1] "No" "it's" "not" "," "it's" "dumb" "."
[[3]]
[1] "What" "should" "we" "do" "?"
[[4]]
[1] "You" "liar" "," "it" "stinks" "!"
[[5]]
[1] "I" "am" "telling" "the" "truth" "!"
[[6]]
[1] "How" "can" "we" "be" "certain" "?"
[[7]]
[1] "There" "is" "no" "way" "."
[[8]]
[1] "I" "distrust" "you" "."
[[9]]
[1] "What" "are" "you" "talking" "about" "?"
[[10]]
[1] "Shall" "we" "move" "on" "?" "Good" "then" "."
[[11]]
[1] "I'm" "hungry" "." "Let's" "eat" "." "You"
[8] "already" "?"
> combine(x2)
[1] "Computer is fun. Not too fun." "No it's not, it's dumb."
[3] "What should we do?" "You liar, it stinks!"
[5] "I am telling the truth!" "How can we be certain?"
[7] "There is no way." "I distrust you."
[9] "What are you talking about?" "Shall we move on? Good then."
[11] "I'm hungry. Let's eat. You already?"
>
> (x3 <- split_sentence(DATA))
Error in `[.data.table`(z, , `:=`("sentence_id", 1:.N), by = list(element_id)) :
attempt access index 6/6 in VECTOR_ELT
Calls: split_sentence -> split_sentence.data.frame -> [ -> [.data.table
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Version: 1.7.5
Check: examples
Result: ERROR
Running examples in ‘textshape-Ex.R’ failed
The error most likely occurred in:
> ### Name: combine
> ### Title: Combine Elements
> ### Aliases: combine combine.default combine.data.frame
>
> ### ** Examples
>
> (x <- split_token(DATA[["state"]][1], FALSE))
[[1]]
[1] "Computer" "is" "fun" "." "Not" "too" "fun"
[8] "."
> combine(x)
[1] "Computer is fun. Not too fun."
>
> (x2 <- split_token(DATA[["state"]], FALSE))
[[1]]
[1] "Computer" "is" "fun" "." "Not" "too" "fun"
[8] "."
[[2]]
[1] "No" "it's" "not" "," "it's" "dumb" "."
[[3]]
[1] "What" "should" "we" "do" "?"
[[4]]
[1] "You" "liar" "," "it" "stinks" "!"
[[5]]
[1] "I" "am" "telling" "the" "truth" "!"
[[6]]
[1] "How" "can" "we" "be" "certain" "?"
[[7]]
[1] "There" "is" "no" "way" "."
[[8]]
[1] "I" "distrust" "you" "."
[[9]]
[1] "What" "are" "you" "talking" "about" "?"
[[10]]
[1] "Shall" "we" "move" "on" "?" "Good" "then" "."
[[11]]
[1] "I'm" "hungry" "." "Let's" "eat" "." "You"
[8] "already" "?"
> combine(x2)
[1] "Computer is fun. Not too fun." "No it's not, it's dumb."
[3] "What should we do?" "You liar, it stinks!"
[5] "I am telling the truth!" "How can we be certain?"
[7] "There is no way." "I distrust you."
[9] "What are you talking about?" "Shall we move on? Good then."
[11] "I'm hungry. Let's eat. You already?"
>
> (x3 <- split_sentence(DATA))
Error in `[.data.table`(z, , `:=`("sentence_id", 1:.N), by = list(element_id)) :
attempt access index 6/6 in VECTOR_ELT
Calls: split_sentence -> split_sentence.data.frame -> [ -> [.data.table
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc
Current CRAN status: NOTE: 2, OK: 11
Version: 0.1.4
Check: CRAN incoming feasibility
Result: NOTE
Maintainer: ‘Tyler Rinker <tyler.rinker@gmail.com>’
Package CITATION file contains call(s) to old-style citEntry(). Please
use bibentry() instead.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc
Current CRAN status: NOTE: 2, OK: 11
Version: 0.3.6
Check: CRAN incoming feasibility
Result: NOTE
Maintainer: ‘Tyler Rinker <tyler.rinker@gmail.com>’
Package CITATION file contains call(s) to old-style citEntry(). Please
use bibentry() instead.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc