使用evently包生成转推级联报错及全局变量/函数定义问题求助

环境与示例验证 #

我安装了GitHub上的evently包（地址：https://github.com/behavioral-ds/evently），用于从推特对象jsonl文件生成转推级联，官方示例代码可正常运行：

filepath <- system.file('extdata', 'tweets_anonymized.jsonl', package = 'evently')
cascades <- parse_raw_tweets_to_cascades(filepath, progress = F)

注1：parse_raw_tweets_to_cascades函数位于tweet.R文件，负责从指定jsonl文件生成转推级联。

自有数据运行异常 #

使用结构与示例一致的自有数据运行时，能正确提取tweet_id、retweet_id、user_id等信息，但无法生成级联，报错如下：

Error in rep(1:nrow(index), cascade_sizes) : invalid 'times' argument

该报错通常因cascade_sizes为负数、空值或非数值向量导致，打印cascade_sizes仅输出：

"Mona Cascade size is"

额外提示信息 #

执行tweet.R中processed_tweets <- data.table::as.data.table(data.table::rbindlist(processed_tweets_batch))行后，出现两类提示：

• 函数fwrite、:=、setorder存在no visible global function definition问题
• 变量tweet_time、absolute_time、start_ind、end_ind存在no visible binding for global variable问题

已尝试的无效解决操作 #

我查阅相关内容后尝试了以下方法，但问题未得到解决：

1. 在tweet.R中添加代码：

#' @import utils 
utils::globalVariables(c("absolute_time", "start_ind", "end_ind"))

2. 在函数顶部添加代码将变量初始化设为NULL：

tweet_time <- end_ind <- start_ind <- absolute_time <- NULL

内容的提问来源于stack exchange，提问作者mOna