prettify(
data.frame(x = c("x,y", "y,z", "z,x")),
col = "x",
into = c("a", "b"),
col_select = "b"
)
if (FALSE) {
df <- tokenize(
data.frame(
doc_id = seq_along(5:8),
text = ginga[5:8]
)
)
prettify(df, col_select = 1:3)
prettify(df, col_select = c(1, 3, 6))
prettify(df, col_select = c("POS1", "Original"))
}
Run the code above in your browser using DataLab