admiral (version 1.3.0)

adjust_last_day_imputation: Adjust Last Day Imputation

Description

This functions adjusts the day of the imputed date to the last day the month if the day was imputed. It should be called if date_imputation = "last" was used for the date imputation as get_imputation_target_date() imputes the last day as "28".

Usage

adjust_last_day_imputation(imputed_dtc, partial)

Value

A character vector of adjusted date/datetime strings.

Arguments

imputed_dtc

A character vector of imputed date/datetime strings.

Default value

none

partial

A list of partial date/time components.

Default value

none

Details

If the day component in partial is missing, the day (in imputed_dtc) is adjusted to the last day of the month.

Examples

# Adjust last day imputation for a date with an incomplete day
imputed_date <- "2021-03-28"
partial_date <- list(year = "2021", month = "03", day = NA_character_)
admiral:::adjust_last_day_imputation(imputed_date, partial_date)

# Adjust last day imputation for a datetime with missing day
imputed_datetime <- "2021-03-28T00:00:00"
partial_datetime <- list(
  year = "2021", month = "03", day = NA_character_,
  hour = "00", minute = "00", second = "00"
)
admiral:::adjust_last_day_imputation(imputed_datetime, partial_datetime)

# Adjust last day imputation for a date with known day
partial_date_known_day <- list(year = "2021", month = "03", day = "15")
adjusted_date_known_day <- admiral:::adjust_last_day_imputation(
  imputed_date,
  partial_date_known_day
)
print(adjusted_date_known_day)

# Adjust last day imputation for a datetime with known day
partial_datetime_known_day <- list(
  year = "2021", month = "03", day = "15",
  hour = "00", minute = "00", second = "00"
)
adjusted_datetime_known_day <- admiral:::adjust_last_day_imputation(
  imputed_datetime,
  partial_datetime_known_day
)
print(adjusted_datetime_known_day)