make an html table for pasting into outlook

html_table_for_outlook.r

library(dplyr)
library(purrr)
library(xtable)

d = readr::read_tsv("C:/Users/ftw712/Desktop/Legume/data/legume_unmatched.tsv")  %>% 
arrange(-count) %>% 
glimpse() %>% 
head(30) %>%
mutate(n_suggestions =  map_int(v_scientificname,~nrow(rgbif::name_suggest(.x)$data))) %>% 
mutate(n_suggestions = format(n_suggestions, nsmall = 0)) %>%
mutate(n_occ = format(count, nsmall = 0)) %>%
mutate(link = paste0('<a href=https://www.gbif.org/species/search?q=',gsub(" ","%20",v_scientificname),'>search</a>')) %>%
select(v_scientificname,n_occ,n_suggestions,link) %>% 
glimpse()

print(xtable(d), type = "html", file = "C:/Users/ftw712/Desktop/html_table.html",sanitize.text.function = force,include.rownames=FALSE)