Last updated on 2024-05-28 12:56:53 CEST.
Package | ERROR | OK |
---|---|---|
WhatsR | 1 | 12 |
Current CRAN status: ERROR: 1, OK: 12
Version: 1.0.4
Check: examples
Result: ERROR
Running examples in ‘WhatsR-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: plot_wordcloud
> ### Title: Wordclouds for 'WhatsApp' chat logs
> ### Aliases: plot_wordcloud
>
> ### ** Examples
>
> data <- readRDS(system.file("ParsedWhatsAppChat.rds", package = "WhatsR"))
> plot_wordcloud(data, comparison = TRUE, min_occur = 6)
*** caught segfault ***
address 0x1, cause 'memory not mapped'
Traceback:
1: wordcloud_boxes(data_points = points_valid_first, boxes = boxes, boxes_text = boxes_text, text_boxes = text_boxes, bigboxes = bigboxes, boxes_masks = boxes_masks, boxes_mask = boxes_mask, mask_boxes = mask_boxes, mask_group = mask_group, angle_group = angle_group, max_angle_group = x$data$max_angle_group[1], xlim = range(x$limits$x), ylim = range(x$limits$y), eccentricity = x$eccentricity, rstep = x$rstep, tstep = x$tstep, perc_step = x$perc_step, max_steps = x$max_steps, rm_outside = x$rm_outside, shape = x$shape)
2: makeContent.textwordcloudtree(x)
3: makeContent(x)
4: drawGTree(x)
5: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
6: grid.draw.gTree(x$children[[i]], recording = FALSE)
7: grid.draw(x$children[[i]], recording = FALSE)
8: drawGTree(x)
9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
10: grid.draw.gTree(x$children[[i]], recording = FALSE)
11: grid.draw(x$children[[i]], recording = FALSE)
12: drawGTree(x)
13: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
14: grid.draw.gTree(x$children[[i]], recording = FALSE)
15: grid.draw(x$children[[i]], recording = FALSE)
16: drawGTree(x)
17: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
18: grid.draw.gTree(gtable)
19: grid.draw(gtable)
20: print.ggplot(out)
21: print(out)
22: plot_wordcloud(data, comparison = TRUE, min_occur = 6)
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault
Examples with CPU (user + system) or elapsed time > 5s
user system elapsed
plot_locations 4.794 0.144 9.194
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.0.4
Check: tests
Result: ERROR
Running ‘testthat.R’ [111s/176s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
> library(testthat)
> library(WhatsR)
>
> test_check("WhatsR")
Loading required package: ragg
i © Stadia Maps © Stamen Design © OpenMapTiles © OpenStreetMap contributors.
i © Stadia Maps © Stamen Design © OpenMapTiles © OpenStreetMap contributors.
i © Stadia Maps © Stamen Design © OpenMapTiles © OpenStreetMap contributors.
i © Stadia Maps © Stamen Design © OpenMapTiles © OpenStreetMap contributors.
*** caught segfault ***
address 0x1, cause 'memory not mapped'
Traceback:
1: wordcloud_boxes(data_points = points_valid_first, boxes = boxes, boxes_text = boxes_text, text_boxes = text_boxes, bigboxes = bigboxes, boxes_masks = boxes_masks, boxes_mask = boxes_mask, mask_boxes = mask_boxes, mask_group = mask_group, angle_group = angle_group, max_angle_group = x$data$max_angle_group[1], xlim = range(x$limits$x), ylim = range(x$limits$y), eccentricity = x$eccentricity, rstep = x$rstep, tstep = x$tstep, perc_step = x$perc_step, max_steps = x$max_steps, rm_outside = x$rm_outside, shape = x$shape)
2: makeContent.textwordcloudtree(x)
3: makeContent(x)
4: drawGTree(x)
5: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
6: grid.draw.gTree(x$children[[i]], recording = FALSE)
7: grid.draw(x$children[[i]], recording = FALSE)
8: drawGTree(x)
9: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
10: grid.draw.gTree(x$children[[i]], recording = FALSE)
11: grid.draw(x$children[[i]], recording = FALSE)
12: drawGTree(x)
13: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
14: grid.draw.gTree(x$children[[i]], recording = FALSE)
15: grid.draw(x$children[[i]], recording = FALSE)
16: drawGTree(x)
17: recordGraphics(drawGTree(x), list(x = x), getNamespace("grid"))
18: grid.draw.gTree(gtable)
19: grid.draw(gtable)
20: print.ggplot(out)
21: print(out)
22: plot_wordcloud(data, names = "all", starttime = "1960-01-01 00:00", endtime = as.character(as.POSIXct(Sys.time(), tz = "UTC")), remove_stops = TRUE, stop = "english", comparison = FALSE, return_data = TRUE, font_size = 10, min_occur = 3, exclude_sm = TRUE)
23: eval(code, test_env)
24: eval(code, test_env)
25: withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error)
26: doTryCatch(return(expr), name, parentenv, handler)
27: tryCatchOne(expr, names, parentenv, handlers[[1L]])
28: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
29: doTryCatch(return(expr), name, parentenv, handler)
30: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
31: tryCatchList(expr, classes, parentenv, handlers)
32: tryCatch(withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) { })
33: test_code(desc, code, env = parent.frame(), default_reporter = local_interactive_reporter())
34: test_that("Plotting Wordcloud", { hush <- function(code) { if (.Platform$OS.type == "windows") { sink("") sink() } else { sink("/dev/null") sink() } tmp <- code } data <- parse_chat(system.file("englishiosampm.txt", package = "WhatsR")) test_wc1 <- plot_wordcloud(data, names = "all", starttime = "1960-01-01 00:00", endtime = as.character(as.POSIXct(Sys.time(), tz = "UTC")), remove_stops = TRUE, stop = "english", comparison = FALSE, return_data = TRUE, font_size = 10, min_occur = 3, exclude_sm = TRUE) test <- readRDS(system.file("test_wc1.rds", package = "WhatsR")) expect_identical(test_wc1, test) test_wc2 <- plot_wordcloud(data, names = "all", starttime = "1960-01-01 00:00", endtime = as.character(as.POSIXct(Sys.time(), tz = "UTC")), remove_stops = FALSE, stop = "english", comparison = TRUE, return_data = TRUE, font_size = 15, min_occur = 3, exclude_sm = TRUE) test <- readRDS(system.file("test_wc2.rds", package = "WhatsR")) expect_identical(test_wc2, test) test_wc3 <- plot_wordcloud(data, names = "all", starttime = "1960-01-01 00:00", endtime = as.character(as.POSIXct(Sys.time(), tz = "UTC")), remove_stops = TRUE, stop = "english", comparison = FALSE, return_data = TRUE, font_size = 20, min_occur = 5, exclude_sm = TRUE) test <- readRDS(system.file("test_wc3.rds", package = "WhatsR")) expect_identical(test_wc3, test) test_wc4 <- plot_wordcloud(data, names = "all", starttime = "1960-01-01 00:00", endtime = as.character(as.POSIXct(Sys.time(), tz = "UTC")), remove_stops = FALSE, stop = "english", comparison = TRUE, return_data = TRUE, font_size = 10, min_occur = 2, exclude_sm = TRUE) test <- readRDS(system.file("test_wc4.rds", package = "WhatsR")) expect_identical(test_wc4, test)})
35: eval(code, test_env)
36: eval(code, test_env)
37: withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error)
38: doTryCatch(return(expr), name, parentenv, handler)
39: tryCatchOne(expr, names, parentenv, handlers[[1L]])
40: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
41: doTryCatch(return(expr), name, parentenv, handler)
42: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]])
43: tryCatchList(expr, classes, parentenv, handlers)
44: tryCatch(withCallingHandlers({ eval(code, test_env) if (!handled && !is.null(test)) { skip_empty() }}, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, message = handle_message, error = handle_error), error = handle_fatal, skip = function(e) { })
45: test_code(test = NULL, code = exprs, env = env, default_reporter = StopReporter$new())
46: source_file(path, env = env(env), desc = desc, error_call = error_call)
47: FUN(X[[i]], ...)
48: lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call)
49: doTryCatch(return(expr), name, parentenv, handler)
50: tryCatchOne(expr, names, parentenv, handlers[[1L]])
51: tryCatchList(expr, classes, parentenv, handlers)
52: tryCatch(code, testthat_abort_reporter = function(cnd) { cat(conditionMessage(cnd), "\n") NULL})
53: with_reporter(reporters$multi, lapply(test_paths, test_one_file, env = env, desc = desc, error_call = error_call))
54: test_files_serial(test_dir = test_dir, test_package = test_package, test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, desc = desc, load_package = load_package, error_call = error_call)
55: test_files(test_dir = path, test_paths = test_paths, test_package = package, reporter = reporter, load_helpers = load_helpers, env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, load_package = load_package, parallel = parallel)
56: test_dir("testthat", package = package, reporter = reporter, ..., load_package = "installed")
57: test_check("WhatsR")
An irrecoverable exception occurred. R is aborting now ...
Segmentation fault
Flavor: r-devel-linux-x86_64-debian-gcc