Displaying 3 results from an estimated 3 matches for "myfcd".
Did you mean:
mycd
2024 Dec 18
2
Query concerning working directory for file.choose()
...directory being used by function that calls file choose
cpath<-getwd()
nd1<-paste0(cpath,"/nd1")
nd2<-paste0(cpath,"/nd2")
dir.create(nd1)
dir.create(nd2)
myfc<-function(){
cat("myfc working in ",getwd(),"\n")
val<-file.choose()
val
}
myfcd<-function(adir){
setwd(adir)
cat("in myfcd, getwd() =", getwd(),"\n")
val<-file.choose()
val
}
print(getwd())
one<-myfc()
cat("one=",one,"\n")
setwd("nd1")
print(getwd())
two<-myfc() # This opens file.choose() in nd1
cat(&qu...
2024 Dec 18
2
Query concerning working directory for file.choose()
...; cpath<-getwd()
> nd1<-paste0(cpath,"/nd1")
> nd2<-paste0(cpath,"/nd2")
> dir.create(nd1)
> dir.create(nd2)
>
> myfc<-function(){
> cat("myfc working in ",getwd(),"\n")
> val<-file.choose()
> val
> }
> myfcd<-function(adir){
> setwd(adir)
> cat("in myfcd, getwd() =", getwd(),"\n")
> val<-file.choose()
> val
> }
>
> print(getwd())
> one<-myfc()
> cat("one=",one,"\n")
> setwd("nd1")
> print(getwd())
&g...
2024 Dec 18
2
Query concerning working directory for file.choose()
...ath<-getwd()
> nd1<-paste0(cpath,"/nd1")
> nd2<-paste0(cpath,"/nd2")
> dir.create(nd1)
> dir.create(nd2)
>
> myfc<-function(){
> cat("myfc working in ",getwd(),"\n")
> val<-file.choose()
> val
> }
> myfcd<-function(adir){
> setwd(adir)
> cat("in myfcd, getwd() =", getwd(),"\n")
> val<-file.choose()
> val
> }
>
> print(getwd())
> one<-myfc()
> cat("one=",one,"\n")
> setwd("nd1")
> print(getwd(...