Error in HubGeneNetworkPlot()

[chent5]

I previously got no errors when running HubGeneNetworkPlot(). However, after my school updated the R OnDemand, I have to install the hdWGCNA package and then I got the error below:

Error in getGlobalsAndPackages(expr, envir = envir, globals = globals) :
The total size of the 4 globals exported for future expression (‘FUN()’) is 3.02 GiB. This exceeds the maximum allowed size 500.00 MiB per by R option "future.globals.maxSize". This limit is set to protect against transfering too large objects to parallel workers by mistake, which may not be intended and could be costly. See help("future.globals.maxSize", package = "future") for further explainations and how to adjust or remove this threshold The three largest globals are ‘FUN’ (3.02 GiB of class ‘function’), ‘modules’ (1.32 MiB of class ‘list’) and ‘edge_df’ (52.23 KiB of class ‘list’)

Could you please help to solve this problem? Thank you so much!

[jianghao0799]

Hi, @chent5
I got the same error. 🫠
Have you solved this problem? 😊

Error in getGlobalsAndPackages(expr, envir = envir, globals = globals): The total size of the 3 globals exported for future expression (‘FUN()’) is 774.08 MiB. This exceeds the maximum allowed size 500.00 MiB per by R option "future.globals.maxSize". This limit is set to protect against transfering too large objects to parallel workers by mistake, which may not be intended and could be costly. See help("future.globals.maxSize", package = "future") for further explainations and how to adjust or remove this threshold There are three globals: ‘FUN’ (771.51 MiB of class ‘function’), ‘edge_df’ (1.99 MiB of class ‘list’) and ‘selected_modules’ (596.27 KiB of class ‘list’)
Traceback:

1. future.apply::future_sapply(1:nrow(edge_df), function(i) {
 .     gene1 = as.character(edge_df[i, "Var1"])
 .     gene2 = as.character(edge_df[i, "Var2"])
 .     col1 <- selected_modules[selected_modules$gene_name == gene1, 
 .         "color"]
 .     col2 <- selected_modules[selected_modules$gene_name == gene2, 
 .         "color"]
 .     if (col1 == col2) {
 .         col = col1
 .     }
 .     else {
 .         col = "grey90"
 .     }
 .     col
 . })
2. future_lapply(X = X, FUN = FUN, ..., future.envir = future.envir, 
 .     future.label = future.label)
3. future_xapply(FUN = FUN, nX = nX, chunk_args = X, args = list(...), 
 .     get_chunk = `chunkWith[[`, expr = expr, envir = envir, future.envir = future.envir, 
 .     future.globals = future.globals, future.packages = future.packages, 
 .     future.scheduling = future.scheduling, future.chunk.size = future.chunk.size, 
 .     future.stdout = future.stdout, future.conditions = future.conditions, 
 .     future.seed = future.seed, future.label = future.label, fcn_name = fcn_name, 
 .     args_name = args_name, debug = debug)
4. getGlobalsAndPackagesXApply(FUN = FUN, args = args, MoreArgs = MoreArgs, 
 .     envir = envir, future.globals = future.globals, future.packages = future.packages, 
 .     debug = debug)
5. getGlobalsAndPackages(expr, envir = envir, globals = globals)
6. stop(msg)
7. .handleSimpleError(function (cnd) 
 . {
 .     watcher$capture_plot_and_output()
 .     cnd <- sanitize_call(cnd)
 .     watcher$push(cnd)
 .     switch(on_error, continue = invokeRestart("eval_continue"), 
 .         stop = invokeRestart("eval_stop"), error = NULL)
 . }, "The total size of the 3 globals exported for future expression (‘FUN()’) is 774.08 MiB. This exceeds the maximum allowed size 500.00 MiB per by R option \"future.globals.maxSize\". This limit is set to protect against transfering too large objects to parallel workers by mistake, which may not be intended and could be costly. See help(\"future.globals.maxSize\", package = \"future\") for further explainations and how to adjust or remove this threshold There are three globals: ‘FUN’ (771.51 MiB of class ‘function’), ‘edge_df’ (1.99 MiB of class ‘list’) and ‘selected_modules’ (596.27 KiB of class ‘list’)", 
 .     base::quote(getGlobalsAndPackages(expr, envir = envir, globals = globals)))