From 1f9343c15808180f3c41fd9cfe9fd723ce6bca74 Mon Sep 17 00:00:00 2001 From: Hollos Roland Date: Wed, 18 Dec 2019 15:42:15 +0100 Subject: [PATCH] fix tk_chooseFile --- RBBGCMuso/R/getMeteoData1.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/RBBGCMuso/R/getMeteoData1.R b/RBBGCMuso/R/getMeteoData1.R index 43e181c..8b1237d 100644 --- a/RBBGCMuso/R/getMeteoData1.R +++ b/RBBGCMuso/R/getMeteoData1.R @@ -45,10 +45,11 @@ getMeteoData1BGC <- function(startYear=2017, endYear=2017, lon=18.8, lat=47.3, t # With tk_choose.files, it is not working in R Server. if(is.null(apiFile)){ apiFile <- tk_choose.files(caption = "Please choose the file which contains the CDS API key.") + print(sprintf("Apifile: %s is selected",apiFile)) } if(is.null(fileDir)){ - apiFile <- tk_choose.dir(caption = "Please choose the fileDir.") + fileDir <- tk_choose.dir(caption = "Please choose the fileDir.") } apiCodes <- suppressWarnings(readLines(apiFile)[2])