printing time inputs as words in r

Question

I would like to write some code which takes in a time and outputs the words of that time.

time <-  c("5:00", "5:01", "5:10", "5:15", "5:30", "5:40", "5:45", "5:47", "5:28")
words <- c("five o`clock", "one minute past five",
                    "ten minutes past five", "quarter past five", 
                    "half past five", "twenty minutes to six", "quarter to six", 
                    "thirteen minutes to six", "twenty eight minutes past five")


df <- cbind(time, words)
df

That is for 1 <= 30 minutes use the word "past" and for 30 > "minutes" use to.

I would like to print the time in words for any time format such as the following:

      time   words                           
 [1,] "5:00" "five o`clock"                  
 [2,] "5:01" "one minute past five"          
 [3,] "5:10" "ten minutes past five"         
 [4,] "5:15" "quarter past five"             
 [5,] "5:30" "half past five"                
 [6,] "5:40" "twenty minutes to six"         
 [7,] "5:45" "quarter to six"                
 [8,] "5:47" "thirteen minutes to six"       
 [9,] "5:28" "twenty eight minutes past five"

This might help: https://stackoverflow.com/questions/46652066/convert-integer-to-words — Jason, Sep 12 '19 at 22:28

M-- · Accepted Answer · 2019-09-13T17:13:20.083

time <-  c("5:00", "17:45","10:05:00","5:10 pm", "5:01", "5:10:20 AM", "23:45:00",
           "5:10", "5:15", "5:30", "5:40", "5:45", "5:47", "5:28", "00:10:20")

library(dplyr)
library(lubridate)
library(qdap)

time %>% data.frame(time=.) %>% 
  mutate(datetime = parse_date_time(time, c("HMS", "HM","IMOp", "IMSOp")),
         h = as.double(hour(datetime)),
         m = minute(datetime),
         h = case_when(h==0 ~ 12,
                       h > 12 ~ h -12,
                       TRUE ~ h)) %>% 
  mutate(TIME_chr = 
        case_when(m == 0 ~ paste(replace_number(h), "o`clock"),
                  m == 15 ~ paste("quarter past", replace_number(h)),
                  m == 30 ~ paste("half past", replace_number(h)),
                  m == 45 ~ paste("quarter to", replace_number(h + 1)),
                  m > 30 ~ paste(replace_number(60-m), "minutes to", replace_number(h+1)),
                  TRUE ~ paste(replace_number(m), "minutes past", replace_number(h)))) %>% 
  select(time, TIME_chr)
#>          time                       TIME_chr
#> 1        5:00                   five o`clock
#> 2       17:45                 quarter to six
#> 3    10:05:00          five minutes past ten
#> 4     5:10 pm          ten minutes past five
#> 5        5:01          one minutes past five
#> 6  5:10:20 AM          ten minutes past five
#> 7    23:45:00              quarter to twelve
#> 8        5:10          ten minutes past five
#> 9        5:15              quarter past five
#> 10       5:30                 half past five
#> 11       5:40          twenty minutes to six
#> 12       5:45                 quarter to six
#> 13       5:47        thirteen minutes to six
#> 14       5:28 twenty eight minutes past five
#> 15   00:10:20        ten minutes past twelve

^{Created on 2019-09-12 by the reprex package (v0.3.0)}

printing time inputs as words in r

1 Answers1