# # Utility function
#
# topCites <- function(impact_list, n){
# impact_list$articles_df %>%
# select(Id, NumberCites) %>%
# top_n(n = n, wt = NumberCites) %>%
# arrange(desc(NumberCites))
# }
#
#
# topCites <- function(impact_list, n)
# {
# UseMethod("topCites",impact_list)
# }
#
# topCites.default <- function(impact_list, n)
# {
# # print("You screwed up. I do not know how to handle this object.")
# return(impact_list)
# }
#
#
# topCites.impactCLR <- function(impact_list, n)
# {
# top_n_cites <- impact_list$articles_df %>%
# select(Id, NumberCites) %>%
# top_n(n = n, wt = NumberCites) %>%
# arrange(desc(NumberCites))
#
# return(top_n_cites)
# }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.