R语言 一个自动更改路径中反斜杠的函数

format_wd <- function(){
  x <- readline(prompt = "输入地址")
  gsub("\\\\", "/", x)
}

format_wd()
输入地址C:\Users\Qiuning\Desktop\
[1] "C:/Users/Qiuning/Desktop/"