R/send_pdf.R

In jjesusfilho/rfusion: An R Client to Lucidworks Fusion Server

#' Sends pdf files to fusion servers
#'
#' @param x vector with pdf files' path.
#'
#' @return json index with the mapping
#' @export
#'
send_pdf <- function(x){

  url<-paste0(.conn$url,"/api/apps/",.conn$app,"/index/",.conn$index)

  x %>%
  purrr::walk(~POST(url,body=.x,httr::authenticate(user=.conn$user,password=.conn$password),httr::content_type("application/pdf"),encode="multipart"))


}