Merge pull request bomeara#12 from Bdishman23/master

Pulling Wikipedia's Api for images and summaries on Owl Genius.

R/dataFunctions.R

@@ -1,6 +1,6 @@
 library(rgbif)
 library(plyr)
-
+library(png)
 
 #' Query gbif to return latitude and longitude for members of a clade of interest
 #'
@@ -408,12 +408,76 @@ get_datelife_biggest <- function(taxon) {
 #' @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
+#'
+#' @param taxon 
+#' @return images from Wikipedia
+#' @export
+#' Get Wikipedia images
+#'
+#' @param taxon 
+#' @return images from Wikipedia
+#' @export
+get_wikipedia_pics <- function(taxon) {
+  URL <- paste0('https://en.wikipedia.org/api/rest_v1/page/media-list/', utils::URLencode(taxon))
+  image_URL <- (jsonlite::fromJSON(URL)$items$srcset)[[1]]$src[1]
+  return(gsub('//', 'http://', image_URL))
 }
 
 
+#' Get Wikipedia images
+#'
+#' @param taxon 
+#' @return images from Wikipedia
+#' @export
+#' combine pics and summary
+#'
+#' @param taxon The clad to investigate
+#' @return data.frame with species name, trait category, trait value, and other information
+#' @export
+#' @examples
+#' 
+
+get_combie_image_summary <- function(taxon){
+
+  w1<-get_wikipedia_summary(taxon)
+
+  #get the text from the body
+  html <- htmlTreeParse(w1, useInternal = TRUE)
+  txt <- xpathApply(html, "//body//text()[not(ancestor::script)][not(ancestor::style)][not(ancestor::noscript)]", xmlValue)
+  txt<-toString(txt)
+
+  ww1 <-get_wikipedia_pics(taxon)
+
+  wikiimage <- image_read_svg(ww1, width = 350)
+
+  #read file
+  img<-readJPG("wikiimage")
+
+  #get size
+  h<-dim(img)[1]
+  w<-dim(img)[2]
+
+  #open new file for output
+  jpg("out.jpg", width=w, height=h)
+  par(mar=c(0,0,0,0), xpd=NA, mgp=c(0,0,0), oma=c(0,0,0,0), ann=F)
+  plot.new()
+  plot.window(0:1, 0:1)
+
+  #fill plot with image
+  usr<-par("usr")    
+  rasterImage(img, usr[1], usr[3], usr[2], usr[4])
+
+  #close image
+  dev.off()
+
+ return(total)
+}
+
+
+
 #' Get info from Encyclopedia of Life
 #'
 #' @param taxon The clade to investigate

R/runanalysis.R

@@ -5,6 +5,7 @@
 #' @export
 run_chapter2 <- function(taxon) {
   wikipedia_summary <- get_wikipedia_summary(taxon)
+  wikipedia_pics <- get_wikipedia_pics(taxon)
   datelife_biggest <- get_datelife_biggest(taxon)
   pubmed <- get_pubmed(taxon)
   genbank_count_by_gene <- get_genbank_count_by_gene(taxon)