search

brinapirc / APPR-2020-21

Vzorčni repozitorij za projekt pri predmetu Analiza podatkov s programom R v študijskem letu 2020/21
MIT License
0 stars 0 forks source link

Napaka pri uvozu zemljevida #1

Open brinapirc opened 3 years ago

brinapirc commented 3 years ago

Pozdravljeni, včeraj mi je zemljevid normalno uvozilo, danes pa mi javi to napako:

Error in download.file(url, zip) : cannot open URL 'http://www.naturalearthdata.com/http//www.naturalearthdata.com/download/50m/cultural/ne_50m_admin_0_countries.zip' In addition: Warning message: In download.file(url, zip) : InternetOpenUrl failed: 'Povezave s strežnikom ni bilo mogoče vzpostaviti'

zato mi ne dela tudi poročilo. Ali morda veste, kaj bi povzročilo to? Mislim, da imam working directory urejen na projekt.

Najlepša hvala in lep pozdrav.

brinapirc commented 3 years ago

Sicer imam projekt zaključen, manjka le nekaj popravkov zaradi tega, ker mi določene stvari ne delajo. Imam še problem s tabelo v html, saj sem poslala preveč "requestov" in mi je ne odpre več. Zato ne delajo nekateri grafi in zemljevid. Dopolnila bi samo še shiny.

jaanos commented 3 years ago

Stran, s katere dobivaš zemljevid, očitno trenutno ne deluje. Sem sedaj naložil zemljevid na http://baza.fmf.uni-lj.si/ne_50m_admin_0_countries.zip, tako da lahko uporabiš ta naslov.

Kar se tiče tabele s spletne strani, svetujem, da ko lahko, datoteko HTML shraniš k sebi (vključi jo v repozitorij, npr. v podatki/) in potem uvažaš kar to lokalno datoteko (namesto URL-ja podaj relativno pot, tako kot za ostale podatke). Če boš imela s tem težave, povej, za kateri naslov gre, pa bom poskusil sam pridobiti.

Sicer pa poročilo trenutno ne deluje. V uvoz.r bo potrebno odstraniti vse klice ukaza View (ustrezne vrstice lahko zakomentiraš), prav tako bo potrebno poskrbeti, da se nizi v razpredelnicah ne shranijo kot faktorji, saj z njimi ni mogoče indeksirati - pri data.frame bo potrebno dodati še parameter stringsAsFactors=FALSE: https://github.com/brinapirc/APPR-2020-21/blob/5d3bf950b3ba1d5c661a52942a79ce3a5a3be710/uvoz/uvoz.r#L195-L197 Novejše različice R se sicer nekoliko drugače obnašajo, zato verjetno pri tebi deluje tudi brez tega.

Nadalje se v vizualizacija.r sklicuješ na spremenljivko pod7, katere definicijo imaš zakomentirano. Kasneje se v poročilu in analiza.r sklicuješ na še več spremenljivk, ki so tam zakomentirane - to bo potrebno urediti, da bo poročilo delovalo.

brinapirc commented 3 years ago

Pozdravljeni, najlepša hvala. Sedaj poročilo deluje, če odstranim vse sklice na tabelo, ki je ne morem pridobiti. Ali bi mi lahko prosim pomagali s tabelo, saj je še vedno ne morem pridobiti? Tabelo pridobivam s kodo:

povezave_drzave <- paste("https://eurovision.tv/country/", tolower(gsub("\W+", "-", vektor_drzave)), sep = '')

nastopi_drzave <-lapply(povezave_drzave, function(x) {read_html(x) %>% html_nodes(xpath = "//div[@class='space-y-4']//dd[@class='text-sm font-bold']") %>% html_text () %>% .[[3]] %>% lapply(function(x) {gsub("\n", "", x)}) }) %>% unlist() %>% as.numeric()

prvic_drzave <-lapply(povezave_drzave, function(x) {read_html(x) %>% html_nodes(xpath = "//div[@class='space-y-4']//dd[@class='text-sm font-bold']") %>% html_text () %>% .[[4]] %>% lapply(function(x) {regmatches(x, regexpr("\d{4}", x))}) }) %>% unlist() %>% as.numeric()

tabela_nastopi <- data.frame("Drzava" = drzave, "Stevilo_nastopov" = nastopi_drzave, "Prvi_nastop" = prvic_drzave)

Hvala in lep pozdrav

brinapirc commented 3 years ago

Hvala, sedaj vse deluje.