Assign topic number to every row

Question

Using this option it is possible to make a topic modeling

library(stm)
library(tidyr)
library(quanteda)
testDfm <- gadarian$open.ended.response %>%