Remove the shadow variables (which end in _NA) from the data, or vice versa

unbind_shadow(data)

unbind_data(data)

Arguments

data

a data.frame containing shadow columns (created by bind_shadow)

Value

dataframe without shadow columns if using unbind_shadow, or without the original data, if using unbind_data

Examples

# bind shadow columns aq_sh <- bind_shadow(airquality) # print data aq_sh
#> # A tibble: 153 x 12 #> Ozone Solar.R Wind Temp Month Day Ozone_NA Solar.R_NA Wind_NA Temp_NA #> <int> <int> <dbl> <int> <int> <int> <fct> <fct> <fct> <fct> #> 1 41 190 7.4 67 5 1 !NA !NA !NA !NA #> 2 36 118 8 72 5 2 !NA !NA !NA !NA #> 3 12 149 12.6 74 5 3 !NA !NA !NA !NA #> 4 18 313 11.5 62 5 4 !NA !NA !NA !NA #> 5 NA NA 14.3 56 5 5 NA NA !NA !NA #> 6 28 NA 14.9 66 5 6 !NA NA !NA !NA #> 7 23 299 8.6 65 5 7 !NA !NA !NA !NA #> 8 19 99 13.8 59 5 8 !NA !NA !NA !NA #> 9 8 19 20.1 61 5 9 !NA !NA !NA !NA #> 10 NA 194 8.6 69 5 10 NA !NA !NA !NA #> # ... with 143 more rows, and 2 more variables: Month_NA <fct>, Day_NA <fct>
# remove shadow columns unbind_shadow(aq_sh)
#> # A tibble: 153 x 6 #> Ozone Solar.R Wind Temp Month Day #> <int> <int> <dbl> <int> <int> <int> #> 1 41 190 7.4 67 5 1 #> 2 36 118 8 72 5 2 #> 3 12 149 12.6 74 5 3 #> 4 18 313 11.5 62 5 4 #> 5 NA NA 14.3 56 5 5 #> 6 28 NA 14.9 66 5 6 #> 7 23 299 8.6 65 5 7 #> 8 19 99 13.8 59 5 8 #> 9 8 19 20.1 61 5 9 #> 10 NA 194 8.6 69 5 10 #> # ... with 143 more rows
# remove data unbind_data(aq_sh)
#> # A tibble: 153 x 6 #> Ozone_NA Solar.R_NA Wind_NA Temp_NA Month_NA Day_NA #> <fct> <fct> <fct> <fct> <fct> <fct> #> 1 !NA !NA !NA !NA !NA !NA #> 2 !NA !NA !NA !NA !NA !NA #> 3 !NA !NA !NA !NA !NA !NA #> 4 !NA !NA !NA !NA !NA !NA #> 5 NA NA !NA !NA !NA !NA #> 6 !NA NA !NA !NA !NA !NA #> 7 !NA !NA !NA !NA !NA !NA #> 8 !NA !NA !NA !NA !NA !NA #> 9 !NA !NA !NA !NA !NA !NA #> 10 NA !NA !NA !NA !NA !NA #> # ... with 143 more rows
# errors when you don't use data with shadows
# NOT RUN { unbind_data(airquality) unbind_shadow(airquality) # }