Wie man ein Wikipedia-Bild für eine Speziesseite

Question

herunterlädt Ich möchte routinemäßig Bilder von Organismen, um Datensätze zu ergänzen, und es wäre toll, wenn ich ein Speziesbild für, sagen wir ein Großer Tümmler, angesichts der Gattung und Arten herausziehen könnte. Ich würde dieses Bild dann in einer K12 Shiny-Lernanwendung ähnlich wie this one für Schüler verwenden, um den Datensatz zu erkunden. Ich habe einen Weg gefunden, die URL und einige Seiteninformationen mit dem WikipediR Paket zu erhalten, aber ich kann nicht herausfinden, wie man die URL für das Bild in der Seitenleiste extrahiert.

require(WikipediR) 
page_info("en","wikipedia",page="Tursiops truncatus") 

Ich weiß, dass es einen Weg gibt (das heißt here), aber ich weiß nicht wirklich verstehen, wie diese Arbeit in R.

Answer 1

Dank Stedy Vorschlag zu machen, fand ich eine Lösung. Beachten Sie, dass es zwei ähnlich benannte Wikipedia-Schnittstellenpakete für R gibt. Diese verwendet WikipediR, nicht WikipediaR.

require(WikipediR); require(rvest) 

#titles= vector of page name(s) 
#res= desired width in pixels (220 px thumbnail by default) 
#savedest= save destination (w terminal '/'); wd by default 

getwikipic<-function(titles,res,savedest){ 
    if(missing(res)){res=220} 
    if(missing(savedest)){savedest=NA} 
    lapply(titles, function (ttl,...){ 
    d<-page_info("en","wikipedia",page=ttl,clean_response=T) 
    url<-d[[1]]$fullurl 
    wikipage<-html_session(url) 
    imginfo<-wikipage %>% html_nodes("tr:nth-child(2) img") 
    img.url<- imginfo[1] %>% html_attr("src") 
    img.url<-paste0("https:",img.url) 
    if(is.na(savedest)){ 
    savefilename<-paste0(ttl,".jpg") 
    }else{savefilename<-paste0(savedest,ttl,".jpg")} 

    if(res!=220){img.url<-gsub(220,res,img.url)} 

    download.file(img.url,savefilename) 
    return(paste0("orig.file: ",basename(img.url)))#tell user original filename (or error) 

    },res,savedest)#End lapply 
}#End function 

---

Alternativ habe ich ein GitHub Repo mit dem Code here. Sie können dies ganz einfach in R.

devtools::source_url("https://raw.githubusercontent.com/drwilkins/getwikipic/master/getwikipic.R") 

titles<-c("numbat") 
getwikipic(titles,1024) 

Downloads diese zu Ihrem Arbeitsverzeichnis pic