demo/shiny_LDA/global.R

In AlexisMayer/toolbox:

# PREPARE SHINY ################################################################

# Dashboard
library(shiny)
library(shinydashboard)
library(shinyjs)
library(shinydashboardPlus)
library(shinyWidgets)
library(shinycssloaders)
library(colourpicker)

# Processing 
library(tidyverse)
library(janitor)
library(stringi)
# Data viz
library(wordcloud)
# library(wordcloud2)
library(tm)
# Advanced modeling
library(tidytext)
library(topicmodels)
# PCA
library(FactoMineR)
library(factoextra)

# Define paths
paths <- NULL

# CSS
source("helper.R")

# Remove special words
rmw = c("aussi","arrivent","etc","annees","surtout","douce","oui","berre",
        "donc","plus","afin","terme","faut","tous","tout","très","sur","faire",
        "permettrai","être", "depuis", "bien", "encore","ceux","peu",
        "comme", "chaque", "fait", "deja", "toute", "toutes", "elles", "ans",
        "pourrait", "doit")