shide

Codecov test coverage R-CMD-check

Overview

shide is an R package that provides date and date-time support based on Jalali calendar. jdate and jdatetime are two simple classes for storing Jalali dates and date-times respectively. These classes are implemented based on the infrastructure provided by the vctrs package.

Installation

You can install shide from CRAN with:

install.packages("shide")

Or you can install the development version from GitHub:

# install.packages("devtools")
devtools::install_github("mmollayi/shide")

Features

Usage

As with Date class, a jdate object can be generated from character and numeric vectors and also from individual components. To parse a character vector that represents Jalali dates, use jdate() and supply a format string:

library(shide)

jdate("1402-09-13")
#> <jdate[1]>
#> [1] "1402-09-13"
jdate("1402/09/13", format = "%Y/%m/%d")
#> <jdate[1]>
#> [1] "1402-09-13"

Unlike as.Date(), jdate() method for numeric inputs does not expose origin argument.

# Jalali date that corresponds to "1970-01-01"
jdate(0)
#> <jdate[1]>
#> [1] "1348-10-11"

To create a jdate from individual components, use jdate_make():

jdate_make(1399, 12 ,30)
#> <jdate[1]>
#> [1] "1399-12-30"

Like jdate a jdatetime object can be generated from a character or numeric vector or from individual components. But a timezone should be supplied in either case:

jdatetime("1402-09-13 15:37:29", tzone = "Asia/Tehran")
#> <jdatetime<Asia/Tehran>[1]>
#> [1] "1402-09-13 15:37:29 +0330"
jdatetime("1402/09/13 15:37:29", tzone = "Asia/Tehran", format = "%Y/%m/%d %H:%M:%S")
#> <jdatetime<Asia/Tehran>[1]>
#> [1] "1402-09-13 15:37:29 +0330"

# Jalali date-time that corresponds to Unix epoch
jdatetime(0, tzone ="Asia/Tehran")
#> <jdatetime<Asia/Tehran>[1]>
#> [1] "1348-10-11 03:30:00 +0330"

jdatetime_make(1399, 12 ,30, 23, 59, 59, "Asia/Tehran")
#> <jdatetime<Asia/Tehran>[1]>
#> [1] "1399-12-30 23:59:59 +0330"

Converting other date and date-time classes to jdate and jdatetime is possible with as_jdate() and as_jdatetime() respectively:

as_jdate(as.Date("2024-07-19"))
#> <jdate[1]>
#> [1] "1403-04-29"
as_jdatetime(as.POSIXct("2024-07-19 16:25:00", tz = "Asia/Tehran"))
#> <jdatetime<Asia/Tehran>[1]>
#> [1] "1403-04-29 16:25:00 +0330"