`.extract_surv_time()` should return 1-row tibble for single observation with interval or counting censoring

[hfrick]

It currently returns a vector instead of the 1-row tibble.

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])
#> time1 time2 
#>     1     1
parsnip:::.extract_surv_time(count_c[1])
#> start  stop 
#>     1   100

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

[github-actions]

This issue 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.