Partition a meeting into evenly distributed sections based on how much time is left between when intros end and the end of the meeting

Usage

meeting_timer(
  start_hms = "17:40:00",
  t4q = lubridate::minutes(10),
  m_length = lubridate::minutes(75),
  sections = 4,
  intros_end = lubridate::now()
)

Arguments

start_hms: chr Meeting start time in 24-hour H:M:S Time format. This is HMS since it's easier to supply this argument in advance of the meeting.
t4q: Duration how long to save for questions/closing remarks at the end
m_length: Duration total length of the meeting
sections: num Number of sections to distribute time
intros_end: Datetime If you know when intros should end in advance, supply it, otherwise this function is intended to to be run when they end for a dynamic calculation of sections

Value

list With:

each_section time allotted to each section
Section X The end time for each section
end The end time

Examples

# If the meeting started 10 minutes ago and the intros just ended
meeting_start_time <- (lubridate::now() - lubridate::minutes(10)) |> as.character() |> stringr::str_extract("\\d{2}:\\d{2}:\\d{2}")
meeting_timer(meeting_start_time)
#> $each_section
#> Time difference of 1.229108 hours
#> 
#> $`Section 1`
#> [1] "2024-05-23 21:36:22 UTC"
#> 
#> $`Section 2`
#> [1] "2024-05-23 22:50:07 UTC"
#> 
#> $`Section 3`
#> [1] "2024-05-24 00:03:52 UTC"
#> 
#> $`Section 4`
#> [1] "2024-05-24 01:17:37 UTC"
#> 
#> $end
#> [1] "2024-05-23 21:27:37 EDT"
#>