From 21581d8712e0bc283badcbe841c8b64557672cc2 Mon Sep 17 00:00:00 2001 From: Hollos Roland Date: Wed, 18 Dec 2019 15:07:45 +0100 Subject: [PATCH] fix directory choose --- RBBGCMuso/R/getMeteoData1.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RBBGCMuso/R/getMeteoData1.R b/RBBGCMuso/R/getMeteoData1.R index f85ad16..43e181c 100644 --- a/RBBGCMuso/R/getMeteoData1.R +++ b/RBBGCMuso/R/getMeteoData1.R @@ -48,7 +48,7 @@ getMeteoData1BGC <- function(startYear=2017, endYear=2017, lon=18.8, lat=47.3, t } 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])