使用lubridate将十进制数转换为时间（小时：分钟：秒）

Question

我有这个载体：

UPDATE Plant_Component
SET CODE = CONVERT(varchar, CONVERT(integer, PCread.CODE) + 1)
FROM  
    (SELECT CODE 
    FROM Plant_Component
    WHERE ISNUMERIC(CODE) = 1
    AND CODE NOT LIKE  '%[^0-9]%'
) AS PCread
WHERE Plant_Component.CODE = 'testcode'

如何使用numbers <- c(2.4, 0.7, 0.5, 0.2, 0.9, 0.6) 将这些十进制数转换为次数（小时：分钟：秒）。因此输出应该是类lubridate

的以下向量

Period

我搜索了堆栈溢出和谷歌搜索这个问题的答案。可能是我使用了错误的搜索词，但我找不到答案。