bumped to next version, added code of conduct, ran goodpractice::gp() and made fixes

Author: Tyler Rinker

.Rbuildignore

@@ -23,3 +23,4 @@ inst/maintenance.R
 Thumbs.db
 inst/make_data
 inst/supporting_docs
+^CODE_OF_CONDUCT\.md$

CODE_OF_CONDUCT.md

@@ -0,0 +1,25 @@
+# Contributor Code of Conduct
+
+As contributors and maintainers of this project, we pledge to respect all people who 
+contribute through reporting issues, posting feature requests, updating documentation,
+submitting pull requests or patches, and other activities.
+
+We are committed to making participation in this project a harassment-free experience for
+everyone, regardless of level of experience, gender, gender identity and expression,
+sexual orientation, disability, personal appearance, body size, race, ethnicity, age, or religion.
+
+Examples of unacceptable behavior by participants include the use of sexual language or
+imagery, derogatory comments or personal attacks, trolling, public or private harassment,
+insults, or other unprofessional conduct.
+
+Project maintainers have the right and responsibility to remove, edit, or reject comments,
+commits, code, wiki edits, issues, and other contributions that are not aligned to this 
+Code of Conduct. Project maintainers who do not follow the Code of Conduct may be removed 
+from the project team.
+
+Instances of abusive, harassing, or otherwise unacceptable behavior may be reported by 
+opening an issue or contacting one or more of the project maintainers.
+
+This Code of Conduct is adapted from the Contributor Covenant 
+(http://contributor-covenant.org), version 1.0.0, available at 
+http://contributor-covenant.org/version/1/0/0/

DESCRIPTION

@@ -1,9 +1,12 @@
 Package: textshape
 Title: Tools for Reshaping Text
-Version: 1.5.3
-Authors@R: c(person("Tyler", "Rinker", email = "tyler.rinker@gmail.com", role = c("aut", "cre")), person("Joran",
-             "Elias", role = "ctb"), person("Matthew", "Flickinger", role = "ctb"), person('Paul', 'Foster', role =
-             "ctb"))
+Version: 1.6.0
+Authors@R: c(
+        person("Tyler", "Rinker", email = "tyler.rinker@gmail.com", role = c("aut", "cre")), 
+        person("Joran", "Elias", role = "ctb"), 
+        person("Matthew", "Flickinger", role = "ctb"), 
+        person('Paul', 'Foster', role = "ctb")
+    )
 Maintainer: Tyler Rinker <tyler.rinker@gmail.com>
 Description: Tools that can be used to reshape and restructure text data.
 Depends: R (>= 3.4.0)
@@ -27,7 +30,6 @@ Collate:
     'flatten.R'
     'from_to.R'
     'mtabulate.R'
-    'set_output.R'
     'split_index.R'
     'split_match.R'
     'split_match_regex_to_transcript.R'

NEWS

@@ -17,7 +17,7 @@ And constructed with the following guidelines:
 * Bug fixes and misc changes bumps the patch
 
 
-textshape 1.5.1 -
+textshape 1.5.1 - 1.6.0
 ----------------------------------------------------------------
 
 BUG FIXES
@@ -31,18 +31,13 @@ NEW FEATURES
   using the concatenated list/atomic vector names as the names of the single
   tiered list.
 
-* `unnest_text` added to located and unnest nested text columns in a data.frame.
-
-MINOR FEATURES
+* `unnest_text` added to located and un-nest nested text columns in a data.frame.
 
 IMPROVEMENTS
 
 * `tidy_dtm`/`tidy_tdm` did not order unnamed matrices as expected (e.g.,
   `{1, 2, ..., 1}` was ordered as `{1, 10, 2, ...}`).  This has been corrected.
 
-CHANGES
-
-
 
 
 

NEWS.md

@@ -17,7 +17,7 @@ And constructed with the following guidelines:
 * Bug fixes and misc changes bumps the patch
 
 
-textshape 1.5.1 -
+textshape 1.5.1 - 1.6.0
 ----------------------------------------------------------------
 
 **BUG FIXES**
@@ -31,18 +31,13 @@ textshape 1.5.1 -
   using the concatenated list/atomic vector names as the names of the single
   tiered list.
 
-* `unnest_text` added to located and unnest nested text columns in a data.frame.
-
-**MINOR FEATURES**
+* `unnest_text` added to located and un-nest nested text columns in a data.frame.
 
 **IMPROVEMENTS**
 
 * `tidy_dtm`/`tidy_tdm` did not order unnamed matrices as expected (e.g.,
   `{1, 2, ..., 1}` was ordered as `{1, 10, 2, ...}`).  This has been corrected.
 
-**CHANGES**
-
-
 
 
 

R/bind_list.R

@@ -40,7 +40,14 @@
 #' }
 bind_list <- function(x, id.name= "id", content.name = "content", ...){
 
-    warning("Deprecated, use textshape::tidy_list() instead.", call. = FALSE)
+    warning(
+        paste0(
+            "Deprecated, use textshape::tidy_list() instead.\n`bind_list()` ", 
+            "will be removed in the next version."
+        ), 
+        call. = FALSE
+    )
+
 
     if (is.data.frame(x[[1]])){
         bind_list_df(x = x, id.name = id.name)
@@ -60,7 +67,7 @@ bind_list_df <- function (x, id.name = "id"){
     if (is.null(names(x))) {
         names(x) <- seq_along(x)
     }
-    list.names <- rep(names(x), sapply(x, nrow))
+    list.names <- rep(names(x), sapply2(x, nrow))
     x <- lapply(x, data.table::as.data.table)
     x[['fill']] <- TRUE    
     out <- data.frame(list.names, do.call(rbind, x),
@@ -74,7 +81,7 @@ bind_list_vector <- function(x, id.name= "id", content.name = "content"){
         names(x) <- seq_along(x)
     }
     dat <- data.frame(
-        rep(names(x), sapply(x, length)),
+        rep(names(x), sapply2(x, length)),
         unlist(x, use.names = FALSE),
         stringsAsFactors = FALSE,
         check.names = FALSE,

R/bind_table.R

@@ -18,9 +18,16 @@
 #' }
 bind_table <- function(x, id.name= "id", content.name = "content", ...){
 
-    warning("Deprecated, use textshape::tidy_table() instead.", call. = FALSE)
+    warning(
+        paste0(
+            "Deprecated, use textshape::tidy_table() instead.\n`bind_table()` ", 
+            "will be removed in the next version."
+        ), 
+        call. = FALSE
+    )
 
     stopifnot(is.table(x))
+    
     out <- data.table::data.table(x = names(x), y = unname(c(x)))
     data.table::setnames(out, c(id.name, content.name))
     out

R/bind_vector.R

@@ -18,9 +18,16 @@
 #' }
 bind_vector <- function(x, id.name= "id", content.name = "content", ...){
 
-    warning("Deprecated, use textshape::tidy_vector() instead.", call. = FALSE)
+    warning(
+        paste0(
+            "Deprecated, use textshape::tidy_vector() instead.\n`bind_vector()` ", 
+            "will be removed in the next version."
+        ), 
+        call. = FALSE
+    )
 
     stopifnot(is.atomic(x))
+    
     if (is.null(names)) {
         out <- data.table::as.data.table(x)
         data.table::setnames(out, id.name)

R/change_index.R

@@ -1,12 +1,13 @@
 #' Indexing of Changes in Runs
 #'
-#' Find the indices of changes in runs in a vector.  This function pairs well with
-#' \code{split_index} and is the default for the \code{indices} in all \code{split_index}
-#' functions that act on atomic vectors.
+#' Find the indices of changes in runs in a vector.  This function pairs well 
+#' with \code{split_index} and is the default for the \code{indices} in all 
+#' \code{split_index} functions that act on atomic vectors.
 #'
 #' @param x A vector.
 #' @param \ldots ignored.
-#' @return Returns a vector of integer indices of where a vector initially changes.
+#' @return Returns a vector of integer indices of where a vector initially 
+#' changes.
 #' @export
 #' @seealso \code{\link[textshape]{split_index}}
 #' @examples

R/cluster_matrix.R

@@ -5,7 +5,8 @@
 #' @param x A matrix.
 #' @param dim The dimension to reorder (cluster); must be set to "row", "col", 
 #' or "both".
-#' @param method The agglomeration method to be used (see \code{\link[stats]{hclust}}).
+#' @param method The agglomeration method to be used (see 
+#' \code{\link[stats]{hclust}}).
 #' @param \ldots ignored.
 #' @return Returns a reordered matrix.
 #' @export
@@ -28,7 +29,12 @@
 #'          scale_fill_viridis(name = expression(r[xy])) +
 #'          theme(
 #'              axis.text.y = element_text(size = 8)   ,
-#'              axis.text.x = element_text(size = 8, hjust = 1, vjust = 1, angle = 45),   
+#'              axis.text.x = element_text(
+#'                  size = 8, 
+#'                  hjust = 1, 
+#'                  vjust = 1, 
+#'                  angle = 45
+#'              ),   
 #'              legend.position = 'bottom',
 #'              legend.key.height = grid::unit(.1, 'cm'),
 #'              legend.key.width = grid::unit(.5, 'cm')
@@ -50,7 +56,12 @@
 #'          scale_fill_viridis(name = expression(r[xy])) +
 #'          theme(
 #'              axis.text.y = element_text(size = 8)   ,
-#'              axis.text.x = element_text(size = 8, hjust = 1, vjust = 1, angle = 45),   
+#'              axis.text.x = element_text(
+#'                  size = 8, 
+#'                  hjust = 1, 
+#'                  vjust = 1, 
+#'                  angle = 45
+#'              ),   
 #'              legend.position = 'bottom',
 #'              legend.key.height = grid::unit(.1, 'cm'),
 #'              legend.key.width = grid::unit(.5, 'cm')