wikitaxa

install.packages("wikitaxa")

install.packages("devtools")
devtools::install_github("ropensci/wikitaxa")

library('wikitaxa')

wt_data("Poa annua")

wt_data_id("Mimulus foliatus")
#> [1] "Q6495130"
#> attr(,"class")
#> [1] "wiki_id"

pg <- wt_wiki_page("https://en.wikipedia.org/wiki/Malus_domestica")
res <- wt_wiki_page_parse(pg)
res$iwlinks
#> [1] "https://en.wiktionary.org/wiki/apple"                                  
#> [2] "https://commons.wikimedia.org/wiki/Special:Search/Apple"               
#> [3] "https://en.wikiquote.org/wiki/Apples"                                  
#> [4] "https://en.wikisource.org/wiki/1911_Encyclop%C3%A6dia_Britannica/Apple"
#> [5] "https://en.wikibooks.org/wiki/Apples"                                  
#> [6] "https://species.wikimedia.org/wiki/Malus_domestica"                    
#> [7] "https://commons.wikimedia.org/wiki/Category:Apple_cultivars"

res <- wt_wikipedia("Malus domestica")
res$common_names
#> # A tibble: 1 x 2
#>    name language
#>   <chr>    <chr>
#> 1 Apple       en
res$classification
#> # A tibble: 3 x 2
#>         rank         name
#>        <chr>        <chr>
#> 1 plainlinks             
#> 2    species    M. pumila
#> 3   binomial Malus pumila

# French
wt_wikipedia(name = "Malus domestica", wiki = "fr")
# Slovak
wt_wikipedia(name = "Malus domestica", wiki = "sk")
# Vietnamese
wt_wikipedia(name = "Malus domestica", wiki = "vi")

pg <- wt_wiki_page("https://commons.wikimedia.org/wiki/Abelmoschus")
res <- wt_wikicommons_parse(pg)
res$common_names[1:3]
#> [[1]]
#> [[1]]$name
#> [1] "okra"
#> 
#> [[1]]$language
#> [1] "en"
#> 
#> 
#> [[2]]
#> [[2]]$name
#> [1] "مسكي"
#> 
#> [[2]]$language
#> [1] "ar"
#> 
#> 
#> [[3]]
#> [[3]]$name
#> [1] "Abelmoş"
#> 
#> [[3]]$language
#> [1] "az"

res <- wt_wikicommons("Abelmoschus")
res$classification
#> # A tibble: 15 x 2
#>          rank           name
#>         <chr>          <chr>
#>  1     Domain      Eukaryota
#>  2   unranked Archaeplastida
#>  3     Regnum        Plantae
#>  4     Cladus    angiosperms
#>  5     Cladus       eudicots
#>  6     Cladus  core eudicots
#>  7     Cladus    superrosids
#>  8     Cladus         rosids
#>  9     Cladus    eurosids II
#> 10       Ordo       Malvales
#> 11    Familia      Malvaceae
#> 12 Subfamilia     Malvoideae
#> 13     Tribus      Hibisceae
#> 14      Genus    Abelmoschus
#> 15  Authority  Medik. (1787)
res$common_names
#> # A tibble: 19 x 2
#>                name language
#>               <chr>    <chr>
#>  1             okra       en
#>  2             مسكي       ar
#>  3          Abelmoş       az
#>  4        Ibiškovec       cs
#>  5     Bisameibisch       de
#>  6            Okrat       fi
#>  7        Abelmosco       gl
#>  8        Abelmošus       hr
#>  9           Ybiškė       lt
#> 10   "അബെ\u0d7dമോസ്കസ്"       ml
#> 11         Абельмош      mrj
#> 12 Abelmoskusslekta       nn
#> 13          Piżmian       pl
#> 14         Абельмош       ru
#> 15             موري       sd
#> 16      Okrasläktet       sv
#> 17         Абельмош      udm
#> 18    Chi Vông vang       vi
#> 19           黄葵属       zh

pg <- wt_wiki_page("https://species.wikimedia.org/wiki/Malus_domestica")
res <- wt_wikispecies_parse(pg, types = "common_names")
res$common_names[1:3]
#> [[1]]
#> [[1]]$name
#> [1] "Ябълка"
#> 
#> [[1]]$language
#> [1] "български"
#> 
#> 
#> [[2]]
#> [[2]]$name
#> [1] "Poma, pomera"
#> 
#> [[2]]$language
#> [1] "català"
#> 
#> 
#> [[3]]
#> [[3]]$name
#> [1] "Apfel"
#> 
#> [[3]]$language
#> [1] "Deutsch"

res <- wt_wikispecies("Malus domestica")
res$classification
#> # A tibble: 8 x 2
#>          rank          name
#>         <chr>         <chr>
#> 1 Superregnum     Eukaryota
#> 2      Regnum       Plantae
#> 3      Cladus   Angiosperms
#> 4      Cladus      Eudicots
#> 5      Cladus Core eudicots
#> 6      Cladus        Rosids
#> 7      Cladus    Eurosids I
#> 8        Ordo       Rosales
res$common_names
#> # A tibble: 19 x 2
#>               name   language
#>              <chr>      <chr>
#>  1          Ябълка  български
#>  2    Poma, pomera     català
#>  3           Apfel    Deutsch
#>  4     Aed-õunapuu      eesti
#>  5           Μηλιά   Ελληνικά
#>  6           Apple    English
#>  7         Manzano    español
#>  8           Pomme   français
#>  9           Melâr     furlan
#> 10        사과나무     한국어
#> 11          ‘Āpala    Hawaiʻi
#> 12            Melo   italiano
#> 13           Aapel Nordfriisk
#> 14  Maçã, Macieira  português
#> 15 Яблоня домашняя    русский
#> 16   Tarhaomenapuu      suomi
#> 17            Elma     Türkçe
#> 18  Яблуня домашня українська
#> 19          Pomaro     vèneto