How to read a csv in R with backtick as string encoser and ¥‎ as escape character?

I have CSV data with backtick (`)as a string encloser and yen symbol (¥)‎ as an escape character.

Example :

I tried reading the raw file and replaced yen symbol with a backslash but not working.

fl <- readLines("data.csv", encoding = "UTF-8")
fl2 <- gsub('¥', "\\", fl)
writeLines(fl2, "Edited_data.txt")
sms_data <- fread("Edited_data.txt", sep = ",", stringsAsFactors = FALSE, quote = "\`", dec = ".", encoding = "UTF-8")

Expected Dataframe

I couldn't access your data since it's an image but here's a version with readr:

library(readr)
dt <- "Sentence, Value1, Value2\n`This is the first row`, 0, 0\n`This , this is something else with a comma¥`, 0, 0"

# We can read for your data, respect your strings within `` and read the the `¥` symbol.
dt_read <- read_csv(dt, quote = "`")
dt_read
#> # A tibble: 2 x 3
#>   Sentence                                    Value1 Value2
#>   <chr>                                        <dbl>  <dbl>
#> 1 This is the first row                            0      0
#> 2 This , this is something else with a comma¥      0      0

# Then, we just replace that symbol with nothing
dt_read$Sentence <- gsub("¥", "", dt_read$Sentence)
dt_read
#> # A tibble: 2 x 3
#>   Sentence                                   Value1 Value2
#>   <chr>                                       <dbl>  <dbl>
#> 1 This is the first row                           0      0
#> 2 This , this is something else with a comma      0      0

You can change the escape sequence to whatever you like and change it back once you read the text in. I have reproduced your data here:

yen <- c("Sentence,Value1,Value2", 
         "`ML Taper, Triology TM`,0,0", 
         "90481 3TBS/¥`10TRYS/1SR PAUL/JOE,0,0", 
         "`D/3,E/4`,0,0")
writeLines(yen, path.expand("~/yen.csv"))

Now the code

library(data.table)

# Read data without specifying encoding to handle ANSI or UTF8 yens
fl <- readLines(path.expand("~/yen.csv"))

# The yen symbol is 0xc2 0xa5 in UTF8, so we want it encoded this way
utf8_yen <- rawToChar(as.raw(c(0xc2, 0xa5)))
ansi_yen <- rawToChar(as.raw(0xa5))
fl <- gsub(utf8_yen, ansi_yen, fl)

# Paste on our backtick to get the backtick escape
yen_tick <- paste0(ansi_yen, "`")

# Change the backtick escape then remove all yen nsymbols
fl2 <- gsub(yen_tick, "&backtick;", fl)
fl2 <- gsub(ansi_yen, "", fl2)

# Save our modified string and reload it as a dataframe
writeLines(fl2, path.expand("~/Edited_data.txt"))
sms_data <- fread(path.expand("~/Edited_data.txt"),
                  sep = ",", stringsAsFactors = FALSE, quote = "\`", dec = ".")

# Now we can unescape our backticks and we're done
sms_data$Sentence <- gsub("&backtick;", "`", sms_data$Sentence)

So now we have

sms_data
#>                           Sentence Value1 Value2
#> 1:           ML Taper, Triology TM      0      0
#> 2: 90481 3TBS/`10TRYS/1SR PAUL/JOE      0      0
#> 3:                         D/3,E/4      0      0