在没有换行符的情况下将字符串放在剪贴板上

Question

我有一个自定义函数，它将剪贴板上带有反斜杠的路径转换为带有正斜杠的路径，并将其粘贴回剪贴板。麻烦的是，当它被粘贴后，它会带一个换行符。我似乎无法找到这个换行符的来源，因为它似乎不是一个换行符：

btf <- function(){
  backstring <- readClipboard()
  forstring <- gsub("\\\\", "/", backstring)
  writeClipboard(forstring)
}

所以要使用示例路径：C:\path\to\folder
1.复制路径
2.在R
中运行btf() 3.粘贴

粘贴的副本现在有一个换行符。我在Windows 7下运行R 3.0.1 如何防止出现此新换行符？

Answer 1

使用：

btf <- function(){
  backstring <- readClipboard()
  forstring <- gsub("\\\\", "/", backstring)
  writeClipboard(charToRaw(paste0(forstring, ' ')))
}