#' Auxiliary functions for the leaflet plotting
#'
#' This functions help manage the text in the leaflet plotting
#' @param graph The graph to be plotted.
#' @param nwords The number of words per line.
#' @return Multiple values depending on function
#'
#' @export
#' @examples
#' \dontrun{
#' g = my_network()['Suggests']
#' generate_labels(g)
#' }
#' @importFrom igraph V
generate_labels = function(graph,nwords=15){
labs <- lapply(1:length(V(graph)), function(i) {
pack = V(graph)$name[i]
desci = as.character(desc$Description[is.element(desc$Package,pack)])
catsi = ifelse(!is.na(cats$Category[is.element(cats$Package,pack)]),yes=as.character(cats$Category[is.element(cats$Package,pack)]),no='No AT')
desci = cut_string(desci,nwords=nwords)
paste0( '<p><font size = "6">', pack, '</font></p>','<font size = "3">',
desci,'</font>','<p>',catsi,'</p>')
})
return(unlist(labs))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.