From 00a87b4e6255f8d166ae6d1aa0352cb7ecde3991 Mon Sep 17 00:00:00 2001 From: Erzsi86 <46902392+Erzsi86@users.noreply.github.com> Date: Sun, 23 Feb 2020 19:14:55 +0100 Subject: [PATCH] removing grid ID from the wth file name --- RBBGCMuso/R/getMeteoData1.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/RBBGCMuso/R/getMeteoData1.R b/RBBGCMuso/R/getMeteoData1.R index ef0a0af..37fa55e 100644 --- a/RBBGCMuso/R/getMeteoData1.R +++ b/RBBGCMuso/R/getMeteoData1.R @@ -507,10 +507,10 @@ getMeteoData1BGC <- function(startYear=2017, endYear=2017, lon=18.8, lat=47.3, t # "_lat", latSub, "_lon", lonSub, ".mtcin")) # ID number (1,2,...) can be added to the title by using object grid befor "_lat" file.rename(paste0(fileDir, "/", destDir, "/1.mtc43"), - paste0(fileDir, "/", destDir, "/", grid, + paste0(fileDir, "/", destDir, "/", "_lat", latSub, "_lon", lonSub, ".wth")) # ID number (1,2,...) can be added to the title by using object grid befor "_lat" - file.copy(paste0(fileDir, "/", destDir, "/", grid, "_lat", latSub, "_lon", lonSub, ".wth"), fileDir) + file.copy(paste0(fileDir, "/", destDir, "/", "_lat", latSub, "_lon", lonSub, ".wth"), fileDir) # file.rename("1.ini", paste0(sprintf('%0.4d', gridID),".ini")) # # file.rename("1.mtcin", paste0(sprintf('%0.4d', gridID),".mtcin"))