R/first_to_third.R

In seanrsilver/novnet: Novel Networks Project: Tools and Utilities

#' first_to_third()
#'
#' This function is used by txt_to_df() to transform first-person pronouns in
#' texts with first-person narrative voice.
#'
#' @param input.text A character vector of a text, with punctuation left in.  Each element may be a line, sentence, paragraph, etc...
#' @param egoname A character string of the alternate name token to signal the first-person narrator.  This function transforms non-dialogic 1st-person pronouns into this variable's value (i.e. "EgoName", etc...).  It must therefore match a unique alternate name on the associated Char.csv file.
#' @keywords NovNet Utilities
#'
#'
#' @export

#### first_to_third()

first_to_third <- function(input.text, egoname){
  # NOTE: input.text is a text.s-type object
  # NOTE: egoname must be equivalent to a Name or Name Alternate in Char.csv
  # find all text between start quotes and end quotes
  # start quote: (//" followed by any character)
  # end quotes (//" preceded by any non-space)
  quote.v <- unlist(regmatches(input.text, gregexpr("\"\\S.*?\"\\s", input.text)))
  nonquote.v <- unlist(strsplit(input.text, "\"[^ -].*?\"[ -]"))
  nonquote.isub.v <- gsub("\\<I\\>|\\<me\\>", egoname, nonquote.v)

  ## stitch quote.v and nonquote.v back together.
  ## Note: text will always start with nonquote.v
  text.out.s <- paste(nonquote.isub.v, c(quote.v, ""), collapse = "")
  text.out.s
}