R 在正则表达式中需要一个简单的整理

我花了一上午的时间试图整理这件事，但找不到更优雅的解决方案

我有以下值：

TEST <- Pia1.2016-10-08.1103+N2353.tif

TEST您可以使用

TEST <- 'Pia1.2016-10-08.1103+N2353_hc.tif'
date <- sub('.*?\\.(\\d{4}-\\d{2}-\\d{2})\\..*', '\\1', TEST)
time <- sub('.*?\\.\\d{4}-\\d{2}-\\d{2}\\.(\\d{2})(\\d{2}).*', '\\1:\\2', TEST)
# => [1] "2016-10-08"
#    [1] "11:03"

测试-试试英雄之类的东西！干杯，我会回答的请看下面的答案好的，解释真的很重要！非常感谢
TIMEDIR <- 

TEST <- 'Pia1.2016-10-08.1103+N2353_hc.tif'
date <- sub('.*?\\.(\\d{4}-\\d{2}-\\d{2})\\..*', '\\1', TEST)
time <- sub('.*?\\.\\d{4}-\\d{2}-\\d{2}\\.(\\d{2})(\\d{2}).*', '\\1:\\2', TEST)
# => [1] "2016-10-08"
#    [1] "11:03"