make .extract_surv_time() work correctly for 1-row output

[EmilHvitfeldt]

to close #1025

times <- seq(1, 100, length.out = 5)
times2 <- seq(100, 200, length.out = 5)
events <- c(1, 0, 1, 0, 1)

intv_c <- survival::Surv(times, times2, events, type = "interval")
count_c <- survival::Surv(times, times2, events)

parsnip:::.extract_surv_time(intv_c[1])
#> # A tibble: 2 × 1
#>     res
#>   <dbl>
#> 1     1
#> 2     1

parsnip:::.extract_surv_time(count_c[1])
#> # A tibble: 2 × 1
#>     res
#>   <dbl>
#> 1     1
#> 2   100

^{Created on 2023-11-17 with reprex v2.0.2}

[hfrick]

Geez, the reprex had me panic for a moment 😂 but that is not what happen here now!

times <- seq(1, 100, length.out = 5)
times2 <- seq(100, 200, length.out = 5)
events <- c(1, 0, 1, 0, 1)

intv_c <- survival::Surv(times, times2, events, type = "interval")
count_c <- survival::Surv(times, times2, events)

parsnip:::.extract_surv_time(intv_c[1])
#> # A tibble: 1 × 2
#>   time1 time2
#>   <dbl> <dbl>
#> 1     1     1

parsnip:::.extract_surv_time(count_c[1])
#> # A tibble: 1 × 2
#>   start  stop
#>   <dbl> <dbl>
#> 1     1   100

^{Created on 2023-11-20 with reprex v2.0.2}

So, original point still stands: Looks good! Approved! ✅ Could you just add the bump in version number for the tests in tidymodels/extratests#148?

[github-actions]

This pull request has been automatically locked. If you believe you have found a related problem, please file a new issue (with a reprex: https://reprex.tidyverse.org) and link to this issue.