Fixing colnames for citation_index.

muschellij2 · Oct 1, 2017 · 8f4858a · 8f4858a
1 parent 6845d53
commit 8f4858a
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/R/gcite_citation_index.R b/R/gcite_citation_index.R
@@ -27,7 +27,11 @@ gcite_citation_index <- function(doc, ...){
 #' @rdname gcite_citation_index
 #' @export
 gcite_citation_index.xml_node = function(doc, ...) {
-  rvest::html_table(doc)
+  df = rvest::html_table(doc)
+  if (ncol(df) > 0) {
+    colnames(df)[1] = "index"
+  }
+  return(df)
 }
 
 #' @rdname gcite_citation_index

diff --git a/man/gcite_user_info.Rd b/man/gcite_user_info.Rd