Show the code
library(tidyverse)
library(DT) # interactive tables
library(knitr) # static table with the kable() function
library(plotly) # interactive graphs
library(scales)
# Read the clean dataset
skool1000 <- readRDS(file = "E:/The Data Digest/GitHub/Skool/input/skool1000.RDS") %>%
select(-c(members_cleaned, language_textcat, language_cld2, language_cld3))