在readr中处理括号中的底片

Question

read_csv 的 col_number 不会处理支架式底片。这个解决方案有效，但我很想知道是否有更简单的解决方案？

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