Check if duration is outside of a range
check_duration.RdCheck if value is strictly inferior of the lower threshold or strictly superior of the higher threshold.
Usage
check_duration(
dataset,
column_to_check,
uuid_column = "uuid",
log_name = "duration_log",
lower_bound = 25,
higher_bound = 90
)Arguments
- dataset
a dataset to be check as a dataframe or a list with the dataframe stored as "checked_dataset"
- column_to_check
string character with the name of the duration column
- uuid_column
uuid column in the dataset. Default is uuid.
- log_name
character string with name to give to the log
- lower_bound
lower value of the range (strictly inferior to)
- higher_bound
higher value of the range (strictly superior to)
Value
return a list with the dataset checked stored as checked_dataset and a dataframe with the duration log
Examples
testdata <- data.frame(
uuid = c(letters[1:7]),
duration_audit_start_end_ms = c(
2475353, 375491, 2654267, 311585, 817270,
2789505, 8642007
),
duration_audit_start_end_minutes = c(41, 6, 44, 5, 14, 46, 144)
)
check_duration(testdata,
column_to_check = "duration_audit_start_end_minutes"
)
#> $checked_dataset
#> uuid duration_audit_start_end_ms duration_audit_start_end_minutes
#> 1 a 2475353 41
#> 2 b 375491 6
#> 3 c 2654267 44
#> 4 d 311585 5
#> 5 e 817270 14
#> 6 f 2789505 46
#> 7 g 8642007 144
#>
#> $duration_log
#> uuid old_value question
#> 1 b 6 duration_audit_start_end_minutes
#> 2 d 5 duration_audit_start_end_minutes
#> 3 e 14 duration_audit_start_end_minutes
#> 4 g 144 duration_audit_start_end_minutes
#> issue
#> 1 Duration is lower or higher than the thresholds
#> 2 Duration is lower or higher than the thresholds
#> 3 Duration is lower or higher than the thresholds
#> 4 Duration is lower or higher than the thresholds
#>
check_duration(
testdata,
column_to_check = "duration_audit_start_end_ms",
lower_bound = 375490,
higher_bound = 8642000
)
#> $checked_dataset
#> uuid duration_audit_start_end_ms duration_audit_start_end_minutes
#> 1 a 2475353 41
#> 2 b 375491 6
#> 3 c 2654267 44
#> 4 d 311585 5
#> 5 e 817270 14
#> 6 f 2789505 46
#> 7 g 8642007 144
#>
#> $duration_log
#> uuid old_value question
#> 1 d 311585 duration_audit_start_end_ms
#> 2 g 8642007 duration_audit_start_end_ms
#> issue
#> 1 Duration is lower or higher than the thresholds
#> 2 Duration is lower or higher than the thresholds
#>
testdata %>%
check_duration(column_to_check = "duration_audit_start_end_minutes") %>%
check_duration(
column_to_check = "duration_audit_start_end_ms",
log_name = "duration_in_ms",
lower_bound = 375490,
higher_bound = 8642000
)
#> $checked_dataset
#> uuid duration_audit_start_end_ms duration_audit_start_end_minutes
#> 1 a 2475353 41
#> 2 b 375491 6
#> 3 c 2654267 44
#> 4 d 311585 5
#> 5 e 817270 14
#> 6 f 2789505 46
#> 7 g 8642007 144
#>
#> $duration_log
#> uuid old_value question
#> 1 b 6 duration_audit_start_end_minutes
#> 2 d 5 duration_audit_start_end_minutes
#> 3 e 14 duration_audit_start_end_minutes
#> 4 g 144 duration_audit_start_end_minutes
#> issue
#> 1 Duration is lower or higher than the thresholds
#> 2 Duration is lower or higher than the thresholds
#> 3 Duration is lower or higher than the thresholds
#> 4 Duration is lower or higher than the thresholds
#>
#> $duration_in_ms
#> uuid old_value question
#> 1 d 311585 duration_audit_start_end_ms
#> 2 g 8642007 duration_audit_start_end_ms
#> issue
#> 1 Duration is lower or higher than the thresholds
#> 2 Duration is lower or higher than the thresholds
#>