R/export.R

In arnima-github/arni: Arni's Toolbox

#' Export Data
#'
#' Print object without quotes or row names.
#'
#' @param x a vector, matrix, table, or data frame.
#'
#' @return Data frame representation of \code{x}.
#'
#' @note
#' Useful for copying data from the console to a text editor or spreadsheet
#' without \verb{[1,]} indicators.
#'
#' @export

export <- function(x)
{
  if(is.null(dim(x)))
    x <- data.frame(" "=x, check.names=FALSE)
  if(is.matrix(x))
    x <- as.data.frame(x)
  if(is.table(x))
    x <- as.data.frame(unclass(x))

  print(x, right=FALSE, row.names=FALSE)
  invisible(x)
}