如何使用sprintf显示字符串“\t”？

Question

我有一种算法可以识别 .txt 文件中使用的分隔符。我想输出使用 cat() 找到的分隔符。我正在使用 %s 和 sprintf() 无济于事。

current.sep = "\t"

cat(sprintf("Found separator : %s. \n", current.sep))
## Found separator :    .

cat(sprintf("Found separator : %s. \n", "current.sep"))
## Found separator : current.sep. 

## I want:
## Found separator : \t. 

Answer 1

print_separator <- function(separator) {

    expr <- deparse(paste0("Found separator : ", separator, "."))
    cat(substr(expr, 2, nchar(expr) - 1))

}

print_separator(current.sep)
## Found separator : \t.