CRAN Package Check Results for Package WhatsR

Last updated on 2024-05-30 20:51:53 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.0.4 20.13 290.98 311.11 ERROR
r-devel-linux-x86_64-debian-gcc 1.0.4 15.19 220.12 235.31 ERROR
r-devel-linux-x86_64-fedora-clang 1.0.4 393.29 ERROR
r-devel-linux-x86_64-fedora-gcc 1.0.4 415.43 OK
r-devel-windows-x86_64 1.0.4 17.00 231.00 248.00 ERROR
r-patched-linux-x86_64 1.0.4 16.51 302.09 318.60 OK
r-release-linux-x86_64 1.0.4 12.63 302.58 315.21 OK
r-release-macos-arm64 1.0.4 143.00 OK
r-release-macos-x86_64 1.0.4 358.00 OK
r-release-windows-x86_64 1.0.4 18.00 245.00 263.00 OK
r-oldrel-macos-arm64 1.0.4 141.00 OK
r-oldrel-macos-x86_64 1.0.4 261.00 OK
r-oldrel-windows-x86_64 1.0.4 24.00 291.00 315.00 OK

Check Details

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 6.553 0.502 9.558 Flavor: r-devel-linux-x86_64-debian-clang

Version: 1.0.4
Check: tests
Result: ERROR Running ‘testthat.R’ [143s/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-clang

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 5.182 0.252 9.494 Flavor: r-devel-linux-x86_64-debian-gcc

Version: 1.0.4
Check: tests
Result: ERROR Running ‘testthat.R’ [110s/184s] 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

Version: 1.0.4
Check: examples
Result: ERROR Running examples in ‘WhatsR-Ex.R’ failed The error most likely occurred in: > ### 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 ... Flavor: r-devel-linux-x86_64-fedora-clang

Version: 1.0.4
Check: tests
Result: ERROR Running ‘testthat.R’ [177s/272s] 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 ... Flavor: r-devel-linux-x86_64-fedora-clang

Version: 1.0.4
Check: examples
Result: ERROR Running examples in 'WhatsR-Ex.R' failed The error most likely occurred in: > ### 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) Flavor: r-devel-windows-x86_64

Version: 1.0.4
Check: tests
Result: ERROR Running 'testthat.R' [110s] 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. Flavor: r-devel-windows-x86_64