Permalink
Browse files

example links

  • Loading branch information...
JohnCoene committed Jul 19, 2017
1 parent baf8e4d commit 128456d2e699d5072c773733447259522b602af7
Showing with 2 additions and 0 deletions.
  1. +2 βˆ’0 README.md
@@ -25,6 +25,8 @@ devtools::install_github("JohnCoene/rodham")
## Example
You will find more a in-depth walkthrough [here](http://john-coene.com/packages/rodham/).
#### Data
```R

1 comment on commit 128456d

@lintr-bot

This comment has been minimized.

lintr-bot commented on 128456d Jul 19, 2017

inst/doc/how-to.R:1:2: style: Commented code should be removed.

​## ----opts, echo=FALSE----------------------------------------------------
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:7:2: style: Commented code should be removed.

​## ----setup, echo=TRUE, eval=TRUE-----------------------------------------
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:18:2: style: Commented code should be removed.

​## ----edges, echo=TRUE, eval=TRUE-----------------------------------------
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:22:2: style: Commented code should be removed.

​## ----simple network, echo=TRUE, eval=TRUE--------------------------------
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:26:65: style: Trailing whitespace is superfluous.

​     vertex.label.color = hsv(h = 0, s = 0, v = 0, alpha = 0.0), 
                                                                ^

inst/doc/how-to.R:27:72: style: Trailing whitespace is superfluous.

​     vertex.size = log1p(igraph::degree(g)) * 2, edge.arrow.size = 0.1, 
                                                                       ^

inst/doc/how-to.R:28:67: style: Put spaces around all infix operators.

​     edge.arrow.width = 0.1, edge.width = log1p(igraph::E(g)$freq)/4,
                                                                 ~^~

inst/doc/how-to.R:29:24: style: Put spaces around all infix operators.

​     vertex.frame.color="#FFFFFF")
                      ~^~

inst/doc/how-to.R:31:2: style: Commented code should be removed.

​## ----get xpdf, echo=TRUE, eval=FALSE-------------------------------------
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:32:4: style: Commented code should be removed.

​#  xpdf <- get_xpdf(dest = "C:/") # get extractor
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:34:4: style: Commented code should be removed.

​#  xpdf <- "your/path/xpdfbin-win-3.04/bin64/pdftotext"
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:36:2: style: Commented code should be removed.

​## ----get emails, echo=TRUE, eval=FALSE-----------------------------------
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:37:4: style: Commented code should be removed.

​#  dir.create(dir) # directory must exist
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:38:1: style: Lines should not be more than 80 characters.

​#  emails_bengh <- get_emails(release = "Benghazi", save.dir = "./rodham", extractor = xpdf)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:38:4: style: Commented code should be removed.

​#  emails_bengh <- get_emails(release = "Benghazi", save.dir = "./rodham", extractor = xpdf)
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:40:2: style: Commented code should be removed.

​## ----download emails, echo=TRUE, eval=FALSE------------------------------
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:42:4: style: Commented code should be removed.

​#  dl <- download_emails("August") # returns full pass to zip
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:43:2: style: Trailing whitespace is superfluous.

​#  
 ^~

inst/doc/how-to.R:44:4: style: Commented code should be removed.

​#  pdf <- "emails_pdf" # directory where pdf will be extracted to
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:45:4: style: Commented code should be removed.

​#  txt <- "emails.text" # directory where txt will be extracted to
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:46:2: style: Trailing whitespace is superfluous.

​#  
 ^~

inst/doc/how-to.R:48:4: style: Commented code should be removed.

​#  dir.create(pdf)
   ^~~~~~~~~~~~~~~

inst/doc/how-to.R:49:4: style: Commented code should be removed.

​#  dir.create(emails_bengh)
   ^~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:50:2: style: Trailing whitespace is superfluous.

​#  
 ^~

inst/doc/how-to.R:51:4: style: Commented code should be removed.

​#  unzip(dl, exdir = pdf)
   ^~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:52:2: style: Trailing whitespace is superfluous.

​#  
 ^~

inst/doc/how-to.R:54:4: style: Commented code should be removed.

​#  extract_emails(pdf, save.dir = txt, extractor = ext)
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:56:2: style: Commented code should be removed.

​## ----read emails, echo=TRUE, eval=FALSE----------------------------------
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:57:4: style: Commented code should be removed.

​#  contents <- load_emails(emails_bengh)
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:59:2: style: Commented code should be removed.

​## ----clean emails, echo=TRUE, eval=FALSE---------------------------------
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:60:4: style: Commented code should be removed.

​#  cont <- get_content(contents)
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:61:4: style: Commented code should be removed.

​#  cont <- clean_content(cont)
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~

inst/doc/how-to.R:62:1: style: Trailing blank lines are superfluous.

​
^

R/clean.R:8:1: style: Lines should not be more than 80 characters.

​#' \code{UNCLASSIFIED U.S. Department of State Case No. F-2014-20439 Doc No. C05765911 Date: 08/31/2015}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/clean.R:22:5: style: Place a space before left parenthesis, except in a function call.

​  if(missing(content)) stop("must pass emails")
    ^

R/clean.R:24:1: style: Lines should not be more than 80 characters.

​    x <- x[!grepl("UNCLASSIFIED U.S. Department of State Case \\w+?[[:punct:]]?[[:space:]]", x)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/clean.R:25:1: style: Lines should not be more than 80 characters.

​    x <- x[!grepl("F-[0-9]+-[0-9]+?\\sDoc\\sNo.?\\s[A-Z][0-9]{8}?\\sDate[[:punct:]]\\s[0-9]{2}[[:punct:]][0-9]{2}[[:punct:]][0-9]{4}", x)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/clean.R:26:1: style: Lines should not be more than 80 characters.

​    x <- x[!grepl("From[[:punct:]][[:space:]]Sent[[:punct:]][[:space:]]To[[:punct:]][[:space:]]Subject[[:punct:]]", x)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/edge.R:6:1: style: Lines should not be more than 80 characters.

​#' @param emails Data frame of emails as returned by \code{\link{search_emails}},
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/edge.R:26:36: style: Commas should always have a space after.

​  emails <- emails[emails$to != "",] # filter
                                   ^

R/edge.R:27:38: style: Commas should always have a space after.

​  emails <- emails[emails$from != "",]
                                     ^

R/edge.R:30:44: warning: no visible binding for global variable β€˜to’, Did you mean 'ts'?

​  clean <- emails[with(emails, !grepl(";", to) & !grepl(";", from)),] # split
                                           ^~

R/edge.R:30:62: warning: no visible binding for global variable β€˜from’, Did you mean 'proj'?

​  clean <- emails[with(emails, !grepl(";", to) & !grepl(";", from)),] # split
                                                             ^~~~

R/edge.R:30:69: style: Commas should always have a space after.

​  clean <- emails[with(emails, !grepl(";", to) & !grepl(";", from)),] # split
                                                                    ^

R/edge.R:31:41: warning: no visible binding for global variable β€˜to’, Did you mean 'ts'?

​  raw <- emails[with(emails, grepl(";", to) | grepl(";", from)),]
                                        ^~

R/edge.R:31:58: warning: no visible binding for global variable β€˜from’, Did you mean 'proj'?

​  raw <- emails[with(emails, grepl(";", to) | grepl(";", from)),]
                                                         ^~~~

R/edge.R:31:65: style: Commas should always have a space after.

​  raw <- emails[with(emails, grepl(";", to) | grepl(";", from)),]
                                                                ^

R/edge.R:32:11: warning: no visible global function definition for β€˜raw2clean’

​  tail <- raw2clean(raw) # process raw
          ^~~~~~~~~

R/edge.R:36:5: style: Place a space before left parenthesis, except in a function call.

​  if(!is.null(args)){ # if meta-data
    ^

R/edge.R:36:21: style: Opening curly braces should never go on their own line and should always be followed by a new line.

​  if(!is.null(args)){ # if meta-data
                    ^

R/edge.R:47:53: style: Commas should always have a space after.

​  src_tgt <- src_tgt[order(-src_tgt[ncol(src_tgt)]),] # arrange by weight
                                                    ^

R/emails.R:18:1: style: Lines should not be more than 80 characters.

​#' @source \url{http://graphics.wsj.com/hillary-clinton-email-documents/api/search.php?subject=&to=&from=&start=&end=&sort=docDate&order=desc&docid=&limit=27159&offset=0}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/extractor.R:25:20: style: Only use double-quotes.

​  os <- Sys.info()['sysname'] # get os
                   ^~~~~~~~~

R/extractor.R:26:3: warning: no visible global function definition for β€˜checkOS’

​  checkOS(os, dest)
  ^~~~~~~

R/extractor.R:27:10: warning: no visible global function definition for β€˜OStoURI’

​  lst <- OStoURI(os) # check os
         ^~~~~~~

R/extractor.R:30:10: warning: no visible global function definition for β€˜decompress_fun’

​  dec <- decompress_fun(temp_zip) # get decompress function
         ^~~~~~~~~~~~~~

R/extractor.R:32:31: style: Put spaces around all infix operators.

​  unlink("temp_zip", recursive=TRUE) # delete temp zip once unzipped
                             ~^~

R/extractor.R:33:13: warning: no visible global function definition for β€˜OS2folder’

​  folder <- OS2folder(os)
            ^~~~~~~~~

R/extractor.R:41:1: style: Trailing blank lines are superfluous.

​
^

R/get_emails.R:59:1: style: Lines should not be more than 80 characters.

​#' @seealso \code{\link{get_xpdf}}, \code{\link{download_emails}}, \code{\link{extract_emails}}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/get_emails.R:64:33: style: Variable or function name should be snake_case.

​get_emails <- function(release, save.dir = getwd(), extractor, ...){
                                ^~~~~~~~

R/get_emails.R:78:3: warning: no visible global function definition for β€˜lin_warn’

​  lin_warn()
  ^~~~~~~~

R/get_emails.R:79:10: warning: no visible global function definition for β€˜checkRelease’

​  uri <- checkRelease(release) # check release input and return URL
         ^~~~~~~~~~~~

R/get_emails.R:91:28: style: Commas should always have a space after.

​    pdf <- paste0(temp_dir,"\\", files[i])
                           ^

R/get_emails.R:92:28: style: Commas should always have a space after.

​    txt <- paste0(save.dir,"/", dest[i])
                           ^

R/get_emails.R:93:1: style: Lines should not be more than 80 characters.

​    system(paste(extractor, "-enc UTF-8 -nopgbrk", ..., pdf, txt, sep = " "), wait = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/get_emails.R:94:28: style: Put spaces around all infix operators.

​    setTxtProgressBar(pb, i/length(files))
                          ~^~

R/get_emails.R:123:1: style: Lines should not be more than 80 characters.

​#' extarct_contents(emails = "HRC_Email_296", dest = "./emails_txt", extractor = ext)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/get_emails.R:131:37: style: Variable or function name should be snake_case.

​extract_emails <- function(release, save.dir = getwd(), extractor, ...){
                                    ^~~~~~~~

R/get_emails.R:132:1: style: Lines should not be more than 80 characters.

​  if(missing(release) || missing(extractor)) stop("must pass release and extractor.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/get_emails.R:132:5: style: Place a space before left parenthesis, except in a function call.

​  if(missing(release) || missing(extractor)) stop("must pass release and extractor.")
    ^

R/get_emails.R:140:1: style: Lines should not be more than 80 characters.

​    system(paste(extractor, "-enc UTF-8 -nopgbrk", ..., pdf, txt, sep = " "), wait = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/get_emails.R:141:28: style: Put spaces around all infix operators.

​    setTxtProgressBar(pb, i/length(files))
                          ~^~

R/get_emails.R:181:38: style: Variable or function name should be snake_case.

​download_emails <- function(release, save.dir = getwd()){
                                     ^~~~~~~~

R/get_emails.R:182:5: style: Place a space before left parenthesis, except in a function call.

​  if(missing(release)) stop("must pass release.")
    ^

R/get_emails.R:183:10: warning: no visible global function definition for β€˜checkRelease’

​  uri <- checkRelease(release) # check release input and return URL
         ^~~~~~~~~~~~

R/get_emails.R:184:1: style: Lines should not be more than 80 characters.

​  download.file(uri, destfile = paste0(save.dir, "/", release, ".zip")) # download
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/get.R:6:1: style: Lines should not be more than 80 characters.

​#' @param emails list of email contents, as returned by \code{\link{load_emails}}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/get.R:24:1: style: Variable or function name should be snake_case.

​get_date.rodham = function(emails) {
^~~~~~~~~~~~~~~

R/get.R:24:17: style: Use <-, not =, for assignment.

​get_date.rodham = function(emails) {
                ^

R/get.R:28:10: warning: no visible global function definition for β€˜get_id’, Did you mean 'getwd'?

​  ids <- get_id(emails)
         ^~~~~~

R/get.R:37:1: style: Lines should not be more than 80 characters.

​#' @param emails list of email contents, as returned by \code{\link{load_emails}}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/get.R:55:1: style: Variable or function name should be snake_case.

​get_com.rodham = function(emails) {
^~~~~~~~~~~~~~

R/get.R:55:16: style: Use <-, not =, for assignment.

​get_com.rodham = function(emails) {
               ^

R/get.R:62:10: warning: no visible global function definition for β€˜get_id’, Did you mean 'getwd'?

​  ids <- get_id(emails)
         ^~~~~~

R/get.R:71:1: style: Lines should not be more than 80 characters.

​#' @param emails list of email contents, as returned by \code{\link{load_emails}}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/get.R:89:1: style: Variable or function name should be snake_case.

​get_or.rodham = function(emails) {
^~~~~~~~~~~~~

R/get.R:89:15: style: Use <-, not =, for assignment.

​get_or.rodham = function(emails) {
              ^

R/get.R:96:10: warning: no visible global function definition for β€˜get_id’, Did you mean 'getwd'?

​  ids <- get_id(emails)
         ^~~~~~

R/get.R:105:1: style: Lines should not be more than 80 characters.

​#' @param emails list of email contents, as returned by \code{\link{load_emails}}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/get.R:123:1: style: Variable or function name should be snake_case.

​get_content.rodham = function(emails) {
^~~~~~~~~~~~~~~~~~

R/get.R:123:20: style: Use <-, not =, for assignment.

​get_content.rodham = function(emails) {
                   ^

R/get.R:127:15: warning: no visible global function definition for β€˜get_id’, Did you mean 'getwd'?

​  names(x) <- get_id(emails)
              ^~~~~~

R/get.R:136:1: style: Lines should not be more than 80 characters.

​#' @param emails list of email contents, as returned by \code{\link{load_emails}}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/get.R:154:1: style: Variable or function name should be snake_case.

​get_subject.rodham = function(emails) {
^~~~~~~~~~~~~~~~~~

R/get.R:154:20: style: Use <-, not =, for assignment.

​get_subject.rodham = function(emails) {
                   ^

R/get.R:158:10: warning: no visible global function definition for β€˜get_id’, Did you mean 'getwd'?

​  ids <- get_id(emails)
         ^~~~~~

R/get.R:167:1: style: Lines should not be more than 80 characters.

​#' @param emails list of email contents, as returned by \code{\link{load_emails}}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/get.R:185:1: style: Variable or function name should be snake_case.

​get_interest.rodham = function(emails) {
^~~~~~~~~~~~~~~~~~~

R/get.R:185:21: style: Use <-, not =, for assignment.

​get_interest.rodham = function(emails) {
                    ^

R/get.R:192:10: warning: no visible global function definition for β€˜get_id’, Did you mean 'getwd'?

​  ids <- get_id(emails)
         ^~~~~~

R/get.R:193:1: style: Lines should not be more than 80 characters.

​  data.frame(emails = ids, interesting = x, not_interesting = y, row.names = 1:length(x))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/get.R:201:1: style: Lines should not be more than 80 characters.

​#' @param emails list of email contents, as returned by \code{\link{load_emails}}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/get.R:219:1: style: Variable or function name should be snake_case.

​get_id.rodham = function(emails) {
^~~~~~~~~~~~~

R/get.R:219:15: style: Use <-, not =, for assignment.

​get_id.rodham = function(emails) {
              ^

R/hrcnames.R:3:1: style: Lines should not be more than 80 characters.

​#' List that pairs sender and recipient names provided by the State Department website
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/hrcnames.R:13:1: style: Lines should not be more than 80 characters.

​#' @source \url{https://github.com/wsjdata/clinton-email-cruncher/blob/master/HRCEMAIL_names.csv}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/load.R:36:3: warning: no visible global function definition for β€˜constructEmails’

​  constructEmails(dir, files)
  ^~~~~~~~~~~~~~~

R/load.R:52:1: style: Lines should not be more than 80 characters.

​#' @return A two-column \code{tibble} with emails document id in one column (\code{emails}) and the email \code{content} in another.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/rodham.R:6:1: style: Lines should not be more than 80 characters.

​#'  \item{hrc_names: }{list that pairs sender and recipient names provided by the State Department website}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/search.R:38:26: style: Opening curly braces should never go on their own line and should always be followed by a new line.

​  if (internal == FALSE) { # encode subject if fetching from WSJ
                         ^

R/search.R:42:1: style: Lines should not be more than 80 characters.

​    uri <- paste0("http://graphics.wsj.com/hillary-clinton-email-documents/api/",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/search.R:59:63: style: Commas should always have a space after.

​      emails <- emails[grep(toupper(subject), emails$subject),]
                                                              ^

R/search.R:62:40: style: Commas should always have a space after.

​      emails <- emails[emails$to == to,]
                                       ^

R/search.R:65:44: style: Commas should always have a space after.

​      emails <- emails[emails$from == from,]
                                           ^

R/search.R:68:57: style: Commas should always have a space after.

​      emails <- emails[emails$docDate <= as.Date(start),]
                                                        ^

R/search.R:71:55: style: Commas should always have a space after.

​      emails <- emails[emails$docDate >= as.Date(end),]
                                                      ^

R/utils.R:7:1: style: Variable or function name should be snake_case.

​checkRelease <- function(x){
^~~~~~~~~~~~

R/utils.R:10:16: warning: no visible binding for global variable β€˜db’, Did you mean 'df'?

​    release <- db[db$name == x, "uri"]
               ^~

R/utils.R:10:16: warning: no visible binding for global variable β€˜db’, Did you mean 'df'?

​    release <- db[db$name == x, "uri"]
               ^~

R/utils.R:12:12: style: Place a space before left parenthesis, except in a function call.

​  } else if(!x %in% db$name && length(x) == 1) {
           ^

R/utils.R:13:19: warning: no visible binding for global variable β€˜db’, Did you mean 'df'?

​    msg <- paste0(db$name, collapse = ", ")
                  ^~

R/utils.R:20:1: style: Variable or function name should be snake_case.

​OStoURI <- function(x){
^~~~~~~

R/utils.R:21:5: style: Place a space before left parenthesis, except in a function call.

​  if(x == "Windows"){
    ^

R/utils.R:27:12: style: Place a space before left parenthesis, except in a function call.

​  } else if(x == "Darwin") {
           ^

R/utils.R:39:5: style: Place a space before left parenthesis, except in a function call.

​  if(length(temp_zip[grep("tar.gz", temp_zip)])){
    ^

R/utils.R:41:12: style: Place a space before left parenthesis, except in a function call.

​  } else if(length(temp_zip[grep("zip", temp_zip)])){
           ^

R/utils.R:46:1: style: Variable or function name should be snake_case.

​OS2folder <- function(x){
^~~~~~~~~

R/utils.R:47:5: style: Place a space before left parenthesis, except in a function call.

​  if(x == "Windows"){
    ^

R/utils.R:51:12: style: Place a space before left parenthesis, except in a function call.

​  } else if(x == "Darwin") {
           ^

R/utils.R:58:1: style: Variable or function name should be snake_case.

​checkOS <- function(os, dest){
^~~~~~~

R/utils.R:60:5: style: Place a space before left parenthesis, except in a function call.

​  if(os == "Windows" && !dest %in% "C:/"){
    ^

R/utils.R:62:10: style: Place a space before left parenthesis, except in a function call.

​    while(!tolower(x) %in% c("y", "n")){
         ^

R/utils.R:64:1: style: Lines should not be more than 80 characters.

​                                   dest, "drive. It is adviced to install it in",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/utils.R:65:1: style: Lines should not be more than 80 characters.

​                                   "C:/ (even on 64 bit) \nProceed anyway? [y/n]\n"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/utils.R:67:7: style: Place a space before left parenthesis, except in a function call.

​    if(tolower(x) != "y") stop("Change dest directory", call. = FALSE)
      ^

R/utils.R:70:5: style: Place a space before left parenthesis, except in a function call.

​  if(os == "mac"){
    ^

R/utils.R:72:10: style: Place a space before left parenthesis, except in a function call.

​    while(!tolower(x) %in% c("y", "n")){
         ^

R/utils.R:74:1: style: Lines should not be more than 80 characters.

​                                   "get_xpdf has not been tested on your OS, would you like to continue anyway?"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/utils.R:76:7: style: Place a space before left parenthesis, except in a function call.

​    if(tolower(x) != "y") stop("Change dest directory", call. = FALSE)
      ^

R/utils.R:82:20: style: Only use double-quotes.

​  os <- Sys.info()['sysname'] # get os
                   ^~~~~~~~~

R/utils.R:83:5: style: Place a space before left parenthesis, except in a function call.

​  if(os == "Linux"){
    ^

R/utils.R:85:10: style: Place a space before left parenthesis, except in a function call.

​    while(!tolower(x) %in% c("y", "n")){
         ^

R/utils.R:87:1: style: Lines should not be more than 80 characters.

​                                    "get_emails makes use of the tmp folder which by defaults requires root access, ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/utils.R:91:7: style: Place a space before left parenthesis, except in a function call.

​    if(tolower(x) != "y") stop("Download manually", call. = FALSE)
      ^

R/utils.R:95:1: style: Variable or function name should be snake_case.

​constructEmails <- function(dir, files){
^~~~~~~~~~~~~~~

R/utils.R:98:1: style: Lines should not be more than 80 characters.

​    x <- scan(paste0(dir, "/", files[[x]]), what="", sep="\n", blank.lines.skip = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

R/utils.R:98:49: style: Put spaces around all infix operators.

​    x <- scan(paste0(dir, "/", files[[x]]), what="", sep="\n", blank.lines.skip = TRUE)
                                               ~^~

R/utils.R:98:57: style: Put spaces around all infix operators.

​    x <- scan(paste0(dir, "/", files[[x]]), what="", sep="\n", blank.lines.skip = TRUE)
                                                       ~^~

R/utils.R:106:15: warning: no visible binding for global variable β€˜emails’, Did you mean 'emacs'?

​  metadata <- emails[emails$docID %in% ids, ] # metadata
              ^~~~~~

R/utils.R:106:15: warning: no visible binding for global variable β€˜emails’, Did you mean 'emacs'?

​  metadata <- emails[emails$docID %in% ids, ] # metadata
              ^~~~~~

R/utils.R:107:45: warning: no visible binding for global variable β€˜docID’

​  metadata <- metadata[with(metadata, order(docID)), ]
                                            ^~~~~

tests/testthat/test_all.R:27:1: style: Lines should not be more than 80 characters.

​                                                        docDate = "2014-08-12", to = "", from = "", originalTo = "",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:28:1: style: Lines should not be more than 80 characters.

​                                                        originalFrom = "", subject = "DRAFT AGENDA FOR 34TH ANNUAL COLP CONFERENCE APRIL 19.DOC",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:29:1: style: Lines should not be more than 80 characters.

​                                                        interesting = NA_character_, not_interesting = NA_character_,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:30:1: style: Lines should not be more than 80 characters.

​                                                        content = c("UNCLASSIFIED U.S. Department of State Case No. F-2014-20439 Doc No. C05765907 Date: 08/31/2015",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:31:1: style: Lines should not be more than 80 characters.

​                                                                    "From: Sent: To: Subject:", "Sullivan, Jacob J <SullivanJJ@state.gov> Friday, December 4, 2009 3:31 AM",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:32:1: style: Lines should not be more than 80 characters.

​                                                                    "Iran", "RELEASE IN PART B5", "The EU meets in the coming days, and we are hoping for a strong public - and private - position on Iran. Bill has identified 5 countries that need touching to help drive a good outcome:",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:33:1: style: Lines should not be more than 80 characters.

​                                                                    "I know Huma has discussed with you, but a 2-minute discussion with each that underscores the key points reflected on your card would do the trick, if you can swing it.",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:34:1: style: Lines should not be more than 80 characters.

​                                                                    "Tx. Also, the intervention, with your modifications, turned out well. The process, in this case, did not generate a good β€’ enough product -- I tried to make it clearer and stronger this morning and your amendments helped a lot.",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:35:1: style: Lines should not be more than 80 characters.

​                                                                    "UNCLASSIFIED U.S. Department of State Case No. F-2014-20439 Doc No. C05765907 Date: 08/31/2015"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:36:1: style: Lines should not be more than 80 characters.

​                                                        )), .Names = c("docID", "docDate", "to", "from", "originalTo",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:37:1: style: Lines should not be more than 80 characters.

​                                                                       "originalFrom", "subject", "interesting", "not_interesting",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:38:1: style: Lines should not be more than 80 characters.

​                                                                       "content")), C05765911 = structure(list(docID = "C05778466",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:39:1: style: Lines should not be more than 80 characters.

​                                                                                                               docDate = "2012-12-17", to = "Hillary Clinton", from = "Melanne Verveer",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:40:1: style: Lines should not be more than 80 characters.

​                                                                                                               originalTo = "H", originalFrom = "PVerveer", subject = "FROM ",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:41:1: style: Lines should not be more than 80 characters.

​                                                                                                               interesting = NA_character_, not_interesting = NA_character_,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:42:1: style: Lines should not be more than 80 characters.

​                                                                                                               content = c("UNCLASSIFIED U.S. Department of State Case No. F-2014-20439 Doc No. C05765911 Date: 08/31/2015",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:43:1: style: Lines should not be more than 80 characters.

​                                                                                                                           "From: Sent: To: Subject:", "Mills, Cheryl D <MillsCD@state.gov> Friday, December 4, 2009 9:35 AM H FW: Frm SecState Trip to Middle East",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:44:1: style: Lines should not be more than 80 characters.

​                                                                                                                           "RELEASE IN PART B6", "From: Macmanus, Joseph E Sent: Friday, December 04, 2009 9:09 AM To: Mills, Cheryl D; Abedin, Huma; Burns, William J; Kennedy, Patrick F; Boswell, Eric J,. Feltman, Jeffrey D Subject: Frm SecState Trip to Middle East",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:45:1: style: Lines should not be more than 80 characters.

​                                                                                                                           "From: Colby Cooper [mailto Sent: Friday, December 04, 2009 8:56 AM To: Macmanus, Joseph E Cc: Anne Lyons; Colby Cooper Subject: CR Trip to Middle East",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:46:1: style: Lines should not be more than 80 characters.

​                                                                                                                           "Joe -", "Just wanted to give you a heads-up that former Secretary Rice will be traveling to the UAE and Saudi Arabia December 11-14. This is purely a business trip, as you can expect she may conduct courtesy calls with government officials. The desk and Posts have been notified as a courtesy. I have direct contact with the RSOs as a contingency. Security and Transportation, at their insistence, are being provided by the host countries.",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:47:1: style: Lines should not be more than 80 characters.

​                                                                                                                           "Hope all is well.", "Best, Colby", "Colby J. Cooper Email: Phone: Fax: (251) 928-0271 Cell:",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:48:1: style: Lines should not be more than 80 characters.

​                                                                                                                           "UNCLASSIFIED U.S. Department of State Case No. F-2014-20439 Doc No. C05765911 Date: 08/31/2015"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:49:1: style: Lines should not be more than 80 characters.

​                                                                                                               )), .Names = c("docID", "docDate", "to", "from", "originalTo",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:50:1: style: Lines should not be more than 80 characters.

​                                                                                                                              "originalFrom", "subject", "interesting", "not_interesting",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

tests/testthat/test_all.R:51:1: style: Lines should not be more than 80 characters.

​                                                                                                                              "content"))), .Names = c("C05765907", "C05765911"), class = "rodham")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Please sign in to comment.