remotes::install_github("sckott/rfna")

library('rfna')

res <- get_families("fna")
res$names[1:10]
#>  [1] "Achatocarpaceae"  "Acoraceae"        "Agavaceae"        "Aizoaceae"       
#>  [5] "Alismataceae"     "Aloaceae"         "Amaranthaceae"    "Amblystegiaceae" 
#>  [9] "Andreaeaceae"     "Andreaeobryaceae"

res <- get_genera(from='fna', family='Asteraceae')
res$names[1:10]
#>  [1] "Asteraceae"     "Acamptopappus"  "Acanthospermum" "Achillea"      
#>  [5] "Achyrachaena"   "Acmella"        "Acourtia"       "Acroptilon"    
#>  [9] "Adenocaulon"    "Adenophyllum"

pg1<-'http://www.efloras.org/browse.aspx?flora_id=1&start_taxon_id=10074&page=1'
head(parse_page(pg1))
#>             name     id
#> 1     Asteraceae  10074
#> 2  Acamptopappus 100070
#> 3 Acanthospermum 100132
#> 4       Achillea 100191
#> 5   Achyrachaena 100226
#> 6        Acmella 100279
#>                                                                 url
#> 1  http://www.efloras.org/florataxon.aspx?flora_id=1&taxon_id=10074
#> 2 http://www.efloras.org/florataxon.aspx?flora_id=1&taxon_id=100070
#> 3 http://www.efloras.org/florataxon.aspx?flora_id=1&taxon_id=100132
#> 4 http://www.efloras.org/florataxon.aspx?flora_id=1&taxon_id=100191
#> 5 http://www.efloras.org/florataxon.aspx?flora_id=1&taxon_id=100226
#> 6 http://www.efloras.org/florataxon.aspx?flora_id=1&taxon_id=100279

url <- 'http://www.efloras.org/florataxon.aspx?flora_id=1&taxon_id=102552'
receptacle(url)
#> [1] "Argyranthemum" "epaleate"      "epaleate"