Browse code

Correct example for addGDS1KGLDBlock

belleau authored on 16/10/2024 16:01:19
Showing 2 changed files

... ...
@@ -1387,7 +1387,8 @@ appendGDSSampleOnly <- function(gds, listSamples) {
1387 1387
 #'         listBlock=listBlock,
1388 1388
 #'         blockName="blockEmpty",
1389 1389
 #'         blockDesc="Example")
1390
-#'.    closefn.gds(gdsAnnot1KG)
1390
+#'
1391
+#'     closefn.gds(gdsAnnot1KG)
1391 1392
 #'
1392 1393
 #'     gdsAnnot1KG <- openfn.gds(fileAnnotGDS)
1393 1394
 #'     print(gdsAnnot1KG)
... ...
@@ -58,7 +58,8 @@ fileReferenceGDS  <- file.path(dataDir, "tests",
58 58
         listBlock=listBlock,
59 59
         blockName="blockEmpty",
60 60
         blockDesc="Example")
61
-.    closefn.gds(gdsAnnot1KG)
61
+
62
+    closefn.gds(gdsAnnot1KG)
62 63
 
63 64
     gdsAnnot1KG <- openfn.gds(fileAnnotGDS)
64 65
     print(gdsAnnot1KG)