Updated full package

DESCRIPTION

 Package: rAltmetric
-Type: Package
 Title: Retrieves Altmerics Data For Any Published Paper From Altmetric.com
-Version: 0.6
-Date: 2014-12-02
-Author: Karthik Ram [aut, cre]
-Maintainer: Karthik Ram <karthik.ram@gmail.com>
-Description: Programmatic interface to the Altmetric.com API.
-URL: https://github.com/ropensci/rAltmetric
-BugReports: https://github.com/ropensci/rAltmetric/issues/
-License: CC0
+Version: 0.7.9000
+Authors@R: 'Karthik Ram <karthik.ram@gmail.com> [aut, cre]'
+Description: What the package does (one paragraph).
+Depends: R (>= 3.3.2)
+License: MIT + file LICENSE
+Encoding: UTF-8
+LazyData: true
 Imports:
-    plyr,
-    RCurl,
-    reshape2,
-    png,
-    ggplot2 (>= 0.9.2.1),
-    RJSONIO
-Suggests:
-    testthat
+      httr,
+      jsonlite,
+      rlist
+Suggests: 
+  ggplot2,
+  testthat      
+RoxygenNote: 6.0.1

LICENSE

+YEAR: 2017
+COPYRIGHT HOLDER: 'Karthik Ram

NAMESPACE

-# Generated by roxygen2 (4.0.2): do not edit by hand
+# Generated by roxygen2: do not edit by hand
 
-S3method(plot,altmetric)
 S3method(print,altmetric)
 export(altmetric_data)
 export(altmetrics)
-export(return_provider)
-import(ggplot2)
-importFrom(RCurl,getCurlHandle)
-importFrom(RCurl,getURL)
-importFrom(RCurl,getURLContent)
-importFrom(RJSONIO,fromJSON)
-importFrom(plyr,compact)
-importFrom(plyr,rbind.fill)
-importFrom(plyr,unrowname)
-importFrom(png,readPNG)
-importFrom(reshape2,melt)

NEWS.md

+# rAltmetric 0.7.9000
+
+* Updated package after a super long time to using `httr` instead of `RCurl`
+* Simplfied converting lists →  data.frames
+* Made everything tidyverse friendly
+
+# rAltmetric 0.6
+------------------
+* Several bug fixes and documentation updates
+
+# rAltmetric 0.5
+------------------
+
+* Removed hard dependencies and moved them to imports
+* Minor bug fixes
+
+
+# rAltmetric 0.3
+------------------
+
+* Initial release to CRAN

R/metrics-methods.R

+#' Print a summary for an altmetric object
+#' @export 
+#' @param x An object of class \code{Altmetric}
+#' @param ... additional arguments
+print.altmetric <- function(x, ...) {
+string <- "Altmetrics on: \"%s\" with altmetric_id: %s published in %s."
+  vals   <- c(x$title,  x$altmetric_id, x$journal)
+  cat(do.call(sprintf, as.list(c(string, vals))))
+  cat("\n")
+  stats <- x[grep("^cited", names(x))]
+  stats <- data.frame(stats, stringsAsFactors = FALSE)
+  print(data.frame(stats = t(stats)))
+}
\ No newline at end of file

R/metrics.R

-
-
-#' Grab altmetric data on any paper
-#'
-#' This function will retrieve data from Altmetric.com on any paper with an appropriate object identifier. Acceptable identifiers include dois, arXiv ids, pubmed ids and altmetric ids.
-#' @param oid \code{oid} Any object ID. Any general object identifier as long as the prefix is "doi","pmid", "arXiv", or "id".
-#' @param id The Altmetric \code{id} of a paper. If specifiying directly, the "id" prefix is not necessary.
-#' @param doi The \code{doi} of a paper. If specifiying directly, the "doi" prefix is not necessary.
-#' @param pmid The \code{pmid} of a paper.If specifiying directly, the "pmid" prefix is not necessary.
-#' @param arXiv The \code{arxiv} ID of a paper.If specifiying directly, the "arXiv" prefix is not necessary.
-#' @param  apikey An API key obtained from altmetric. The key for this application is '37c9ae22b7979124ea650f3412255bf9' and you are free to use it for academic non-commercial research. But if you start seeing rate limits, please contact support at altmetric.com to get your own.
+#' Title
 #'
-#' The function returns detailed metrics. For more information on all the fields returned by the function, see the API documentation: (\url{http://api.altmetric.com/docs/call_citations.html}). If you get your own key, you can save it in your \code{.rprofile} as \code{options(altmetricKey="YOUR_KEY")}
-#' @param curl passes on curl handle in a vectorized operation
-#' @param ... additional parameters
-#' @importFrom RCurl getURL getCurlHandle
-#' @importFrom RJSONIO fromJSON
-#' @importFrom plyr compact unrowname
-#' @export
-#' @return \code{list}
-#' @examples \dontrun{
-#' altmetrics(doi ='10.1890/ES11-00339.1')
-#' Or specfiy the doi with the id
-#' altmetrics('doi/10.1890/ES11-00339.1')
-#' altmetrics(doi ='10.1038/480426a')
-#' Or specfiy the doi with the id
-#' You can do the same for other providers such as pmid, id, and arxiv
-#' altmetrics('doi/10.1038/480426a')
-#'}
-altmetrics <- function(oid = NULL, id = NULL, doi = NULL, pmid = NULL, arXiv = NULL, apikey = getOption('altmetricKey'), curl = getCurlHandle(), ...) {
-
-	if(is.null(apikey))
-		apikey <- '37c9ae22b7979124ea650f3412255bf9'
-		acceptable_identifiers <- c("doi", "arXiv", "id", "pmid")
-		# If you start hitting rate limits, email support@altmetric.com
-		# to get your own key.
-
-		# If no object identifiers were specified, throw an error
-		if(is.null(oid) && is.null(id) && is.null(doi) && is.null(pmid) && is.null(arXiv))
-			stop("No valid identfier found. See ?altmetrics for more help", call.=FALSE)
-
-		# If an altmetric id is not prefixed by "id", add it in.
-  	    if(!is.null(id)) {
-  	    	prefix <- as.list((strsplit(id,'/'))[[1]])[[1]]
-  	    	if(prefix != "id")
-  	    		id <- paste0("id", "/", id)
-  	    }
-  	    # If an doi id is not prefixed by "id", add it in.
-  	    if(!is.null(doi)) {
-  	    	prefix <- as.list((strsplit(doi,'/'))[[1]])[[1]]
-  	    	if(prefix != "doi")
-  	    		doi <- paste0("doi", "/", doi)
-  	    }
-  	    # If an arXiv id is not prefixed by "arXiv", add it in.
-  	    if(!is.null(arXiv)) {
-  	    	prefix <- as.list((strsplit(arXiv,':|/'))[[1]])[[1]]
-  	    	arXiv <- paste0("arXiv", "/", as.list((strsplit(arXiv,':|/'))[[1]])[[2]])
-  	    }
-  	    # If an pubmed id is not prefixed by "pmid", add it in.
-  	    if(!is.null(pmid)) {
-  	    	prefix <- as.list((strsplit(pmid,'/'))[[1]])[[1]]
-  	    	if(prefix != "pmid")
-  	    		pmid <- paste0("pmid", "/", pmid)
-  	    }
-
-
-  	    # remove the identifiders that weren't specified
-   		identifiers <- compact(list(oid, id, doi, pmid, arXiv))
-
-   		# If user specifies more than one at once, then throw an error
-   		# Users should use lapply(object_list, altmetrics) 
-   		# to process multiple objects.
-   		if(length(identifiers) > 1)
-   			stop("Function can only take one object at a time. Use lapply with a list to process multiple objects", call.=FALSE)
-
-  		if(!is.null(identifiers)) {
-  				ids <- identifiers[[1]]
-
-          # Fix arXiv
-          test <- strsplit(ids, ":")
-          if(length(test[[1]]) == 2) {
-              ids <- paste0(as.list(strsplit(ids, ":")[[1]])[[1]], "/", as.list(strsplit(ids, ":")[[1]])[[2]])
-          }
-  					
- 				supplied_id <-  as.character(as.list((strsplit(ids,'/'))[[1]])[[1]])
- 				# message(sprintf("%s", supplied_id))
- 				if(!(supplied_id %in% acceptable_identifiers))
- 						stop("Unknown identifier. Please use doi, pmid, arxiv or id (for altmetric id).", call.=F)
- 						             
-  		}
-
-  		# message(sprintf("%s", identifiers[[1]]))
-		url <- "http://api.altmetric.com/v1/"
-		url <- paste0(url,  ids, "?key=", apikey)
-        metrics <- getURL(url,  curl = curl)
-   
-  if(metrics == "Not Found") {
-    	 message(sprintf("No metrics found on %s", identifiers[[1]]))
-    	 return(NULL)
-    	} else {
-    res <- fromJSON(metrics)
-    class(res) <- "altmetric"
-    return(res)
-  }
-}
-# Make it possible to do either doi or a full list. In case of full list, the first part must be the name of the identifier.
-
-
-#' Returns a data frame of metrics for a paper
+#' @param oid  An object ID
+#' @param id An altmetric.com id for a scholarly paper
+#' @param doi A DOI
+#' @param pmid A pubmed ID
+#' @param arXiv An Arxiv id.
+#' @param apikey Your API `key`. By default the package ships with a key, but mostly as a demo. If the key becomes overused, then it is likely that you will start to see API limit errors
+#' @param foptions Additional options for `httr`
+#' @param ... additional options
 #'
-#' @param alt_obj altmetrics object
-#' @importFrom plyr rbind.fill
 #' @export
-#' @return data.frame
-#' @examples \dontrun{
-#' altmetric_data(altmetrics(doi='10.1038/489201a'))
-#'}
-altmetric_data <- function(alt_obj) {
-  value <- NA
-  if (is(alt_obj, "altmetric"))  {
+#' @examples
+#' z <- altmetrics(doi ='10.1038/480426a')
+#' # If you desire a `list` instead, then simply turn off the `flatten` argument
+
+altmetrics <-
+  function(oid = NULL,
+           id = NULL,
+           doi = NULL,
+           pmid = NULL,
+           arXiv = NULL,
+           apikey = getOption('altmetricKey'),
+           foptions = list(),
+           ...) {
+    if (is.null(apikey))
+      apikey <- '37c9ae22b7979124ea650f3412255bf9'
     
-    # Pull our readers and cohorts before squashing the list
-    reader <- alt_obj$readers
-    cohort <- alt_obj$cohorts
-    alt_obj <- alt_obj[-which(names(alt_obj)=="readers")]
-    alt_obj <- alt_obj[-which(names(alt_obj)=="cohorts")]
+    acceptable_identifiers <- c("doi", "arXiv", "id", "pmid")
+    # If you start hitting rate limits, email support@altmetric.com
+    # to get your own key.
     
-    # Remove TQ if it exists
-    if("tq" %in% names(alt_obj)) {
-      alt_obj <- alt_obj[-which(names(alt_obj)=="tq")]
-    }
     
-    # Basic stats
-    alt_obj$issns <- paste0(alt_obj$issns, collapse = '', sep = ",")
-    basic_stuff <- data.frame(matrix(rep(NA, 10), nrow =1))
-    names(basic_stuff) <-  names(alt_obj)[1:10]
-    basic_data <- data.frame(t(unlist(alt_obj[1:10])))
-    # basics <- rbind.fill(basic_stuff, basic_data)[-1, ]
-    basics <- basic_data
+    if (all(sapply(list(oid, doi, pmid, arXiv), is.null)))
+      stop("No valid identfier found. See ?altmetrics for more help", call. =
+             FALSE)
     
-    # Readers to data.frame
-#     readers <- unrowname(t(data.frame(reader)))
-    readers <- t(data.frame(reader))
-    cohorts <- data.frame("pub" = NA, "sci" = NA, "com" = NA, "doc" = NA)
-    cohorts2 <- data.frame(unrowname(t(data.frame(cohort))))
-    cohorts <- rbind.fill(cohorts, cohorts2)[-1,]
     
-    # Context (hard to standardize so excluding this for now)
-    # context <- ldply(alt_obj$context, function(foo) t(data.frame(foo)))
-    # names(context) <- c("type", "count", "rank", "pct")
-    # more_metrics <- dcast(melt(context, id.var="type"), 1~variable+type)[, -1]
-    # # 1, 18
+    # If an altmetric id is not prefixed by "id", add it in.
+    if (!is.null(id)) {
+      prefix <- as.list((strsplit(id, '/'))[[1]])[[1]]
+      if (prefix != "id")
+        id <- paste0("id", "/", id)
+    }
+    # If an doi id is not prefixed by "id", add it in.
+    if (!is.null(doi)) {
+      prefix <- as.list((strsplit(doi, '/'))[[1]])[[1]]
+      if (prefix != "doi")
+        doi <- paste0("doi", "/", doi)
+    }
+    # If an arXiv id is not prefixed by "arXiv", add it in.
+    if (!is.null(arXiv)) {
+      prefix <- as.list((strsplit(arXiv, ':|/'))[[1]])[[1]]
+      arXiv <-
+        paste0("arXiv", "/", as.list((strsplit(arXiv, ':|/'))[[1]])[[2]])
+    }
+    # If an pubmed id is not prefixed by "pmid", add it in.
+    if (!is.null(pmid)) {
+      prefix <- as.list((strsplit(pmid, '/'))[[1]])[[1]]
+      if (prefix != "pmid")
+        pmid <- paste0("pmid", "/", pmid)
+    }
     
-    # Counts to data.frame
-    stats_base <- data.frame("cited_by_gplus_count" =NA, "cited_by_fbwalls_count" =NA,"cited_by_posts_count" =NA, "cited_by_tweeters_count" =NA, "cited_by_accounts_count" =NA, "cited_by_feeds_count" =NA, "cited_by_rdts_count" =NA, "cited_by_msm_count" =NA, "cited_by_delicious_count" =NA, "cited_by_forum_count" = NA, "cited_by_qs_count" = NA, "cited_by_rh_count" = NA)
-#     stats <- melt(alt_obj[grep("^cited", names(alt_obj))])
-    stats <- data.frame(alt_obj[grep("^cited", names(alt_obj))])
-#     stats <- dcast(stats, 1~value+L1)[, -1]
-#     names(stats) <- gsub("^[0-9]_","", names(stats))
-    stats <- rbind.fill(stats_base, stats)[-1,]
-    # 1, 11
     
-    alt_obj$subjects <- paste0(alt_obj$subjects, collapse='', sep=",")
-    alt_obj$scopus_subjects <- paste0(alt_obj$scopus_subjects, collapse='', sep=", ")
+    # remove the identifiders that weren't specified
+    identifiers <- ee_compact(list(oid, id, doi, pmid, arXiv))
     
-    if(length(alt_obj$added_on) ==0 || is.null(alt_obj$added_on)) {
-      alt_obj$added_on <- NA
-      
-    }
-    if(length(alt_obj$published_on) ==0 || is.null(alt_obj$published_on)) {
-      alt_obj$published_on <- NA
+    
+    # If user specifies more than one at once, then throw an error
+    # Users should use lapply(object_list, altmetrics)
+    # to process multiple objects.
+    if (length(identifiers) > 1)
+      stop(
+        "Function can only take one object at a time. Use lapply with a list to process multiple objects",
+        call. = FALSE
+      )
+    
+    if (!is.null(identifiers)) {
+      ids <- identifiers[[1]]
     }
     
+    # Fix arXiv
+    test <- strsplit(ids, ":")
+    if (length(test[[1]]) == 2) {
+      ids <-
+        paste0(as.list(strsplit(ids, ":")[[1]])[[1]], "/", as.list(strsplit(ids, ":")[[1]])[[2]])
+    }
     
-    # Removing more_metrics for the time being
-    # return(data.frame(basic_stuff, stats,  score = alt_obj$score, readers, url = alt_obj$url, added_on = alt_obj$added_on, published_on = alt_obj$published_on, subjects = alt_obj$subjects, scopus_subjects = alt_obj$scopus_subjects, last_updated = alt_obj$last_updated, readers_count = alt_obj$readers_count, more_metrics, details_url = alt_obj$details_url))
+    supplied_id <-
+      as.character(as.list((strsplit(ids, '/'))[[1]])[[1]])
+    # message(sprintf("%s", supplied_id))
+    if (!(supplied_id %in% acceptable_identifiers))
+      stop("Unknown identifier. Please use doi, pmid, arxiv or id (for altmetric id).",
+           call. = F)
+    base_url <- "http://api.altmetric.com/v1/"
+    args <- list(key = apikey)
+    request <- httr::GET(paste0(base_url, ids), query = args, foptions)
     
-    return(data.frame(basics, stats,  score = alt_obj$score, readers, url = alt_obj$url, 
-                      added_on = alt_obj$added_on, published_on = alt_obj$published_on, 
-                      subjects = alt_obj$subjects, scopus_subjects = alt_obj$scopus_subjects, 
-                      last_updated = alt_obj$last_updated, readers_count = alt_obj$readers_count, 
-                      details_url = alt_obj$details_url))
+    results <-
+      jsonlite::fromJSON(httr::content(request, as = "text"), flatten = TRUE)
+results <- rlist::list.flatten(results)
+class(results) <- "altmetric"
+results
   }
-  
-}
-
-
 
 
-#' Returns cleaner metric source names (mostly for internal use)
+#' Returns a data.frame from an S3 object of class altmetric
+#'
+#' @param alt_obj An object of class altmetric
 #'
-#' @param provider the data provider
 #' @export
-#' @keywords internal
-#' @examples \dontrun{
-#' return_provider('cited_by_gplus_count')
-#'}
-return_provider <- function(provider) {
-	services <- data.frame(type = c("cited_by_gplus_count", "cited_by_fbwalls_count", "cited_by_posts_count", "cited_by_tweeters_count", "cited_by_accounts_count", "cited_by_feeds_count", "cited_by_rdts_count", "cited_by_msm_count", "cited_by_delicious_count", "cited_by_forum_count", "cited_by_qs_count"), names = c("Google+", "Facebook", "Cited", "Tweets", "Accounts", "Feeds", "Reddit", "MSM", "Delicious", "Forums", "QS"))
+altmetric_data <- function(alt_obj) {
+  if (inherits(alt_obj, "altmetric"))  {
+    res <- data.frame(t(unlist(alt_obj)), stringsAsFactors = FALSE) 
+  }
+  res
+}
 
-	return(services$names[which(services$type == provider)])
-}
+#' @noRd
+ee_compact <- function(l) Filter(Negate(is.null), l)
\ No newline at end of file

R/metrics_methods.R

-
-#' Print a summary for an altmetric object
-#' @export 
-#' @param x An object of class \code{Altmetric}
-#' @param ... additional arguments
-print.altmetric <- function(x, ...) {
-    value <- NA
-
-	string <- "Altmetrics on: \"%s\" with altmetric_id: %s published in %s."
-    vals   <- c(x$title,  x$altmetric_id, x$journal)
-    cat(do.call(sprintf, as.list(c(string, vals))))
-    cat("\n")
-
-    stats <- melt(x[grep("^cited", names(x))])
-    stats$names <- unname(sapply(stats$L1, return_provider))
-    stats$names <- factor(stats$names, levels = stats$names[rev(order(stats$value))])
-    
-    print( data.frame(provider = stats$names, count = stats$value))
-}
-
-
-
-#' Plots metrics for an altmetric object
-#' 
-#' @export 
-#' @param x An object of class \code{Altmetric}
-#' @import ggplot2
-#' @importFrom reshape2 melt
-#' @importFrom png readPNG
-#' @importFrom RCurl getURLContent
-#' @param ... additional arguments
-plot.altmetric <- function(x, ...) {
-
-value <- NA
-# just to trick check()    
-if (!is(x, "altmetric"))   
-    stop("Not an altmetric object")
-
-stats <- melt(x[grep("^cited", names(x))])
-stats$names <- unname(sapply(stats$L1, return_provider))
-stats$names <- factor(stats$names, levels = stats$names[rev(order(stats$value))])
-stats <- stats[-(which(stats$L1=="cited_by_accounts_count")),]
-# Grab the donut image
-donut <- readPNG(getURLContent(x$images[[2]]))
-
-# Now return a pretty plot
-ggplot(stats, aes(names, value)) + geom_point(size = 4, colour = 'steelblue') + ggtitle(x$title) + xlab("Provider") + ylab("Hits") + theme(panel.background = element_blank(), panel.grid.major = element_blank(),
-        panel.grid.minor = element_blank(), panel.border = element_blank(),
-        axis.line = element_line(colour = "black")) + annotation_raster(donut, xmin = dim(stats)[1]-1, xmax = dim(stats)[1], ymin = max(stats$value)-(.2*max(stats$value)), ymax = max(stats$value), interpolate = T) + theme(title = element_text(family = "Helvetica", colour = "#0680b0", face="bold"), axis.text = element_text(family="Courier", colour = "#3f3f3f"), axis.title = element_text(colour="#3f3f3f")) 
-}
-

README.Rmd

+---
+output: github_document
+---
+
+<!-- README.md is generated from README.Rmd. Please edit that file -->
+
+```{r, echo = FALSE}
+knitr::opts_chunk$set(
+  collapse = TRUE,
+  comment = "#>",
+  fig.path = "README-"
+)
+```
+
+[altmetric.com](https://raw.github.com/ropensci/rAltmetric/master/altmetric_logo_title.png)
+# rAltmetric
+
+This package provides a way to programmatically retrieve altmetric data from [altmetric.com](http://altmetric.com) for any publication with the appropriate identifer. The package is really simple to use and only has two major functions: One (`altmetrics()`) to download metrics and another (`altmetric_data()`) to extract the data into a `data.frame`. It also includes generic S3 methods to plot/print metrics for any altmetric object.
+
+Questions, features requests and issues should go [here](https://github.com/ropensci/rAltmetric/issues/). 
+
+# Installing the package
+
+A stable version is available from CRAN. To install
+
+```r
+install.packages('rAltmetric')
+
+or install the development version
+
+devtools::install_github("ropensci/rAltmetric")
+```
+
+
+# Quick Tutorial
+
+## Obtaining metrics
+There was a recent paper by [Acuna et al](http://www.nature.com/news/2010/100616/full/465860a.html) that received a lot of attention on Twitter. What was the impact of that paper?
+
+```{r}
+library(rAltmetric)
+acuna <- altmetrics(doi = "10.1038/465860a")
+acuna
+```
+
+
+## Data
+To obtain the metrics in tabular form for further processing, run any object of class `altmetric` through `altmetric_data()` to get data that can easily be written to disk as a spreadsheet.
+
+```{r}
+altmetric_data(acuna)
+```
+
+You can save these data into a clean spreadsheet format:
+
+```r
+acuna_data <- altmetric_data(acuna)
+readr::write_csv(acuna_data, path = 'acuna_altmetrics.csv')
+```
+
+# Gathering metrics for many DOIs
+For a real world use-case, one might want to get metrics on multiple publications. If so, just read them from a spreadsheet and `llply` through them like the example below.
+
+```{r}
+library(rAltmetric)
+ids <- c(
+    "10.1038/nature09210",
+    "10.1126/science.1187820",
+    "10.1016/j.tree.2011.01.009",
+    "10.1086/664183"
+  )
+
+alm <- function(x) {
+  altmetrics(doi = x) %>% altmetric_data()
+}
+
+z <- lapply(ids, alm) 
+results <- bind_rows(z) 
+knitr::kable(results)
+```
+
+## Further reading
+* [Metrics: Do metrics matter?](http://www.nature.com/news/2010/100616/full/465860a.html)
+* [The altmetrics manifesto](http://altmetrics.org/manifesto/)
+
+
+To cite package ‘rAltmetric’ in publications use:
+
+```coffee
+  Karthik Ram (2017). rAltmetric: Retrieves altmerics data for any
+  published paper from altmetrics.com. R package version 0.3.
+  http://CRAN.R-project.org/package=rAltmetric
+
+A BibTeX entry for LaTeX users is
+
+  @Manual{,
+    title = {rAltmetric: Retrieves altmerics data for any published paper from
+altmetrics.com},
+    author = {Karthik Ram},
+    year = {2017},
+    note = {R package version 0.7},
+    url = {http://CRAN.R-project.org/package=rAltmetric},
+  }
+```
+
+
+
+[![](http://ropensci.org/public_images/github_footer.png)](http://ropensci.org)
\ No newline at end of file

man/altmetric_data.Rd

-% Generated by roxygen2 (4.0.2): do not edit by hand
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/metrics.R
 \name{altmetric_data}
 \alias{altmetric_data}
-\title{Returns a data frame of metrics for a paper}
+\title{Returns a data.frame from an S3 object of class altmetric}
 \usage{
 altmetric_data(alt_obj)
 }
 \arguments{
-\item{alt_obj}{altmetrics object}
-}
-\value{
-data.frame
+\item{alt_obj}{An object of class altmetric}
 }
 \description{
-Returns a data frame of metrics for a paper
-}
-\examples{
-\dontrun{
-altmetric_data(altmetrics(doi='10.1038/489201a'))
-}
+Returns a data.frame from an S3 object of class altmetric
 }
-

man/altmetrics.Rd

-% Generated by roxygen2 (4.0.2): do not edit by hand
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/metrics.R
 \name{altmetrics}
 \alias{altmetrics}