Use tidyverse style

Author: JooYoung Seo

R/merge_mbox_all.R

@@ -38,17 +38,17 @@ merge_mbox_all <-
   function(path = ".", file = NULL) { # Function starts:
 
     if (length(list.files(path, pattern = "(*.mbox)$")) > 0) {
-#      if (path != ".") {
-#        current_wd <- getwd()
-#        setwd(path)
-#      }
+      #      if (path != ".") {
+      #        current_wd <- getwd()
+      #        setwd(path)
+      #      }
 
       multi_mbox <- list.files(path, pattern = "(*.mbox)$") %>%
         purrr::map_df(~ mboxr::read_mbox(.))
 
-#      if (path != ".") {
-#        setwd(current_wd)
-#      }
+      #      if (path != ".") {
+      #        setwd(current_wd)
+      #      }
 
       if (!is.null(file)) {
         fileExt <- tolower(tools::file_ext(file))
@@ -61,7 +61,7 @@ merge_mbox_all <-
         }
       }
 
-class(multi_mbox) <- c("mbox_df", class(multi_mbox))
+      class(multi_mbox) <- c("mbox_df", class(multi_mbox))
       return(multi_mbox)
     } else {
       stop("No mbox file is found in the current directory.")

R/preprocessing.R

@@ -3,12 +3,11 @@
 
 # Remove carriage return and trim white spaces in subject line
 trim_subject <- function(mbox_df) {
-if(!inherits(mbox_df, "mbox_df")) {
-stop("You need an mbox_df object for this function: Convert your mbox file through `read_mbox()` first.")
-}
+  if (!inherits(mbox_df, "mbox_df")) {
+    stop("You need an mbox_df object for this function: Convert your mbox file through `read_mbox()` first.")
+  }
 
-mbox_df %>%
-dplyr::mutate(subject = stringr::str_replace_all(string = subject, pattern = "[[:cntrl:]]+", replacement = " ")) %>%
-dplyr::mutate(subject = stringr::str_replace_all(string = subject, pattern = "[[:space:]]+", replacement = " "))
+  mbox_df %>%
+    dplyr::mutate(subject = stringr::str_replace_all(string = subject, pattern = "[[:cntrl:]]+", replacement = " ")) %>%
+    dplyr::mutate(subject = stringr::str_replace_all(string = subject, pattern = "[[:space:]]+", replacement = " "))
 }
-

R/thread.R

@@ -30,23 +30,23 @@
 #' @author Soyoung Choi, \email{[email protected]}
 
 num_thread <- function(mbox_df) {
-if(!inherits(mbox_df, "mbox_df")) {
-stop("You need an mbox_df object for this function: Convert your mbox file through `read_mbox()` first.")
-}
+  if (!inherits(mbox_df, "mbox_df")) {
+    stop("You need an mbox_df object for this function: Convert your mbox file through `read_mbox()` first.")
+  }
 
   mbox_df %>%
-is_thread() %>%
-sum(., na.rm = TRUE)
+    is_thread() %>%
+    sum(., na.rm = TRUE)
 }
 
 
 #' @rdname num_thread
 #' @export
 
 is_thread <- function(mbox_df) {
-if(!inherits(mbox_df, "mbox_df")) {
-stop("You need an mbox_df object for this function: Convert your mbox file through `read_mbox()` first.")
-}
+  if (!inherits(mbox_df, "mbox_df")) {
+    stop("You need an mbox_df object for this function: Convert your mbox file through `read_mbox()` first.")
+  }
 
   mbox_df$num_discussants > 1
 }