#' Title
#'
#' @param list_for_df
#'
#' @return
#' @export
#'
#' @examples
#' test.goseq3.df<-list_to_df(test.goseq3)
#'
list_to_df <- function(list_for_df) {
  list_for_df <- as.list(list_for_df)
  nm <- names(list_for_df)
  if (is.null(nm))
    nm <- seq_along(list_for_df)
  df <- data.frame(name = nm, stringsAsFactors = FALSE)
  df$value <- unname(list_for_df)
  df
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.