R/lexical_pos.R

In ropensci/rif: Client for 'Neuroscience' Information Framework 'APIs'

#' Lexical services - extract POS tags from input text
#'
#' @export
#'
#' @param text (character) The source text
#' @param key (character) API key. required either passed in here or save
#' as an env var or R option. see \code{\link{rif}} and \code{\link{Startup}}
#' @param ... Curl options passed on to [crul::HttpClient()]
#' @family lexical
#'
#' @examples \dontrun{
#' text <- "Lorem ipsum inceptos dolor nisi torquent porttitor donec, blandit
#' scelerisque mattis cras quis mi, aliquam sagittis. Convallis placerat
#' commodo imperdiet varius nunc tempus urna vitae ultrices tristique eu mi
#' ornare velit donec, posuere laoreet pretium vitae porta augue porta feugiat
#' in sapien egestas. Quam odio nullam pulvinar litora curabitur amet lacus
#' sociosqu gravida ligula molestie dui netus fusce bibendum scelerisque,
#' dictum malesuada proin elit etiam aliquam, mattis euismod donec
#' nisl facilisis."
#'
#' lexical_pos(gsub("\n", "", text))
#' }

lexical_pos <- function(text, key = NULL, ...) {
  start_end(nif_parse(
    nif_GET("lexical/pos.json", list(text = text, key = key_check(key)), ...),
    TRUE
  ))
}