Fix missing closing parens in SomaScanObjects.R

- fixes #40
SomaLogic · Apr 28, 2023 · 534692e · 534692e
1 parent c7d10ab
commit 534692e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/data-raw/SomaScanObjects.R b/data-raw/SomaScanObjects.R
@@ -7,7 +7,7 @@ y <- ex_anno_tbl
 z <- ex_target_names
 
 # 'new'
-example_data <- read_adat("example_data.adat")
+example_data <- read_adat("example_data.adat")  # download via wget
 ex_analytes  <- getAnalytes(example_data)
 ex_anno_tbl  <- getAnalyteInfo(example_data)
 ex_target_names <- getTargetNames(ex_anno_tbl)
@@ -20,6 +20,6 @@ if ( !isTRUE(all.equal(data, example_data)) ) {
 # 'save only if necessary'
 if ( !all(isTRUE(all.equal(x, ex_analytes)),
           isTRUE(all.equal(y, ex_anno_tbl)),
-          isTRUE(all.equal(z, ex_target_names))) {
+          isTRUE(all.equal(z, ex_target_names))) ) {
   save(ex_analytes, ex_anno_tbl, ex_target_names, file = "data/data_objects.rda", compress = "xz")
 }