quick idea for getting country publication info

getpubs.R

library(rvest)
library(magrittr)

pubs <- read_html("http://www.scimagojr.com/countryrank.php") %>%
	html_node(".tabla_datos") %>%
	html_table(row.names = FALSE)

library(tidyr)
library(dplyr)


extract_numeric

pubs<- pubs[,-(1:2)]
head(pubs)
names(pubs)[1] <- "Country"

apply(pubs, 2, function(x) gsub("\\.", "", x))

pubs %>% 
	group_by(Country) %>%
	mutate_each(funs(extract_numeric))

str(pubs)