data-raw/create.R

In quadrama/DramaAnalysis: Analysis of Dramatic Texts

require(DramaAnalysis)

setup()

installData("test")

removeSpecialCharacters <- function(x) {
  x$text$Token.surface <- stringi::stri_trans_general(x$text$Token.surface, 
                                                      "latin-ascii")

  x$text$Token.lemma <- stringi::stri_trans_general(x$text$Token.lemma, 
                                                    "latin-ascii")
  
  x$stageDirections$Token.surface <- stringi::stri_trans_general(x$stageDirections$Token.surface, 
                                                                 "latin-ascii")

  x$stageDirections$Token.lemma <- stringi::stri_trans_general(x$stageDirections$Token.lemma, 
                                                               "latin-ascii")
  
  x$mentions$mentionSurface <-stringi::stri_trans_general(x$mentions$mentionSurface, 
                                                          "latin-ascii")

  x$mentions$entityId <-stringi::stri_trans_general(x$mentions$entityId, 
                                                    "latin-ascii")
    
  x$meta$documentTitle <- stringi::stri_trans_general(x$meta$documentTitle, 
                                                      "latin-ascii")
  
  x
}

rksp.0 <- loadDrama("test:rksp.0")
rksp.0 <- removeSpecialCharacters(rksp.0)
usethis::use_data(rksp.0, overwrite=TRUE, version=2)

rjmw.0 <- loadDrama("test:rjmw.0")
rjmw.0 <- removeSpecialCharacters(rjmw.0)
usethis::use_data(rjmw.0, overwrite=TRUE, version=2)

base_dictionary <- loadFields(fieldnames = c("Familie", "Krieg", "Ratio", "Liebe", "Religion"))
base_dictionary <- lapply(base_dictionary, stringi::stri_trans_general, id="latin-ascii")
usethis::use_data(base_dictionary, overwrite=TRUE, version=2)