Skip to content

Instantly share code, notes, and snippets.

@stepankuzmin

stepankuzmin/GOST_7.67-2003.R

Last active September 11, 2015 13:28
Show Gist options
  • Save stepankuzmin/17a780cecefd310512be to your computer and use it in GitHub Desktop.
Save stepankuzmin/17a780cecefd310512be to your computer and use it in GitHub Desktop.
Download ZIP
Перечень названий стран и их коды по ГОСТ 7.67-2003
Raw
GOST_7.67-2003.R
library(XML)
library(httr)
GOST_7_67_2003 <- (function() {
url <- "https://ru.wikipedia.org/wiki/%D0%93%D0%9E%D0%A1%D0%A2_7.67"
content <- content(GET(url), as="text")
html <- htmlParse(content, asText=TRUE)
tables <- readHTMLTable(html)
table <- tables[[1]]
table[complete.cases(table),]
})()
@stepankuzmin
Copy link
Author

stepankuzmin commented Sep 11, 2015 

source("GOST_7.67-2003.R")
write.csv(GOST_7_67_2003, file = "GOST_7.67_2003.csv")

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment