Remove all empty columns on the right end of a data set.
Source:R/data-management.R
remove_right_empty_cols.RdThis function will drop empty columns at the far right of a data set. This is useful when you import data and get empty columns on the right that shouldn't be there. This function only removes empty columns on the right - it doesn't remove empty columns anywhere else.
Examples
data <- data.frame(
col1 = sample(1:100, 100, replace = TRUE),
col2 = NA,
col3 = runif(100),
col4 = sample(c("blue", "green", "yellow", "orange"), 100, replace = TRUE),
col5 = NA,
col6 = NA)
remove_right_empty_cols(data)
#> col1 col2 col3 col4
#> 1 34 NA 0.464013567 green
#> 2 35 NA 0.917660507 blue
#> 3 89 NA 0.972844218 blue
#> 4 86 NA 0.819082447 yellow
#> 5 43 NA 0.902923798 blue
#> 6 7 NA 0.581366044 orange
#> 7 32 NA 0.773008481 yellow
#> 8 53 NA 0.995123026 orange
#> 9 70 NA 0.710971250 yellow
#> 10 9 NA 0.214942596 yellow
#> 11 22 NA 0.291757630 orange
#> 12 10 NA 0.721759729 orange
#> 13 32 NA 0.866615703 yellow
#> 14 34 NA 0.238453106 blue
#> 15 17 NA 0.004496308 orange
#> 16 52 NA 0.943516464 blue
#> 17 56 NA 0.438137200 blue
#> 18 22 NA 0.750603328 blue
#> 19 95 NA 0.667815764 green
#> 20 1 NA 0.407973201 yellow
#> 21 70 NA 0.351248815 yellow
#> 22 34 NA 0.738091561 orange
#> 23 51 NA 0.664285493 green
#> 24 46 NA 0.085224700 yellow
#> 25 65 NA 0.856132157 orange
#> 26 25 NA 0.076983322 green
#> 27 37 NA 0.852844803 yellow
#> 28 8 NA 0.106346961 green
#> 29 33 NA 0.484802824 yellow
#> 30 96 NA 0.247219110 green
#> 31 83 NA 0.686569211 green
#> 32 92 NA 0.163623198 green
#> 33 28 NA 0.952824800 green
#> 34 48 NA 0.321854551 green
#> 35 75 NA 0.361534117 blue
#> 36 90 NA 0.887723417 yellow
#> 37 35 NA 0.828014418 orange
#> 38 2 NA 0.100656458 green
#> 39 87 NA 0.906051578 green
#> 40 3 NA 0.772730364 green
#> 41 38 NA 0.383370670 blue
#> 42 68 NA 0.999652457 blue
#> 43 65 NA 0.349299049 green
#> 44 6 NA 0.947318266 yellow
#> 45 22 NA 0.216099976 blue
#> 46 19 NA 0.032092709 orange
#> 47 2 NA 0.145315843 orange
#> 48 64 NA 0.854383888 green
#> 49 40 NA 0.213149311 green
#> 50 65 NA 0.210310738 orange
#> 51 28 NA 0.039520690 green
#> 52 97 NA 0.944774803 orange
#> 53 71 NA 0.244927987 yellow
#> 54 12 NA 0.781122568 green
#> 55 54 NA 0.288237168 yellow
#> 56 41 NA 0.875357910 yellow
#> 57 42 NA 0.295750094 orange
#> 58 66 NA 0.983525408 orange
#> 59 26 NA 0.589837556 orange
#> 60 60 NA 0.759158380 yellow
#> 61 14 NA 0.836075306 orange
#> 62 5 NA 0.762819470 yellow
#> 63 76 NA 0.417269926 green
#> 64 17 NA 0.138074841 blue
#> 65 13 NA 0.080844962 orange
#> 66 97 NA 0.655982626 green
#> 67 33 NA 0.602003859 yellow
#> 68 77 NA 0.656995830 blue
#> 69 82 NA 0.329317164 orange
#> 70 32 NA 0.979474220 yellow
#> 71 69 NA 0.715186134 orange
#> 72 55 NA 0.872630305 blue
#> 73 11 NA 0.983283747 blue
#> 74 33 NA 0.218562993 blue
#> 75 36 NA 0.664530064 blue
#> 76 7 NA 0.389564038 green
#> 77 23 NA 0.046063639 yellow
#> 78 88 NA 0.616914558 blue
#> 79 34 NA 0.598474994 yellow
#> 80 72 NA 0.406853630 yellow
#> 81 73 NA 0.858328150 green
#> 82 51 NA 0.517681185 orange
#> 83 59 NA 0.979293410 yellow
#> 84 38 NA 0.017015688 blue
#> 85 25 NA 0.673447826 yellow
#> 86 53 NA 0.371269882 blue
#> 87 35 NA 0.918010637 blue
#> 88 45 NA 0.677978095 orange
#> 89 82 NA 0.665152461 green
#> 90 23 NA 0.756041088 green
#> 91 43 NA 0.542837155 yellow
#> 92 4 NA 0.239288098 blue
#> 93 34 NA 0.508893572 green
#> 94 41 NA 0.417264371 green
#> 95 82 NA 0.726948853 yellow
#> 96 94 NA 0.637685552 orange
#> 97 19 NA 0.396409955 green
#> 98 76 NA 0.959482607 orange
#> 99 51 NA 0.298658030 blue
#> 100 17 NA 0.050201166 green
# the function drops `col5` and `col6` but keeps `col3`:
head(data)
#> col1 col2 col3 col4 col5 col6
#> 1 34 NA 0.4640136 green NA NA
#> 2 35 NA 0.9176605 blue NA NA
#> 3 89 NA 0.9728442 blue NA NA
#> 4 86 NA 0.8190824 yellow NA NA
#> 5 43 NA 0.9029238 blue NA NA
#> 6 7 NA 0.5813660 orange NA NA