format_wd <- function(){ x <- readline(prompt = "输入地址") gsub("\\\\", "/", x) }
format_wd() 输入地址C:\Users\Qiuning\Desktop\ [1] "C:/Users/Qiuning/Desktop/"
format_wd <- function(){ x <- readline(prompt = "输入地址") gsub("\\\\", "/", x) }
format_wd() 输入地址C:\Users\Qiuning\Desktop\ [1] "C:/Users/Qiuning/Desktop/"