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

## ----install-github-----------------------------------------------------------
# # install.packages("remotes")
# remotes::install_github("your_user/LDAShiny")

## ----install-cran-------------------------------------------------------------
# install.packages("LDAShiny")

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

## ----launch-custom------------------------------------------------------------
# run_LDAShiny(max_upload_mb = 1000)

## ----load-model---------------------------------------------------------------
# # Load a previously saved model
# lda_model <- readRDS("lda_final_model.rds")
# 
# # Inspect the phi (topic-term) matrix
# head(lda_model$phi[, 1:5])
# 
# # Inspect the theta (document-topic) matrix
# head(lda_model$theta[, 1:5])

## ----session-info-------------------------------------------------------------
# sessionInfo()