library(stringr)
df$ID <- row.names(df)
df$ID <- str_extract(df$ID, '\\d+')##提取数字
简单点,先引用命名空间 using System.IOFileStream fs = new FileStream("d:\\"+ TxtName
+ ".txt", FileMode.OpenOrCreate)
library(stringr)
df$ID <- row.names(df)
df$ID <- str_extract(df$ID, '\\d+')##提取数字
简单点,先引用命名空间 using System.IOFileStream fs = new FileStream("d:\\"+ TxtName
+ ".txt", FileMode.OpenOrCreate)