R dtplyr drop_na.dtplyr_step 刪除包含缺失值的行

# S3 method for dtplyr_step
drop_na(data, ...)

library(dplyr)
library(tidyr)

dt <- lazy_dt(tibble(x = c(1, 2, NA), y = c("a", NA, "b")))
dt %>% drop_na()
#> Source: local data table [1 x 2]
#> Call:   na.omit(`_DT8`)
#> 
#>       x y    
#>   <dbl> <chr>
#> 1     1 a    
#> 
#> # Use as.data.table()/as.data.frame()/as_tibble() to access results
dt %>% drop_na(x)
#> Source: local data table [2 x 2]
#> Call:   na.omit(`_DT8`, cols = "x")
#> 
#>       x y    
#>   <dbl> <chr>
#> 1     1 a    
#> 2     2 NA   
#> 
#> # Use as.data.table()/as.data.frame()/as_tibble() to access results

vars <- "y"
dt %>% drop_na(x, any_of(vars))
#> Source: local data table [1 x 2]
#> Call:   na.omit(`_DT8`, cols = c("x", "y"))
#> 
#>       x y    
#>   <dbl> <chr>
#> 1     1 a    
#> 
#> # Use as.data.table()/as.data.frame()/as_tibble() to access results