updated unit testing

Author: reilly-lab

.Rbuildignore

@@ -12,3 +12,4 @@ README.Rmd
 =======
 ^paper$
 >>>>>>> origin/main
+^LICENSE\.md$

DESCRIPTION

@@ -12,7 +12,7 @@ Authors@R: c(
     person("Jonathan E.", "Peelle", role = "aut"))
 Maintainer: Jamie Reilly <[email protected]>
 Description: SemanticDistance cleans and formats language transcripts guided by a series of transformation options (e.g., lemmatize words, omit stopwords, split strings across rows). SemanticDistance computes two distinct metrics of cosine semantic distance (experiential and embedding). These values reflect pairwise cosine distance between different elements or 'chunks' of a language sample. SemanticDistance can process monologues (e.g., stories, ordered text), dialogues (e.g., conversation transcripts), word pairs arrayed in columns, and unordered word lists. Users specify options for how they wish to 'chunk' distance calculations. These options include: rolling ngram-to-word distance (window of n-words to each new word), ngram-to-ngram distance (2-word chunk to the next 2-word chunk), pairwise distance between words arrayed in columns, matrix comparisons (i.e., all possible pairwise distances between words in an unordered list), turn-by-turn distance (talker to talker in a dialogue transcript). SemanticDistance includes visualization options for analyzing distances as time series data and simple semantic network dynamics (e.g., clustering, undirected graph network).
-License: LGPL (>= 3) + License
+License: LGPL (>= 3)
 Encoding: UTF-8
 LazyData: true
 LazyDataCompression: xz

tests/testthat/test-CleanMonologue.R

@@ -1,6 +1,6 @@
 test_that("clean_monologue_or_list produces 'word_clean' column", {
   # Apply cleaning function (ensure Monologue_Typical exists in environment)
-  cleaned_data <- clean_monologue_or_list(Monologue_Typical)
+  cleaned_data <- clean_monologue_or_list(Monologue_Typical, wordcol='mytext')
 
   # Test 1: Check column exists
   expect_true("word_clean" %in% names(cleaned_data))