Skip to content

Commit

Permalink
Diagnostics output for delimiters
Browse files Browse the repository at this point in the history
  • Loading branch information
@justinyapcc
justinyapcc committed Aug 6, 2019
1 parent f3dd73f commit d1ffab8
Show file tree
Hide file tree
Showing 2 changed files with 191 additions and 44 deletions.
72 changes: 62 additions & 10 deletions R/createtextanalysiswidget.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -202,7 +202,7 @@ HighlightNGrams <- function(n.grams, text, subs, cata)
mpos + attr(mpos, "match.length") - 1)
raw.token.tags <- c(raw.token.tags,
paste0("<span class=\"word", ind[k], "\">",
htmlEscape(raw.token),
htmlText(raw.token),
"</span>"))
placeholder <- UniquePlaceholders(1, padding = "-")
token.placeholders <- c(token.placeholders, placeholder)
Expand All @@ -222,7 +222,7 @@ HighlightNGrams <- function(n.grams, text, subs, cata)
{
tag <- paste0("<span class='raw-replacement' title='Replaced with: ",
escapeQuotesForHTML(raw.repl[[i]]$replacement), "'>",
htmlEscape(raw.repl[[i]]$replaced), "</span>")
htmlText(raw.repl[[i]]$replaced), "</span>")
new.text <- sub(raw.repl.placeholders[i], tag, new.text)
}

Expand All @@ -233,7 +233,7 @@ HighlightNGrams <- function(n.grams, text, subs, cata)
if (!is.na(ind[k]))
# Add formatting to transformed text
trans.tokens[[j]][k] <- paste0("<span class=\"word", ind[k], "\">",
htmlEscape(trans.tokens[[j]][k]),
htmlText(trans.tokens[[j]][k]),
"</span>")
}

Expand All @@ -243,7 +243,7 @@ HighlightNGrams <- function(n.grams, text, subs, cata)
# Tooltips is added via "title" - not related to the class CSS
if (nrow(n.grams) > 0)
n.grams[,1] <- paste0("<span class=\"word", 1:n, "\" title=\"",
tooltips, "\">", htmlEscape(n.grams[,1]), "</span>")
tooltips, "\">", htmlText(n.grams[,1]), "</span>")

return(list(n.grams = n.grams,
text = data.frame('Raw text' = orig.text, 'Normalized text' = trans.text,
Expand Down Expand Up @@ -371,7 +371,7 @@ addDiagnosticsPanel <- function(cata, diagnostics)
# For each replacement, show cases where raw text has been replaced
cata("<details class=\"details\">")
cata("<summary class=\"summary sub-details\">Raw text replacements</summary>")
rawTextReplacementDiagnostic(cata, diagnostics$raw.text.replacements)
rawTextReplacementDiagnostic(cata, diagnostics$raw.text.replacement)
cata("</details>")

# For each manual category, show cases
Expand All @@ -383,11 +383,13 @@ addDiagnosticsPanel <- function(cata, diagnostics)
# For each delimiter, show cases which contain the delimiter
cata("<details class=\"details\">")
cata("<summary class=\"summary sub-details\">Delimiters</summary>")
delimitersDiagnostic(cata, diagnostics$delimiters)
cata("</details>")

# For each conditional delimiter, show cases with conditional delimiter
cata("<details class=\"details\">")
cata("<summary class=\"summary sub-details\">Conditional delimiters</summary>")
conditionalDelimitersDiagnostic(cata, diagnostics$conditional.delimiters)
cata("</details>")

# For each split, show cases with split
Expand Down Expand Up @@ -429,12 +431,12 @@ rawTextReplacementDiagnostic <- function(cata, info)
{
cata("<div class=\"diagnostics-block\">")

t <- matrix(htmlEscape(elem$replacement))
t <- matrix(htmlText(elem$replacement))
colnames(t) <- "Replacement"
cata(kable(t, align = c("l"), format = "html",
escape = FALSE, table.attr = "class=\"diagnostics-table\""))

t <- matrix(htmlEscape(elem$to.be.replaced))
t <- matrix(htmlText(elem$to.be.replaced))
colnames(t) <- "Replaced"
cata(kable(t, align = c("l"), format = "html",
escape = FALSE, table.attr = "class=\"diagnostics-table\""))
Expand All @@ -454,7 +456,45 @@ requiredCategoriesDiagnostic <- function(cata, info)
{
cata("<div class=\"diagnostics-block\">")

t <- matrix(htmlEscape(elem$required.category))
t <- matrix(htmlText(elem$required.category))
colnames(t) <- "Required"
cata(kable(t, align = c("l"), format = "html",
escape = FALSE, table.attr = "class=\"diagnostics-table\""))

rawCasesTable(cata, elem)

cata("</div>")
}
cata("</div>")
}

delimitersDiagnostic <- function(cata, info)
{
cata("<div class=\"diagnostics-group\">")
for (elem in info)
{
cata("<div class=\"diagnostics-block\">")

t <- matrix(htmlText(elem$delimiter))
colnames(t) <- "Delimiter"
cata(kable(t, align = c("l"), format = "html",
escape = FALSE, table.attr = "class=\"diagnostics-table\""))

rawCasesTable(cata, elem)

cata("</div>")
}
cata("</div>")
}

conditionalDelimitersDiagnostic <- function(cata, info)
{
cata("<div class=\"diagnostics-group\">")
for (elem in info)
{
cata("<div class=\"diagnostics-block\">")

t <- matrix(htmlText(elem$conditional.delimiter))
colnames(t) <- "Required"
cata(kable(t, align = c("l"), format = "html",
escape = FALSE, table.attr = "class=\"diagnostics-table\""))
Expand All @@ -470,22 +510,34 @@ requiredCategoriesDiagnostic <- function(cata, info)
# corresponding variable numbers and case numbers.
rawCasesTable <- function(cata, obj)
{
cata("<div class=\"diagnostics-raw-cases\">")
if (length(obj$raw.text) > 0)
{
t <- cbind(obj$raw.text.var.num, obj$raw.text.case.num,
htmlEscape(obj$raw.text))
htmlText(obj$raw.text))
if (obj$is.max.exceeded)
t <- rbind(t, c("", "", htmlText(paste0("<TABLE TRUNCATED. ",
obj$n.omitted.rows,
" ROWS OMITTED>"))))

colnames(t) <- c("Var", "Case", "Raw text")
cata(kable(t, align = c("c", "c", "l"), format = "html",
escape = FALSE,
table.attr = "class=\"diagnostics-table\""))
}
else
{
t <- matrix(htmlEscape("<NO CASES FOUND>"))
t <- matrix(htmlText("<NO CASES FOUND>"))
colnames(t) <- "Raw text"
cata(kable(t, align = c("l"), format = "html",
escape = FALSE, table.attr = "class=\"diagnostics-table\""))
}
cata("</div>")
}

htmlText <- function(html)
{
gsub("\r\n|\n\r|\n|\r", "<br>", htmlEscape(html))
}

createWidgetFromFile <- function(tfile)
Expand Down
163 changes: 129 additions & 34 deletions tests/testthat/test-createtextanalysiswidget.R
View file
Original file line number Diff line number Diff line change
Expand Up @@ -127,42 +127,137 @@ test_that("Text analysis output",

test_that("Raw text diagnostics",
{
diagnostics <- list(raw.text.replacements = list(list(replacement = "Qualtrics, Decipher",
diagnostics <- list(raw.text.replacement = list(list(replacement = "Qualtrics, Decipher",
to.be.replaced = "Qualtics and Decipher", rows = 1115L, raw.text = "Qualtics and Decipher",
raw.text.var.num = 1, raw.text.case.num = 1115L)),
required.categories = list(list(required.category = "Q", raw.text = c("Q", "Excel, Q survey software",
"Q", "Q, SPSS", "Q", "Q or quantum", "Q", "Q Analysis", "Dimensions, SPSS, Q",
"SPSS,Q,Excel", "q, spss, dimensions", "Q, SPSS, excel, wordle.",
"Q", "Q, SPSS", "Q Reader", "SPSS\r\nexcel\r\nQ", "Q, Espri",
"Q", "SPSS, Q", "Q", "Q", "q, spss, online platforms like surveymonkey",
"Q, SPSS and excel", "SPSS Statistics 22, Confirmit, Q", "Quantum, SPSS, Q",
"SPSS, Q, Beacon", "Q Research Software", "Q software", "q"),
raw.text.var.num = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), raw.text.case.num = c(13L,
73L, 258L, 439L, 490L, 703L, 726L, 734L, 760L, 840L, 858L,
860L, 867L, 988L, 1156L, 1202L, 1210L, 1212L, 1218L, 1222L,
raw.text.var.num = 1, raw.text.case.num = 1115L, is.max.exceeded = FALSE)),
required.categories = list(list(required.category = "Q", raw.text = c("Q", "Excel, Q survey software",
"Q", "Q, SPSS", "Q", "Q or quantum", "Q", "Q Analysis", "Dimensions, SPSS, Q",
"SPSS,Q,Excel", "q, spss, dimensions", "Q, SPSS, excel, wordle.",
"Q", "Q, SPSS", "Q Reader", "SPSS\r\nexcel\r\nQ", "Q, Espri",
"Q", "SPSS, Q", "Q", "Q", "q, spss, online platforms like surveymonkey",
"Q, SPSS and excel", "SPSS Statistics 22, Confirmit, Q", "Quantum, SPSS, Q",
"SPSS, Q, Beacon", "Q Research Software", "Q software", "q"),
raw.text.var.num = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), raw.text.case.num = c(13L,
73L, 258L, 439L, 490L, 703L, 726L, 734L, 760L, 840L, 858L,
860L, 867L, 988L, 1156L, 1202L, 1210L, 1212L, 1218L, 1222L,
1245L, 1334L, 1337L, 1433L, 1504L, 1511L, 1566L, 1578L, 1622L
)), list(required.category = "SPSS, Excel", raw.text = c("SPSS, Excel",
"Sparq, SPSS, Excel", "SPSS, Excel", "SPSS, EXCEL", "SPSS, Excel",
"SPSS, Excel", "SPSS, Excel, Wincross", "SPSS, Excel", "Prime lingo, SPSS, excel",
"QPS, SPSS, EXCEL", "SPSS, EXCEL", "SPSS, Excel, SPSS Modeler",
"dimensions, SPSS, excel, reporter, ppt, word", "WinCross, SPSS, Excel",
"JMP, SPSS, Excel macro's", "SPSS, Excel", "SPSS, Excel", "SPSS, Excel",
"SPSS, excel", "Q, SPSS, excel, wordle.", "SPSS, Excel", "SPSS, Excel",
"SPSS, EXCEL", "SPSS, Excel", "Wincross, SPSS, Excel", "SPSS, Excel",
"SPSS, excel, powerpoint", "verint, SPSS, Excel", "SPSS reporter, SPSS, excel",
"SPSS, Excel", "SPSS, Excel", "SPSS, Excel, Powerpoint", "SPSS, Excel",
"Wincross, SPSS, Excel", "proprietary system, spss, excel", "SPSS, excel",
"SPSS, EXCEL", "SPSS, excel, askia, SAS", "SPSS & Excel"), raw.text.var.num = c(1,
), is.max.exceeded = FALSE),
list(required.category = "SPSS, Excel", raw.text = c("SPSS, Excel",
"Sparq, SPSS, Excel", "SPSS, Excel", "SPSS, EXCEL", "SPSS, Excel",
"SPSS, Excel", "SPSS, Excel, Wincross", "SPSS, Excel", "Prime lingo, SPSS, excel",
"QPS, SPSS, EXCEL", "SPSS, EXCEL", "SPSS, Excel, SPSS Modeler",
"dimensions, SPSS, excel, reporter, ppt, word", "WinCross, SPSS, Excel",
"JMP, SPSS, Excel macro's", "SPSS, Excel", "SPSS, Excel", "SPSS, Excel",
"SPSS, excel", "Q, SPSS, excel, wordle.", "SPSS, Excel", "SPSS, Excel",
"SPSS, EXCEL", "SPSS, Excel", "Wincross, SPSS, Excel", "SPSS, Excel",
"SPSS, excel, powerpoint", "verint, SPSS, Excel", "SPSS reporter, SPSS, excel",
"SPSS, Excel", "SPSS, Excel", "SPSS, Excel, Powerpoint", "SPSS, Excel",
"Wincross, SPSS, Excel", "proprietary system, spss, excel", "SPSS, excel",
"SPSS, EXCEL", "SPSS, excel, askia, SAS", "SPSS & Excel"), raw.text.var.num = c(1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), raw.text.case.num = c(68L,
80L, 109L, 129L, 135L, 194L, 197L, 222L, 232L, 251L, 281L, 295L,
340L, 346L, 468L, 482L, 483L, 534L, 694L, 860L, 886L, 888L, 891L,
1023L, 1076L, 1102L, 1153L, 1161L, 1217L, 1235L, 1270L, 1325L,
1448L, 1483L, 1612L, 1705L, 1755L, 1840L, 1259L), is.max.exceeded = FALSE)),
category.replacements = list(),
delimiters = list(list(delimiter = "Tab", rows = integer(0), raw.text = character(0),
raw.text.var.num = numeric(0), raw.text.case.num = integer(0),
is.max.exceeded = FALSE, n.omitted.rows = 0L), list(delimiter = "Semicolon",
rows = c(783L, 792L, 805L, 1146L, 1275L, 1828L), raw.text = c("SPSS; WinCross",
"SPSS; Wincross; Excel", "Excel; DK", "QPS (Reflect & Command Language); SPSS",
"No software used; performed analysis in Excel", "SPSS; excel"
), raw.text.var.num = c(1, 1, 1, 1, 1, 1), raw.text.case.num = c(783L,
792L, 805L, 1146L, 1275L, 1828L), is.max.exceeded = FALSE,
n.omitted.rows = 0L), list(delimiter = "Comma", rows = c(1L,
6L, 11L, 15L, 19L, 21L, 22L, 30L, 34L, 35L, 37L, 51L, 53L, 59L,
68L, 73L, 79L, 80L, 87L, 93L, 109L, 129L, 131L, 135L, 136L, 137L,
142L, 156L, 163L, 176L, 177L, 179L, 189L, 191L, 194L, 197L, 211L,
222L, 223L, 227L, 232L, 236L, 245L, 246L, 251L, 254L, 266L, 281L,
287L, 291L, 295L, 300L, 302L, 307L, 317L, 332L, 340L, 342L, 346L,
355L, 358L, 372L, 393L, 407L, 418L, 439L, 468L, 482L, 483L, 503L,
530L, 531L, 533L, 534L, 537L, 540L, 550L, 565L, 567L, 570L, 572L,
580L, 581L, 583L, 592L, 603L, 625L, 627L, 636L, 638L, 647L, 649L,
661L, 673L, 676L, 684L, 694L, 695L, 704L, 711L, 716L, 745L, 760L,
764L, 779L, 781L, 789L, 794L, 798L, 813L, 814L, 815L, 822L, 827L,
828L, 829L, 833L, 837L, 840L, 842L, 853L, 855L, 858L, 860L, 864L,
873L, 886L, 888L, 891L, 897L, 906L, 908L, 939L, 949L, 952L, 953L,
963L, 965L, 970L, 981L, 984L, 988L, 995L, 999L, 1001L, 1005L,
1006L, 1011L, 1015L, 1020L, 1022L, 1023L, 1050L, 1056L, 1059L,
1064L, 1070L, 1076L, 1077L, 1086L, 1094L, 1102L, 1104L, 1107L,
1133L, 1141L, 1143L, 1147L, 1153L, 1161L, 1162L, 1171L, 1204L,
1207L, 1208L, 1210L, 1213L, 1216L, 1217L, 1218L, 1220L, 1230L,
1233L, 1235L, 1236L, 1241L, 1242L, 1243L, 1244L, 1260L, 1262L,
1263L, 1270L, 1276L, 1286L, 1288L, 1293L, 1306L, 1313L, 1315L,
1316L, 1325L, 1330L, 1334L, 1337L, 1374L, 1383L, 1389L, 1392L,
1396L, 1398L, 1411L, 1425L, 1433L, 1436L, 1437L, 1448L, 1451L,
1472L, 1482L, 1483L, 1485L, 1501L, 1503L, 1504L, 1507L, 1511L,
1514L, 1517L, 1535L, 1542L, 1543L, 1554L, 1559L, 1571L, 1576L,
1581L, 1601L, 1603L, 1612L, 1636L, 1638L, 1639L, 1641L, 1643L,
1672L, 1684L, 1705L, 1713L, 1723L, 1734L, 1736L, 1741L, 1755L,
1767L, 1768L, 1769L, 1771L, 1788L, 1789L, 1799L, 1803L, 1804L,
1809L, 1813L, 1820L, 1824L, 1838L, 1840L, 1842L, 1852L, 1865L
), raw.text = c("Excel, SPSS", "Market Sight, SPSS", "Market Sight, Excel, SPSS",
"Quantum, SPSS, Custom solution", "Survey Monkey, Thynkster",
"Report Builder, SPSS, WinCross", "Spss, statwing", "Nielsen, IRI, Excel",
"Excel, SPSS", "Proprietary,Excel", "excel, proprietary supplier software",
"Confirmit, SPSS", "Excel, Quantum, SPSS", "askia, spss", "SPSS, Excel",
"Excel, Q survey software", "IBM SPSS, Askia, MS", "Sparq, SPSS, Excel",
"SAS, SPSS, QPS MR", "Marketsight, SPSS", "SPSS, Excel", "SPSS, EXCEL",
"Excel, R", "SPSS, Excel", "SPSS, Wincross", "SPSS, Tableau, EXCEL, Sawtooth",
"WinCross, SPSS", "Quanvert, SPSS, Dimensions", "Verint, Wincross and SPSS",
"SPSS, Win Cross", "SPSS, MarketSight", "Excel, PPT", "Excel, SPSS",
"SPSS, R", "SPSS, Excel", "SPSS, Excel, Wincross", "Quantum, market sight",
"SPSS, Excel", "SPSS, Qualtrics, etc", "Proprietary program, and data collection partners software",
"Prime lingo, SPSS, excel", "WinCross, SPSS", "Dimensions, Reporter, SPSS",
"IBM spss dimensions, spss", "QPS, SPSS, EXCEL", "IBM Survey Reporter, Softcopy Insight, Survey Craft Scytab",
"SPSS, SAS, ?", "SPSS, EXCEL", "Reports for Surveys, Excel, SPSS",
"SPSS, QUALTRICS", "SPSS, Excel, SPSS Modeler", "Microsoft, SPSS, R",
"wincross, spss", "Reporter, SPSS", "beacon, qualtrics", "Excel, JMP",
"dimensions, SPSS, excel, reporter, ppt, word", "Reporter, SPSS",
"WinCross, SPSS, Excel", "Wincross, SPSS", "R, SPSS", "Think Passenger FUEL Platform, Qualtrics",
"Dimensions, Quantum", "Sparq, Quick reporting", "SPSS, Marketsight",
"Q, SPSS", "JMP, SPSS, Excel macro's", "SPSS, Excel", "SPSS, Excel",
"WinyApps, Excel", "SPSS, R", "SPSS, Excle, Tableau", "Fluid Surveys, Excel",
"SPSS, Excel", "WinCross, SPSS, Sawtooth", "SPSS, ETabs", "Survey monkey, MRI, scarborough",
"WinCross, SPSS", "SNAP, Excel", "SPSS, Palomars, Galileo, some other",
"Quantum, Wincross", "R, PSPP", "Wincross, SPSS", "Excel, SPSS",
"Wincross, SPSS", "Excel, Word, Power Point", "excel, spss",
"Spss custom tabels, microsoft excel", "spss, xlstat", "SPSS,WinCross",
"SPSS, WORKBENCH", "etabs, spss", "Qualtrics, Sawtooth Software, SPSS, SPSS Text Analysis",
"Qualtrics, 20-20 Research", "Dimensions, IBM Reporter, SPSS",
"IBM SPSS, MS Excel advanced extension", "SPSS, excel", "Infotools Harmoni, Infotools Visulite",
"R, Excel", "Sawtooth, Surveycraft, Excel"), raw.text.var.num = c(1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), raw.text.case.num = c(68L,
80L, 109L, 129L, 135L, 194L, 197L, 222L, 232L, 251L, 281L, 295L,
340L, 346L, 468L, 482L, 483L, 534L, 694L, 860L, 886L, 888L, 891L,
1023L, 1076L, 1102L, 1153L, 1161L, 1217L, 1235L, 1270L, 1325L,
1448L, 1483L, 1612L, 1705L, 1755L, 1840L, 1259L))),
category.replacements = list(), conditional.delimitations = list(
raw.text = character(0), raw.text.var.num = numeric(0),
raw.text.case.num = integer(0)), known.category.splits = list(),
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), raw.text.case.num = c(1L,
6L, 11L, 15L, 19L, 21L, 22L, 30L, 34L, 35L, 37L, 51L, 53L, 59L,
68L, 73L, 79L, 80L, 87L, 93L, 109L, 129L, 131L, 135L, 136L, 137L,
142L, 156L, 163L, 176L, 177L, 179L, 189L, 191L, 194L, 197L, 211L,
222L, 223L, 227L, 232L, 236L, 245L, 246L, 251L, 254L, 266L, 281L,
287L, 291L, 295L, 300L, 302L, 307L, 317L, 332L, 340L, 342L, 346L,
355L, 358L, 372L, 393L, 407L, 418L, 439L, 468L, 482L, 483L, 503L,
530L, 531L, 533L, 534L, 537L, 540L, 550L, 565L, 567L, 570L, 572L,
580L, 581L, 583L, 592L, 603L, 625L, 627L, 636L, 638L, 647L, 649L,
661L, 673L, 676L, 684L, 694L, 695L, 704L, 711L), is.max.exceeded = TRUE,
n.omitted.rows = 172L), list(delimiter = "Newline", rows = c(429L,
662L, 1054L, 1202L, 1256L, 1512L, 1843L), raw.text = c("SPSS\r\nExcel",
"E-tabs\r\nSPSS", "Spss\r\nsurveycraft", "SPSS\r\nexcel\r\nQ",
"Statwing\r\nExcel\r\nSPSS\r\nDesktop Reporter", "SurveyMonkey\r\nExcel",
"xls\r\naskia"), raw.text.var.num = c(1, 1, 1, 1, 1, 1, 1), raw.text.case.num = c(429L,
662L, 1054L, 1202L, 1256L, 1512L, 1843L), is.max.exceeded = FALSE,
n.omitted.rows = 0L)),
conditional.delimiters = list(list(conditional.delimiter = "and", rows = c(318, 1625,
299, 163, 288, 621, 2, 1337, 65, 69, 685), raw.text = c("Etabs and Wincross",
"decipher and marketsight", "Wincross and E-tabs", "Verint, Wincross and SPSS",
"spss and reporter", "Uncle and SPSS", "spss and excel", "Q, SPSS and excel",
"SPSS and MarketSight", "Spss and MarketSight", "SPSS and MarketSight"
), raw.text.var.num = c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), raw.text.case.num = c(318L,
1625L, 299L, 163L, 288L, 621L, 2L, 1337L, 65L, 69L, 685L), is.max.exceeded = FALSE)),
known.category.splits = list(),
spelling.corrections = list(list(corrected = "E-tabs", correction = "etabs",
rows = c(662L, 1479L, 1576L), raw.text = c("E-tabs\r\nSPSS",
"e-tabs", "E-Tabs, Wincross, SPSS"), raw.text.var.num = c(1,
Expand All @@ -187,7 +282,7 @@ test_that("Raw text diagnostics",
rows = 242L, raw.text = "spss. ibm dimension", raw.text.var.num = 1,
raw.text.case.num = 242L), list(corrected = "propriettary",
correction = "proprietary", rows = 1556L, raw.text = "propriettary",
raw.text.var.num = 1, raw.text.case.num = 1556L)),
raw.text.var.num = 1, raw.text.case.num = 1556L, is.max.exceeded = FALSE)),
discarded.categories = list(), low.freq.categories = list())

result <- CreateTextAnalysisWidget(raw.and.normalized.text,
Expand Down

0 comments on commit d1ffab8

Please sign in to comment.