R/helpfunctions.R

Defines functions get_dot_data

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


#' @importFrom tibble glimpse
#' @export
tibble::glimpse


#' @importFrom dplyr quos select
get_dot_data <- function(x, qs) {
  if (sjmisc::is_empty(qs))
    x
  else
    suppressMessages(dplyr::select(x, !!!qs))
}
strengejacke/sjmisc documentation built on June 18, 2018, 3 a.m.