# Define starting and ending dates:
start_date <- as.POSIXct("2021-06-01 09:30:00",tz="UTC")
end_date <- as.POSIXct("2023-06-01 20:00:00",tz="UTC")
# Test, should return TRUE
inside_interval(start_date,end_date,"2022-06")
# Test, should return FALSE
inside_interval(start_date,end_date,"2020-06")
Run the code above in your browser using DataLab