R/view_in_spreadsheet.R

In maxbre/myRfuns: My R collection of handy functions

#' View a dataset in default spreadsheet
#'
#' View a dataset in default spreadsheet,
#' taken and slightly adapted from:
#' https://twitter.com/brodriguesco/status/1447468259725434886?s=20
#'
#' @param .data a dataset
#' @return nothing
#' @export
#' @examples
#' mtcars |>
#' view_in_spreadsheet() |>
#' dplyr::select(1:2)
#'
#' library(magrittr)
#' mtcars %>%
#' view_in_spreadsheet()%>%
#' dplyr::select(1:2)
#'

view_in_spreadsheet <- function(.data) {

  if (interactive()) {
    tmp <- tempfile(fileext = ".csv")
    readr::write_excel_csv(.data, tmp)
    fs::file_show(tmp)
    }

  invisible(.data) # for eventually continue with piping
}