test write named region using (supported) scalar formula values only

miraisolutions · Jan 23, 2024 · 12d4148 · 12d4148
1 parent 6af0efd
commit 12d4148
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/inst/unitTests/runit.writeNamedRegionToFile.R b/inst/unitTests/runit.writeNamedRegionToFile.R
@@ -170,7 +170,8 @@ test.writeNamedRegionToFile <- function() {
 	createSheet(wb, scope)
 	saveWorkbook(wb, file)
 
-	writeNamedRegionToFile(file, data=df, name="cdfRegionScoped", formula=paste(scope, "A1", sep="!"), worksheetScope = scope)
+	writeNamedRegionToFile(file, data=df, name="cdfRegionScoped", formula=paste(scope[1], "A1", sep="!"), worksheetScope = scope[1])
+	writeNamedRegionToFile(file, data=df, name="cdfRegionScoped", formula=paste(scope[2], "A1", sep="!"), worksheetScope = scope[2])
     # overwrite named region with shorter version
     writeNamedRegionToFile(file, data=df.short, name="cdfRegionScoped", worksheetScope = scope)
     # default behaviour: not cleared, only named region is shortened