代码如下：
effort_files <- tibble(
file = list.files(paste0(data_dir, 'fishing_effort_byflag'),
pattern = '.csv, recursive = T, full.names = T),
date = ymd(str_extract(file,
pattern = '[[:digit:]]{4}-[[:digit:]]{2}-[[:digit:]]{2}')))
新人照着网上所给代码学习，对于网上所给这段代码，我在R中输入后总是在pattern='[[:digit:]]...一行中，报错额外的“：”，还有请教各位大佬，此段代码应该是要创建一个数据框，第一列是file，第二列是date，而在file后面的一串代码又是什么意思呢
effort_files <- tibble(
file = list.files(paste0(data_dir, 'fishing_effort_byflag'),
pattern = '.csv, recursive = T, full.names = T),
date = ymd(str_extract(file,
pattern = '[[:digit:]]{4}-[[:digit:]]{2}-[[:digit:]]{2}')))
新人照着网上所给代码学习，对于网上所给这段代码，我在R中输入后总是在pattern='[[:digit:]]...一行中，报错额外的“：”，还有请教各位大佬，此段代码应该是要创建一个数据框，第一列是file，第二列是date，而在file后面的一串代码又是什么意思呢
