stri_na2empty

NAMESPACE

@@ -147,6 +147,7 @@ export(stri_match_first)
 export(stri_match_first_regex)
 export(stri_match_last)
 export(stri_match_last_regex)
+export(stri_na2empty)
 export(stri_numbytes)
 export(stri_opts_brkiter)
 export(stri_opts_collator)
@@ -164,6 +165,7 @@ export(stri_rand_shuffle)
 export(stri_rand_strings)
 export(stri_read_lines)
 export(stri_read_raw)
+export(stri_remove_empty)
 export(stri_replace)
 export(stri_replace_all)
 export(stri_replace_all_charclass)

NEWS

@@ -15,6 +15,8 @@ when input was empty.
 
 * [NEW FEATURE] #289: `stri_flatten` gained `na_empty` `omit_empty` arguments.
 
+* [NEW FEATURE] New functions: `stri_remove_empty`, `stri_na2empty`
+
 * [WARN] Removed `-Wparentheses` warnings in `icu55/common/cstring.h:38:63`
 and `icu55/i18n/windtfmt.cpp` in the ICU4C 55.1 bundle.
 

R/utils.R

@@ -1,5 +1,5 @@
 ## This file is part of the 'stringi' package for R.
-## Copyright (c) 2013-2017, Marek Gagolewski and other contributors.
+## Copyright (c) 2013-2018, Marek Gagolewski and other contributors.
 ## All rights reserved.
 ##
 ## Redistribution and use in source and binary forms, with or without
@@ -81,3 +81,52 @@
 stri_list2matrix <- function(x, byrow=FALSE, fill=NA_character_, n_min=0) {
    .Call(C_stri_list2matrix, x, byrow, stri_enc_toutf8(fill), n_min)
 }
+
+
+#' @title
+#' Replace NAs with empty strings
+#'
+#' @description
+#' This function replaces all missing values with empty strings
+#'
+#' @param x a character vector
+#'
+#' @return
+#' Always returns a character vector.
+#'
+#' @examples
+#' stri_na2empty(c("a", NA, "", "b"))
+#'
+#' @family utils
+#' @export
+stri_na2empty <- function(x) {
+   x <- stri_enc_toutf8(x)
+   x[is.na(x)] <- ""
+   x
+}
+
+#' @title
+#' Remove all empty strings from a character vector
+#'
+#' @description
+#' This function removes all empty strings from a character vector.
+#'
+#' @param x a character vector
+#' @param na_empty should missing values be treated as empty strings?
+#'
+#' @return
+#' Always returns a character vector.
+#'
+#' @examples
+#' stri_remove_empty(stri_na2empty(c("a", NA, "", "b")))
+#' stri_remove_empty(c("a", NA, "", "b"))
+#' stri_remove_empty(c("a", NA, "", "b"), TRUE)
+#'
+#' @family utils
+#' @export
+stri_remove_empty <- function(x, na_empty=FALSE) {
+   x <- stri_enc_toutf8(x)
+   if (identical(na_empty, TRUE))
+      x[is.na(x)] <- ""
+   x[!stri_isempty(x)]
+}

src/stri_encoding_conversion.cpp

@@ -1,5 +1,5 @@
 /* This file is part of the 'stringi' package for R.
- * Copyright (c) 2013-2017, Marek Gagolewski and other contributors.
+ * Copyright (c) 2013-2018, Marek Gagolewski and other contributors.
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without