Convert time string with both am/pm and 24 hour format in R

I have a list of times in my df column like so:

times <- c("11:30am", "3:15pm", "2:25pm", "12:05pm", "8:25pm", "7:52pm", "13:22", "18:45", "21:14", "11:20")

How can I convert the times to time format so they are all formatted correctly?

I would like the am/pm to be removed from those that have it and converted to 24 hr time, and for those that are already in the correct format, to be converted to time format.
Desired output:

11:30
15:15
14:25
12:05
20:25
19:52
13:22
18:45
21:14
11:20

I tried:

times <- ifelse(grepl('am', times) | grepl('pm', times),
                  as.POSIXct(times, format = "%I:%M%p"), as.POSIXct(times,format="%H:%M"))

But it just gave me a list of numbers.

You can use a regular expression to detect the format of the input value.

Then adjust the argument of strptime depending on the hour input format.

ifelse(grepl("am|pm", times),
       format(strptime(times, "%I:%M %p"), format="%H:%M"),
       format(strptime(times, "%H:%M"), format="%H:%M"))

[1] "11:30" "15:15" "14:25" "12:05" "20:25" "19:52" "13:22" "18:45" "21:14" "11:20"

You could do:

sapply(strsplit(times, ":"), function(x) {
  h <- as.numeric(x[1]) + grepl("pm", x[2]) * 12
  if(h == 24) h <- 12
  if(h == 12 & grepl("am|pm", x[2])) h <- 0
  paste(sprintf("%02d", h), 
        gsub("^(\\d+).*$", "\", x[2]), sep = ":")
})
#>  [1] "11:30" "15:15" "14:25" "00:05"  "20:25" "19:52" "13:22" "18:45"
#>  [9] "21:14" "11:20"

Using parse_date

library(parsedate)
format(parse_date(times), "%H:%M")

-output

[1] "11:30" "15:15" "14:25" "12:05" "20:25" "19:52" "13:22" "18:45" "21:14" "11:20"