restoring lost function

Bdishman23 · Nov 15, 2022 · 573434f · 573434f
1 parent ef8f66b
commit 573434f
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/dataFunctions.R b/R/dataFunctions.R
@@ -408,7 +408,13 @@ get_datelife_biggest <- function(taxon) {
 #' @param taxon Clade of interest
 #' @return text string of summary of page
 #' @export
-
+#' @param taxon Clade of interest
+#' @return text string of summary of page
+#' @export
+get_wikipedia_summary <- function(taxon) {
+  URL <- paste0('https://en.wikipedia.org/w/api.php?format=json&action=query&prop=extracts&exintro&explaintext&redirects=1&titles=', utils::URLencode(taxon))
+  return(jsonlite::fromJSON(URL)$query$pages[[1]]$extract)
+}
 
 #' Get Wikipedia images
 #'