## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment  = "#>",
  eval     = FALSE
)

## ----launch-------------------------------------------------------------------
# library(LDAShiny)
# run_LDAShiny()

## ----maxsize------------------------------------------------------------------
# options(shiny.maxRequestSize = 1024 * 1024^2)  # 1 GB
# run_LDAShiny()

## ----use-model----------------------------------------------------------------
# model <- readRDS("lda_final_model.rds")
# 
# names(model)            # componentes del modelo
# dim(model$phi)          # K tópicos x términos
# dim(model$theta)        # documentos x K tópicos
# round(model$prevalence, 1)
# 
# # Diez términos principales de cada tópico
# textmineR::GetTopTerms(model$phi, M = 10)