#' Wrapper to change format between nr_list and data.frame
#'
#' @param data A `nr_list` object
#'
#' @return A `data.frame`
#' @export
#'
#'
as.data.frame.nr_list <- function(data)
{
return(data.frame(
Source = as.character(data$Source),
centrality = data$centrality,
cluster = data$cluster, stringsAsFactors = F))
UseMethod("as.data.frame")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.