## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----setup--------------------------------------------------------------------
library(unexcel)

## -----------------------------------------------------------------------------
excel_origin("1900")
as.Date(45746, origin = excel_origin("1900"))

## -----------------------------------------------------------------------------
excel_origin("1904")

## -----------------------------------------------------------------------------
as.numeric(excel_origin("1904") - excel_origin("1900"))

## -----------------------------------------------------------------------------
serial_to_day_month(44284, date_system = "1900")
serial_to_day_month(44284, date_system = "1904")

## -----------------------------------------------------------------------------
excel_date_system(system.file("extdata", "legacy-1904.xlsx", package = "unexcel"))

## -----------------------------------------------------------------------------
path <- system.file("extdata", "typed-numbers.xlsx", package = "unexcel")
excel_date_columns(path)

## -----------------------------------------------------------------------------
unexcel_xlsx(path)[, c("dose", "visit")]

## -----------------------------------------------------------------------------
unexcel_xlsx(path, output = "character")$dose