html科名ラベル html植物目録作成用 種名と科名を列に含んだデータフレームを入力し科名のhtmlラベルを出力する

Source: R/html_flora_list.R

html科名ラベル html植物目録作成用 種名と科名を列に含んだデータフレームを入力し科名のhtmlラベルを出力する

html_family_label(species_list)

Arguments

species_list

Examples

spj <- c("ブナ","コナラ","スギ","アカミノイヌツゲ","イタヤカエデ","アオカラムシ","ミズナラ")
species_list <- APG[match(spj,APG$種名),]

html_family_label(species_list)
#> [1] "<tr><td height=30 valign=\"bottom\"><font size=+1; face='Arial'>FAGACEAE&emsp;ブナ科</font></td></tr>\n"         
#> [2] "<tr><td height=30 valign=\"bottom\"><font size=+1; face='Arial'>FAGACEAE&emsp;ブナ科</font></td></tr>\n"         
#> [3] "<tr><td height=30 valign=\"bottom\"><font size=+1; face='Arial'>CUPRESSACEAE&emsp;ヒノキ科</font></td></tr>\n"   
#> [4] "<tr><td height=30 valign=\"bottom\"><font size=+1; face='Arial'>AQUIFOLIACEAE&emsp;モチノキ科</font></td></tr>\n"
#> [5] "<tr><td height=30 valign=\"bottom\"><font size=+1; face='Arial'>SAPINDACEAE&emsp;ムクロジ科</font></td></tr>\n"  
#> [6] "<tr><td height=30 valign=\"bottom\"><font size=+1; face='Arial'>URTICACEAE&emsp;イラクサ科</font></td></tr>\n"   
#> [7] "<tr><td height=30 valign=\"bottom\"><font size=+1; face='Arial'>FAGACEAE&emsp;ブナ科</font></td></tr>\n"