R/xg_inspect.R

Defines functions xg_inspect

Documented in xg_inspect

#' Unzip, linkify, and browse an xlsx file
#'
#' @inheritParams xg_unzip
#'
#' @return Path to the directory being browsed, invisibly.
#' @export
#'
#' @examples
#' file.copy(xg_example("datasets"), "datasets.xlsx")
#' xg_inspect("datasets.xlsx")
#'
#' ## clean up
#' unlink("datasets", recursive = TRUE)
#' file.remove("datasets.xlsx")
xg_inspect <- function(path, exdir = NULL) {
  path %>%
    xg_unzip(exdir = exdir) %>%
    xg_linkify() %>%
    xg_browse()
}
jennybc/excelgesis documentation built on Dec. 16, 2018, 11:20 a.m.