txt <- readLines(filename, encoding = "utf8") wordLst <- tolower(unlist(strsplit(txt, "[^a-zA-Z0-9]"))) wordLst <- wordLst[wordLst != ""]
library(shiny)
runApp("univApp1")