R/helpfunctions.R

Defines functions get_dot_data

#' @importFrom magrittr %>%
#' @export
magrittr::`%>%`


#' @importFrom dplyr quos select
get_dot_data <- function(x, qs) {
  if (sjmisc::is_empty(qs))
    x
  else
    suppressMessages(dplyr::select(x, !!!qs))
}


data_frame <- function(...) {
  x <- data.frame(..., stringsAsFactors = FALSE)
  rownames(x) <- NULL
  x
}
strengejacke/sjmisc documentation built on Aug. 18, 2018, 1:22 p.m.