Nastavljeno ustrezno kodiranje znakov
Nastavljeno ustrezno kodiranje znakov

janrems/APPR-2017,AccipitrisArti/APPR-2017,darjapet/APPR-2017,Jan-hexit/APPR-2015-16,vesnazupanc/APPR-2015-16,MarvinHerzog/APPR-2015-16,Anchiqua/APPR-2015-16,katykro/APPR-2015-16,majorcek/APPR-2017,vidamaver/APPR-2017,valentina2pucer/APPR-2015-16,mihapelhan/APPR-2015-16,idawitha/APPR-2017,anamozina/APPR-2015-16,marinasirk/APPR-2015-16,jernejbanevec/APPR-2017,ZilavecM14/APPR-2015-16,PirnovarA/APPR-2015-16,tajadebeljak/APPR-2015-16,gasparicdejan/APPR-2015-16,natasataskov/APPR-2017,pdurcik/APPR-2017,aleksandrov2/APPR-2015-16,VezensekKaja/APPR-2015-16,jakov-kavcic/APPR-2017,tkordis/APPR-2015-16,PiaM123/APPR-2015-16,NabergojV/APPR-2015-16,masterlord99/APPR-2015-16,janpristovnik/APPR-2017,jure310/APPR-2015-16,stifler9/ANPP-2015-16,katjakerzic/APPR-2015-16,zantavcar/APPR-2015-16,LeonHorvat/APPR-2017,Charisa/APPR-2015-16,jaanos/APPR-2015-16,LampicJ15/APPR-2017,HovnikK15/APPR-2017,StangeljL12/APPR-2015-16,jakov-kavcic/APPR-2015-16,ztrojer/APPR-2017,aniiiim/APPR-2015-16,ZigaP/APPR-2015-16,PezdirM14/APPR-2015-16,UrosKrampelj/APPR-2015-16,rozmanU14/APPR-2015-16,VidicL13/APPR-2017,tinarazic/APPR-2017,GalDrnovsek/APPR-2015-16,LonjaTT/APPR-2015-16,nastja88/APPR-2017,ZavbiA/APPR-2017,anamariostarijas/APPR-2017,jakamun/APPR-2017
# Uvoz s spletne strani

library(XML)
library(httr)

uvozi.obcine <- function() {
  url.obcine <- "http://sl.wikipedia.org/wiki/Seznam_ob%C4%8Din_v_Sloveniji"
  doc.obcine <- htmlTreeParse(GET(url.obcine), asText=TRUE, useInternalNodes=TRUE)
  
  tabela <- readHTMLTable(doc.obcine, which=2,
      colClasses = c("character", rep("FormattedNumber", 5), rep("character", 3)),
                          elFun = function(x) {
                            s <- gsub("[*]", "", xmlValue(x))
                            return(ifelse(s %in% c("", "-"), NA, s))
                          })
  
  # Imena stolpcev matrike dobimo iz celic (<th>) glave (prve vrstice) prve tabele
  colnames(tabela) <- gsub("\n", " ", colnames(tabela))
  
  # Če ni zaznano pravo kodiranje znakov, ga nastavimo ročno
  Encoding(colnames(tabela)) <- "UTF-8"
  
  # Prvi stolpec vzamemo za imena in ga nato odstranimo
  rownames(tabela) <- tabela[,1]
  tabela <- tabela[-1]
  
  # Podatke iz matrike spravimo v razpredelnico
  return(tabela)
}
# Uvoz s spletne strani

library(XML)
library(httr)

# Vrne vektor nizov z odstranjenimi začetnimi in končnimi "prazninami" (whitespace)
# iz vozlišč, ki ustrezajo podani poti.
stripByPath <- function(x, path) {
  unlist(xpathApply(x, path,
                    function(y) gsub("^\\s*(.*?)\\s*$", "\\1", xmlValue(y))))
}

uvozi.obcine <- function() {
  url.obcine <- "http://sl.wikipedia.org/wiki/Seznam_ob%C4%8Din_v_Sloveniji"
  doc.obcine <- htmlTreeParse(GET(url.obcine), asText=TRUE, useInternalNodes=TRUE)
  
  tabela <- readHTMLTable(doc.obcine, which=2,
      colClasses = c("character", rep("FormattedNumber", 5), rep("character", 3)),
                          elFun = function(x) {
                            s <- gsub("[*]", "", xmlValue(x))
                            return(ifelse(s %in% c("", "-"), NA, s))
                          })
  
  # Imena stolpcev matrike dobimo iz celic (<th>) glave (prve vrstice) prve tabele
  colnames(tabela) <- gsub("\n", " ", colnames(tabela))
  
  # Prvi stolpec vzamemo za imena in ga nato odstranimo
  rownames(tabela) <- tabela[,1]
  tabela <- tabela[-1]
  
  # Podatke iz matrike spravimo v razpredelnico
  return(tabela)
}