R language function automatically changes a path backslash

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