I have a vector closing which shows the closing hours of 7 bars.
closing
closing <- c("06:00","01:00","05:00","02:0