jmclawson

library(wordcloud)
library(topicmodels)
library(plotly)

# Moves a table of texts through the necessary
# steps of preparation before building a topic
# model. The function applies these steps:
#  1. identifies text divisions by the `doc_id`
#     column
#  2. divides each of the texts into same-sized 

jmclawson

unnest_without_caps <- function(
    df, 
    column = "text") {
  
  full <- df |> 
    tidytext::unnest_tokens(word, {{column}}, to_lower = FALSE) 
  
  big <- full |> 
    dplyr::filter(str_detect(word, "^[A-Z]")) |> 
    dplyr::pull(word)

jmclawson

# library(tidyverse)
# library(tidytext)

##### Use the following function for reading a folder of prose text files. #####
## Put all the text files you want to read in the same folder. If that folder's
## called, for example, "project2", here's the function in practice:
##
##      my_table <- tidy_prose_texts(folder = "project2")
##

jmclawson

##### stylo_log #####
# Pipe from stylo() directly into stylo_log() 
# or wrap stylo() in stylo_log()
# Examples:
#    stylo() |> stylo_log()
#    stylo_log(stylo())

stylo_log <- function(
    stylo_object,
    log_label = NULL,

jmclawson

get_if_needed <- function(
    # Url to be downloaded, necessary
  url, 
  
  # destination filename (optional)
  filename = NULL, 
  
  # destination directory (optional)
  destdir = "data"
) {

jmclawson

##### Load libraries #####
library(dplyr)
library(stringi)
library(stringr)
library(tidyr)
library(stringdist)
library(tokenizers)

##### Set up replicable workflow #####
# Set the directories to be used. Both directories should exist in project directory, and dir_start should include text files needing to be processed.

jmclawson

# import_bib.R
# To convert from Bibtex to a data frame for working with the data in R.

library(dplyr)
library(stringr)
library(tidyr)

# 0. Set filename for the bibfile
the_bibfile <- "~/path/to/my.bib"

jmclawson

library(tidyverse)

# make a pinwheel: first set up directions. The blades are drawn in different orders for clockwise and counterclockwise
clockwise_t <- c(2, 1, 3, 4)
clockwise_f <- c(4, 3, 1, 2)
direction <- list(clockwise_t, clockwise_f)

# create a 4-color pinwheel with 4 blades facing the same direction
get_pinwheel <- 
  function(

jmclawson

\usepackage{listings}
\usepackage{xcolor}

\let\oldaddbibresource\addbibresource
\renewcommand{\addbibresource}[1]{%
  \oldaddbibresource{#1}%
  \expandafter\newcommand\csname thebibfile\endcsname{#1}%
}

% \makeatletter

jmclawson

# To prepare it for use in documentation, import a .bib file, strip Bibdesk's extra fields and additions, and enclose each entry with code compatible with Latex's {listings} package.

library(dplyr)
library(stringr)
library(readr)

# 0. Set relative file path for the bibfile
# setwd()

# 1. read the bib file as a vector of lines