Если вы будете искать [ваш термин] в тезаурусе, вы попадете на следующую страницу HTML: "https://www.thesaurus.com/browse/ [ваш термин]". Если вы это знаете, вы можете получить HTML-коды всех страниц терминов, которые вас интересуют. После этого вы сможете выполнять итерации с помощью функции map()
из пакета purrr
, чтобы получить необходимую информацию:
# It makes more sense to just keep "words" as a vector for now
words <- c("research","survey","staff","outpatient","consent")
htmls <- paste0("https://www.thesaurus.com/browse/", words)
info_list <- map(htmls, .x %>%
read_html() %>%
html_node(.mw-list) %>%
html_text())