create herbarium format dates for specimens — date

this function will return up to two additional columns with x. 'coll_date_text' a text format for the date of collection and 'det_date_text" a shorter text format date for identification

Usage

date_parser(x, coll_date, det_date)

Arguments

x: an (sf/tibble/) data frame with both the collection date and determination date
coll_date: date of collection, expected to be of the format 'MM/DD/YYYY', minor checks for compliance to the format will be carried out before returning an error.
det_date: date of determination, same format and processes as above.

Value

original data frame plus: x_dmy, x_day, x_month, x_year, x_text, det_date_text, columns for both parameters which are supplied as inputs

Examples

first50dates <- data.frame(
   collection_date = paste0(
   sample(3:9, size = 10, replace = TRUE), '-',
   sample(1:29, size = 10, replace  = TRUE), '-',
   rep(2023, times = 10 )))
dates <- date_parser(first50dates, coll_date = 'collection_date')
head(dates)
#>   collection_date collection_date_ymd collection_date_day collection_date_mo
#> 1        9-5-2023          2023-09-05                   5                  9
#> 2        3-8-2023          2023-03-08                   8                  3
#> 3        8-1-2023          2023-08-01                   1                  8
#> 4       4-12-2023          2023-04-12                  12                  4
#> 5       5-19-2023          2023-05-19                  19                  5
#> 6       8-28-2023          2023-08-28                  28                  8
#>   collection_date_yr collection_date_text
#> 1               2023          5 Sep, 2023
#> 2               2023          8 Mar, 2023
#> 3               2023          1 Aug, 2023
#> 4               2023         12 Apr, 2023
#> 5               2023         19 May, 2023
#> 6               2023         28 Aug, 2023