如何向数据添加列。表中的值来自基于regex的列表

I have the following data.table:

我有以下数据。

    id      fShort
1   432-12  1245
2   3242-12 453543
3   324-32  45543
4   322-34  45343
5   2324-34 13543


DT <- data.table(
        id=c("432-12", "3242-12", "324-32", "322-34", "2324-34"), 
        fShort=c("1245", "453543", "45543", "45343", "13543"))