inst/doc/dea_street_names.R

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

## -----------------------------------------------------------------------------
#  library(pdftools)
#  x <- pdf_text("../inst/extdata/DIR-020-17DrugSlangCodeWords.pdf")
#  
#  sink("slang.txt")
#  cat(x[2:7])
#  sink()

## -----------------------------------------------------------------------------
#  library(readr)  # read_delm
#  
#  s <- read_delim("../inst/extdata/slangUE.txt", "~", escape_double = FALSE,
#                  col_names = c("category", "brand", "slang"),
#                  col_types = cols(
#                    category = col_character(),
#                    brand = col_character(),
#                    slang = col_character()),
#                    trim_ws = TRUE)
#  
#  library(tidyr)  # for separate_rows()
#  library(stringr)  #str_squish
#  suppressPackageStartupMessages(library(dplyr))  # mutate  %>%
#  
#  dea_street_names <- separate_rows(s, slang, sep = ";") %>%
#    mutate(slang = str_squish(slang)) %>%
#    distinct() # Blaze listed twice in Synthetic Cannabinoids
#  

## -----------------------------------------------------------------------------
#  usethis::use_data(dea_street_names,overwrite = TRUE)

Try the DOPE package in your browser

Any scripts or data that you put into this service are public.

DOPE documentation built on June 19, 2021, 1:06 a.m.