utils::read.csv seems to be expected behavior here
body = 'a,b
1,"a unquoted a"
2,"b ""quoted"" b"
'
data.table::fread(body)
# a b
# <int> <char>
#1: 1 a unquoted a
#2: 2 b ""quoted"" b
data.table::fread(body, quote = "\"")
# a b
# <int> <char>
#1: 1 a unquoted a
#2: 2 b ""quoted"" b
writeLines(body, f<-tempfile())
utils::read.csv(f, quote = "\"") ## default quote
# a b
#1 1 a unquoted a
#2 2 b "quoted" b
1.18.99