backstep

bczernecki · Mar 8, 2021 · dc9a792 · dc9a792
1 parent bf3cdfe
commit dc9a792
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/meteo_imgw_monthly.R b/R/meteo_imgw_monthly.R
@@ -95,7 +95,7 @@ meteo_imgw_monthly <- function(rank = "synop", year, status = FALSE, coords = FA
     unzip(zipfile = temp, exdir = temp2)
     file1 <- paste(temp2, dir(temp2), sep = "/")[1]
     data1 <- read.csv(file1, header = FALSE, stringsAsFactors = FALSE, fileEncoding = "CP1250")
-    colnames(data1) <- meta[[2]]$parameters
+    colnames(data1) <- meta[[1]]$parameters
 
     if( rank != "precip"){ # w opadowkach jest tylko jeden plik
       file2 <- paste(temp2, dir(temp2), sep = "/")[2]