ns_to_percents and adorn_crosstab fail on a 2 column data.frame

[sfirke]

dat <- data.frame(Operation = c("Login", "Posted", "Deleted"), `Total Count` = c(5, 25, 40), check.names = FALSE)

dat %>%
  ns_to_percents("row")

dat %>%
  adorn_crosstab()

Error in colSums(dat[, 2:n_col], na.rm = na.rm) :
'x' must be an array of at least two dimensions

I think this is the result of dat[, 2:n_col] returning a vector when n_col = 2. Subsetting with dat[2:n_col] seems to do it.

• Update code
• Check tests, add test
• Check if any other functions might be affected by this