res <- RWsearch::s_sos("chemical reaction")
as.data.frame(res)
# res