1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
#' @title Return or remove variables or observations that are completely missing
#' @name remove_empty
#' @rdname remove_empty
#'
#' @description
#'
#' These functions check which rows or columns of a data frame completely
#' contain missing values, i.e. which observations or variables completely have
#' missing values, and either (1) returns their indices; or (2) removes them
#' from the data frame.
#'
#' @param x A data frame.
#'
#' @return
#'
#' - For `empty_columns()` and `empty_rows()`, a numeric (named) vector with row
#' or column indices of those variables that completely have missing values.
#'
#' - For `remove_empty_columns()` and `remove_empty_rows()`, a data frame with
#' "empty" columns or rows removed, respectively.
#'
#' - For `remove_empty()`, **both** empty rows and columns will be removed.
#'
#' @details For character vectors, empty string values (i.e. `""`) are also
#' considered as missing value. Thus, if a character vector only contains `NA`
#' and `""``, it is considered as empty variable and will be removed. Same
#' applies to observations (rows) that only contain `NA` or `""`.
#'
#' @examples
#' tmp <- data.frame(
#' a = c(1, 2, 3, NA, 5),
#' b = c(1, NA, 3, NA, 5),
#' c = c(NA, NA, NA, NA, NA),
#' d = c(1, NA, 3, NA, 5)
#' )
#'
#' tmp
#'
#' # indices of empty columns or rows
#' empty_columns(tmp)
#' empty_rows(tmp)
#'
#' # remove empty columns or rows
#' remove_empty_columns(tmp)
#' remove_empty_rows(tmp)
#'
#' # remove empty columns and rows
#' remove_empty(tmp)
#'
#' # also remove "empty" character vectors
#' tmp <- data.frame(
#' a = c(1, 2, 3, NA, 5),
#' b = c(1, NA, 3, NA, 5),
#' c = c("", "", "", "", ""),
#' stringsAsFactors = FALSE
#' )
#' empty_columns(tmp)
#'
#' @export
empty_columns <- function(x) {
if ((!is.matrix(x) && !is.data.frame(x)) || ncol(x) < 2) {
vector("numeric")
} else {
all_na <- colSums(is.na(x)) == nrow(x)
all_empty <- vapply(x, function(i) {
(is.character(i) || is.factor(i)) && !any(nzchar(as.character(i[!is.na(i)])))
}, FUN.VALUE = logical(1L))
which(all_na | all_empty)
}
}
#' @rdname remove_empty
#' @export
empty_rows <- function(x) {
if ((!is.matrix(x) && !is.data.frame(x)) || nrow(x) < 2) {
vector("numeric")
} else {
which(rowSums((is.na(x) | x == "")) == ncol(x)) # nolint
}
}
#' @rdname remove_empty
#' @export
remove_empty_columns <- function(x) {
# check if we have any empty columns at all
ec <- empty_columns(x)
# if yes, removing works, else an empty df would be returned
if (length(ec)) {
x <- x[-ec]
}
x
}
#' @rdname remove_empty
#' @export
remove_empty_rows <- function(x) {
# check if we have any empty rows at all
er <- empty_rows(x)
# if yes, removing works, else an empty df would be returned
if (length(er)) {
attr_data <- attributes(x)
x <- x[-er, ]
x <- .replace_attrs(x, attr_data)
}
x
}
#' @rdname remove_empty
#' @export
remove_empty <- function(x) {
x <- remove_empty_rows(x)
x <- remove_empty_columns(x)
x
}
|
