检索时间格式以将R转换为秒

Question

我有两个不同的数据集。一种使用时间格式为m:s，另一种使用h:m:s。我有一个变通办法来找出正在使用的数据集，但是我想知道是否存在一种直接的方法来检索时间格式，然后将其转换为秒吗？

我正在使用 lubridate ，如下所示：

library(tidyverse)
library(lubridate)

a <- c("00:01","00:03","00:05")
b <- c("00:00:01","00:00:03","00:00:05")

a %>% 
  ms() %>% 
  period_to_seconds()

b %>% 
  hms() %>% 
  period_to_seconds()

我的期望是我可以某种方式检索格式，然后在此基础上应用lubridate::ms()或lubridate::hms()。

有什么想法吗？

Answer 1

假设输入向量只有一种格式，请创建一个条件来检查字符数是否为'5'，然后在开始处先检查paste '00：'，然后仅应用{{1} }转换为时间格式

hms