readr中带括号负片的处理

读取csv的列号不处理括号样式的负片。这个解决方案有效，但我很好奇是否有更简单的解决方案

library(tidyverse)
library(stringr)
data <- read_csv2("num\n12\n(12)\n13\n£2,250.00")
data$num <- data$num %>% 
  str_replace("^\\(([1-9]+)\\)$","-\\1") %>% 
  parse_number()
head(data)

# A tibble: 4 x 1
    num
  <dbl>
1    12
2   -12
3    13
4  2250

库（tidyverse）
图书馆（stringr）
数据%
解析_数（）
总目（数据）
#一个tibble:4x1
号码
1    12
2   -12
3    13
4  2250

似乎没有一种简单的（开箱即用的）方法来处理这个问题。还可以创建一种新的数据类型，将括号（或方括号）解释为负数：似乎没有一种简单的（现成的）方法来处理这个问题。还可以创建一种新的数据类型，将括号（或方括号）解释为负数：