Running examples in 'sweater-Ex.R' failed
The error most likely occurred in:

> ### Name: query
> ### Title: A common interface for making query
> ### Aliases: query print.sweater
> 
> ### ** Examples
> 
> data(googlenews)
> S1 <- c("janitor", "statistician", "midwife", "bailiff", "auctioneer",
+ "photographer", "geologist", "shoemaker", "athlete", "cashier", "dancer",
+ "housekeeper", "accountant", "physicist", "gardener", "dentist", "weaver",
+ "blacksmith", "psychologist", "supervisor", "mathematician", "surveyor",
+ "tailor", "designer", "economist", "mechanic", "laborer", "postmaster",
+ "broker", "chemist", "librarian", "attendant", "clerical", "musician",
+ "porter", "scientist", "carpenter", "sailor", "instructor", "sheriff",
+ "pilot", "inspector", "mason", "baker", "administrator", "architect",
+ "collector", "operator", "surgeon", "driver", "painter", "conductor",
+ "nurse", "cook", "engineer", "retired", "sales", "lawyer", "clergy",
+ "physician", "farmer", "clerk", "manager", "guard", "artist", "smith",
+ "official", "police", "doctor", "professor", "student", "judge",
+ "teacher", "author", "secretary", "soldier")
> A1 <- c("he", "son", "his", "him", "father", "man", "boy", "himself",
+ "male", "brother", "sons", "fathers", "men", "boys", "males", "brothers",
+ "uncle", "uncles", "nephew", "nephews")
> B1 <- c("she", "daughter", "hers", "her", "mother", "woman", "girl",
+ "herself", "female", "sister", "daughters", "mothers", "women", "girls",
+ "females", "sisters", "aunt", "aunts", "niece", "nieces")
> garg_f1 <- query(googlenews, S_words = S1, A_words = A1, B_words = B1)
> garg_f1

── sweater object ──────────────────────────────────────────────────────────────
Test type:  rnd 
Effect size:  -6.341598 

── Functions ───────────────────────────────────────────────────────────────────
Error in nchar(xs) : 
  number of characters is not computable in "bytes" encoding, element 1
Calls: <Anonymous> ... <Anonymous> -> clii__xtext -> ansi_strwrap -> lapply -> FUN
Execution halted