Update createSystemData_main.R

Corrected syntax for function call using |> operator: added parentheses

scripts/createSystemData_main.R

@@ -73,9 +73,9 @@ test_general_config <- general_config_test(
 # ### Load ref data
 # newEnv_ref  <- new.env()
 # dataOutPath |> load(verbose = F, envir=newEnv_ref)
-# # ls(envir=newEnv_ref) |> print
+# # ls(envir=newEnv_ref) |> print()
 # refDataList <- "rDataList" |> get(envir=newEnv_ref, inherits = F)
-# # ls() |> print; refDataList |> names |> print
+# # ls() |> print(); refDataList |> names() |> print()
 # rm("newEnv_ref")
 dataOutPath |> source()
 rDataList |> names() %>% print()
@@ -85,10 +85,10 @@ refDataList <- rDataList
 ###### Determine if tests need to be run
 df_sectors_new <- list_systemData0[["co_sectors"]][["sector_id"]]
 df_sectors_ref <- refDataList[["co_sectors"]][["sector_id"]]
-df_sectors_new |> glimpse; df_sectors_ref |> glimpse
-c_sectors_new  <- df_sectors_new |> unique
-c_sectors_ref  <- df_sectors_ref |> unique
-hasNewSectors  <- (c_sectors_new %in% c_sectors_ref) |> all 
+df_sectors_new() |> glimpse; df_sectors_ref |> glimpse()
+c_sectors_new  <- df_sectors_new |> unique()
+c_sectors_ref  <- df_sectors_ref |> unique()
+hasNewSectors  <- (c_sectors_new %in% c_sectors_ref) |> all ()
 doNewTest      <- !hasNewSectors
 ###### Run test if there are new sectors
 if(doNewTest){