betweeness doesn't work

[ebridge2]

No description provided.

[zheng-da]

can you be more specific? such as running into an error? if it is, can you help me reproduce it?

[ebridge2]

error provided in slack correspondance. message below:

1: .Call("R_FG_compute_betweenness", fg, vids, PACKAGE = "FlashGraphR") 2: fg.betweenness(g) 3: as.vector(fg.betweenness(g)) 4: eval(expr, envir, enclos) 5: eval(expr, envir, enclos) 6: withVisible(eval(expr, envir, enclos)) 7: withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler) 8: doTryCatch(return(expr), name, parentenv, handler) 9: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 10: tryCatchList(expr, classes, parentenv, handlers) 11: tryCatch(expr, error = function(e) { call <- conditionCall(e) if (!is.null(call)) { if (identical(call[[1L]], quote(doTryCatch))) call <- sys.call(-4L) dcall <- deparse(call)[1L] prefix <- paste("Error in", dcall, ": ") LONG <- 75L msg <- conditionMessage(e) sm <- strsplit(msg, "\n")[[1L]] w <- 14L + nchar(dcall, type = "w") + nchar(sm[1L], type = "w") if (is.na(w)) w <- 14L + nchar(dcall, type = "b") + nchar(sm[1L], type = "b") if (w > LONG) prefix <- paste0(prefix, "\n ") } else prefix <- "Error : " msg <- paste0(prefix, conditionMessage(e), "\n") .Internal(seterrmessage(msg[1L])) if (!silent && identical(getOption("show.error.messages"), TRUE)) { cat(msg, file = outFile) .Internal(printDeferredWarnings()) } invisible(structure(msg, class = "try-error", condition = e))}) 12: try(f, silent = TRUE) 13: handle(ev <- withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler)) 14: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval(expr, envir, enclos)), warning = wHandler, error = eHandler, message = mHandler))) 15: evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos, debug = debug, last = i == length(out), use_try = stop_on_error != 2L, keep_warning = keep_warning, keep_message = keep_message, output_handler = output_handler, include_timing = include_timing) 16: evaluate(request$content$code, envir = .GlobalEnv, output_handler = oh, stop_on_error = 1L) 17: doTryCatch(return(expr), name, parentenv, handler) 18: tryCatchOne(expr, names, parentenv, handlers[[1L]]) 19: tryCatchList(expr, names[-nh], parentenv, handlers[-nh]) 20: doTryCatch(return(expr), name, parentenv, handler) 21: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), names[nh], parentenv, handlers[[nh]]) 22: tryCatchList(expr, classes, parentenv, handlers) 23: tryCatch(evaluate(request$content$code, envir = .GlobalEnv, output_handler = oh, stop_on_error = 1L), interrupt = function(cond) interrupted <<- TRUE, error = .self$handle_error) 24: executor$execute(msg) 25: handle_shell() 26: kernel$run() 27: IRkernel::main()