na_pad <- function()

in R/ad_data.R [179:184]

• 6 lines of code
• 2 McCabe index (conditional complexity)

na_pad <- function(x) {
  if (length(x) == 0) {
    return(NA)
  }
  x
}