getwd() -> wd

#
message("making directory")
dir.create(file.path(wd,"Rd"))


message(paste("working directory =", wd))

setwd(file.path(R.home(),"share/texmf"))

file.copy(dir(), file.path(wd,"Rd"),TRUE)

setwd(file.path(wd,"../../man"))

message("Copying Rd files")
file.copy(dir(pattern="\\.Rd$"), file.path(wd,"Rd"), TRUE)

message("Copying .sty files")
#file.copy(dir(pattern="\\.sty$"), file.path(wd,"Rd"), TRUE)
q("no")

