Error in `hoborange(df_with_na, start = "1910-01-01 00:00", end = "1925-01-01 00:00", na.rm = TRUE)`: Provided dates are out of range

test_that("hoborange subsets data correctly within date range", {
test_that("hoborange handles dates out of range", {
expect_error(hoborange(df, start = "2010-01-01 01:00", end = "2022-01-01 01:00"), "Provided dates are out of range")
test_that("hoborange handles invalid date formats", {
expect_error(hoborange(df, start = "2010-03-01 01:00", end = "1920-01-01 00:00"), "Provided dates are out of range")
expect_error(hoborange(df, start = "1910-01-01 00:00", end = "invalid-date"), "Provided dates are out of range")
test_that("hoborange handles empty data frame", {
empty_df <- data.frame(Date = as.POSIXct(character()), Temperature = numeric())
expect_error(hoborange(empty_df, start = "1910-01-01 00:00", end = "1920-01-01 00:00"), "Provided dates are out of range")
test_that("hoborange handles NA values correctly", {
test_that("hoborange handles single row data frame", {

"hoborange subsets data correctly within date range"
"hoborange handles invalid date formats"
"hoborange handles single row data frame"