从r中的字符串中删除带有数字的下划线

Question

有没有简单的方法如何在每次有8位数的数字之前删除下划线？

e.g。

test_folder_20180409 should be test_folder

或

test_sql.sql_20180409 should be test_sql.sql

感谢前进中的任何暗示。

Answer 1

我们可以使用sub

执行此操作

sub("_\\d{8}.*", "", str1)
#[1] "test_folder"  "test_sql.sql"

数据

str1 <- c("test_folder_20180409", "test_sql.sql_20180409")