R/faceplusplus.R

In dichika/faceplusplus: get Data from faceplusplus

#' @export
getDetect <- function(file, secret=options()$FACEPP_SECRET, key=options()$FACEPP_KEY){
  require("httr")
  if(grepl("^http|^https", file)){
    u <- sprintf("https://apius.faceplusplus.com/v2/detection/detect?url=%s&api_secret=%s&api_key=%s&attribute=glass,pose,gender,age,race,smiling",
                 file,secret,key
    )
    res <- httr::GET(u)
  } else{
    u <- sprintf("https://apius.faceplusplus.com/v2/detection/detect?api_secret=%s&api_key=%s&attribute=glass,pose,gender,age,race,smiling",
                 secret, key
    )
    res <- httr::POST(u, body=list(img=httr::upload_file(file)))    
  }
  res <- httr::content(res, as="text")
  res <- jsonlite::fromJSON(res, flatten = TRUE)
  return(res$face)
}

#' @export
photo2AgefromMac <- function(auto=TRUE, dir="~/photos"){
  if(auto){
    fs <- list.files(dir, full.names=TRUE)
    f <- fs[which.max(file.info(fs)$mtime)]
  } else{
    f <- file.choose()
  }
  res <- getDetect(f)
}