Bug fixed

ma-z-am · ma-z-am · commit a2ccb45676a3 · 2025-12-02T17:11:48.000+01:00
diff --git a/R/load_netcdf.R b/R/load_netcdf.R
@@ -35,6 +35,7 @@ load_netcdf <- function(
     }
   }
   
+  dimDf <- ncMeta$dimension
   to_many_counts <- c(dimDf$len[dimDf$name == "x"], dimDf$len[dimDf$name == "y"]) - 
     (count_xy + start_xy - 1)
   if(any(to_many_counts < 0)){
@@ -55,7 +56,6 @@ load_netcdf <- function(
     vars <- availableVars
   }
   
-  dimDf <- ncMeta$dimension
   if(count_xy[1] < dimDf$len[dimDf$name == "x"] |
      count_xy[2] < dimDf$len[dimDf$name == "y"]){
     crop_nc <- TRUE

Original file line number	Diff line number	Diff line change
`@@ -35,6 +35,7 @@ load_netcdf <- function(`
`35`	`35`	`}`
`36`	`36`	`}`
`37`	`37`
	`38`	`+ dimDf <- ncMeta$dimension`
`38`	`39`	`to_many_counts <- c(dimDf$len[dimDf$name == "x"], dimDf$len[dimDf$name == "y"]) -`
`39`	`40`	`(count_xy + start_xy - 1)`
`40`	`41`	`if(any(to_many_counts < 0)){`
`@@ -55,7 +56,6 @@ load_netcdf <- function(`
`55`	`56`	`vars <- availableVars`
`56`	`57`	`}`
`57`	`58`
`58`		`- dimDf <- ncMeta$dimension`
`59`	`59`	`if(count_xy[1] < dimDf$len[dimDf$name == "x"] \|`
`60`	`60`	`count_xy[2] < dimDf$len[dimDf$name == "y"]){`
`61`	`61`	`crop_nc <- TRUE`