tests/testthat/_snaps/nice_na.md

nice_na

Code
  nice_na(airquality)
Output
          var items na cells na_percent na_max na_max_percent all_na
  1 Ozone:Day     6 44   918       4.79      2          33.33      0
Code
  nice_na(airquality, vars = list(c("Ozone", "Solar.R", "Wind"), c("Temp",
    "Month", "Day")))
Output
           var items na cells na_percent na_max na_max_percent all_na
  1 Ozone:Wind     3 44   459       9.59      2          66.67      0
  2   Temp:Day     3  0   459       0.00      0           0.00      0
  3      Total     6 44   918       4.79      2          33.33      0
Code
  df <- data.frame(ID = c("idz", NA), scale1_Q1 = fun(), scale1_Q2 = fun(),
  scale1_Q3 = fun(), scale2_Q1 = fun(), scale2_Q2 = fun(), scale2_Q3 = fun(),
  scale3_Q1 = fun(), scale3_Q2 = fun(), scale3_Q3 = fun())
Code
  nice_na(df, scales = c("ID", "scale1", "scale2", "scale3"))
Output
                    var items na cells na_percent na_max na_max_percent all_na
  1               ID:ID     1  7    14      50.00      1            100      7
  2 scale1_Q1:scale1_Q3     3 11    42      26.19      3            100      3
  3 scale2_Q1:scale2_Q3     3 17    42      40.48      3            100      3
  4 scale3_Q1:scale3_Q3     3 10    42      23.81      3            100      3
  5               Total    10 45   140      32.14     10            100      2


RemPsyc/rempsyc documentation built on July 2, 2024, 9:41 p.m.