escape_testing <- function(escape = "double"){
  file_default_escape <- tempfile(fileext = ".tsv")
  readr::write_delim(
    RMariaDB:::csv_quote(value,
                         warn_factor = TRUE,
                         conn = target_conn),
    file_default_escape,
    quote = "none",
    delim = "\t",
    na = "\\N",
    col_names = FALSE,
    escape = escape
  )
  value_default_escape <- readr::read_tsv(file = file_default_escape)
  print(as.data.frame(value_default_escape))
  unlink(file_default_escape)
}

value <-
  data.frame(test = c("test_header", 'Test \"quote\" escaping.'))

# Escape default value
escape_testing(escape = "double")
#> Rows: 1 Columns: 1
#> -- Column specification --------------------------------------------------------
#> Delimiter: "\t"
#> chr (1): test_header
#> 
#> i Use `spec()` to retrieve the full column specification for this data.
#> i Specify the column types or set `show_col_types = FALSE` to quiet this message.
#>                test_header
#> 1 Test ""quote"" escaping.

# `escape = "none"`
escape_testing(escape = "none")
#> Rows: 1 Columns: 1
#> -- Column specification --------------------------------------------------------
#> Delimiter: "\t"
#> chr (1): test_header
#> 
#> i Use `spec()` to retrieve the full column specification for this data.
#> i Specify the column types or set `show_col_types = FALSE` to quiet this message.
#>              test_header
#> 1 Test "quote" escaping.