| ... | ... |
@@ -157,7 +157,7 @@ DerivedParameterNode <- function(sn, parent, childnodes, vec, cluster_name, env. |
| 157 | 157 |
csvfile <- paste(sn, pname, "EPA.csv", sep = ".") |
| 158 | 158 |
csvpath <- file.path(outputdir, csvfile) |
| 159 | 159 |
write.csv(vec, csvpath, row.names = FALSE) |
| 160 |
- message("DerivedParameter: ", csvpath)
|
|
| 160 |
+ message("DerivedParameter: ", normalizePath(csvpath))
|
|
| 161 | 161 |
xmlNode("DerivedParameter"
|
| 162 | 162 |
, attrs = c(name = pname |
| 163 | 163 |
, type = "importCsv" |
