Преобразование 12-часового времени в 24-часовое

I есть почасовые данные о погоде. Я видел примеры функций отсюда: http://casoilresource.lawr.ucdavis.edu/drupal/node/991

Я изменяю код для учета данных аэропорта, у которых другой URL. тип. Другая проблема с данными о погоде в аэропорту заключается в том, что данные о времени сохраняются в 12-часовом формате. Вот пример данных:

14  10:43 AM
15  10:54 AM
16  11:54 AM
17  12:07 PM
18  12:15 PM
19  12:54 PM
20  1:54 PM
21  2:54 PM

Вот что я пытался сделать: (я вижу, что использование только «PM» недостаточно осторожно, потому что любое время между 12 и 13 часами будет отключено, если они пройдут этот алгоритм)

date<-Sys.Date()


data$TimeEST<-strsplit(data$TimeEST, ' ')
for (x in 1:35){
    if('AM' %in% data$TimeEST[[x]]){
        gsub('AM','',data$TimeEST[[x]])
        data$TimeEST[[x]]<-str_trim(data$TimeEST[[x]])
        data$TimeEST[[x]]<-str_c(date,' ',data$TimeEST[x],':',data$TimeEST[2])
    }
    else if('PM' %in% data$TimeEST[[x]]){
        data$TimeEST[[x]]<-gsub('PM', '',data$TimeEST[[x]])
        data$TimeEST[[x]]<-strsplit(data$TimeEST[[x]], ':')
        data$TimeEST[[x]][[1]][1]<-as.integer(data$TimeEST[[x]][[1]][1])+12
        data$TimeEST[[x]]<-str_trim(data$TimeEST[[x]][[1]])
        data$TimeEST[[x]]<-str_c(date, " ", data$TimeEST[[x]][1],':',data$TimeEST[[x]][2])

    }
}

Любая помощь?