for chisq.test, convert count data to matrix with tidyverse

chisq.test.by.tidy.R

library(tidyverse)
tidyToChisq <- function(data, col, row) {
  return(
    data %>% group_by_(col, row) %>% 
    summarise(count = n()) %>% spread(row, count, fill = 0) %>% 
    ungroup() %>% select(-starts_with(col)) %>% as.matrix() %>% chisq.test())
}

chisq.test()のオプション類はデフォルト値で。引数で指定するオプションがない簡易版。