hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix directory choose

Browse Source
This commit is contained in:
Hollos Roland 2019-12-18 15:07:45 +01:00
parent 58b7714219
commit 21581d8712
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
RBBGCMuso/R/getMeteoData1.R
View File

@ -48,7 +48,7 @@ getMeteoData1BGC <- function(startYear=2017, endYear=2017, lon=18.8, lat=47.3, t
} }
if(is.null(fileDir)){ if(is.null(fileDir)){
apiFile <- tk_choose.files(caption = "Please choose the fileDir.") apiFile <- tk_choose.dir(caption = "Please choose the fileDir.")
} }
apiCodes <- suppressWarnings(readLines(apiFile)[2]) apiCodes <- suppressWarnings(readLines(apiFile)[2])