Add explicit matrix subsetting for data.table

ohdsi-studies · Oct 1, 2021 · 873199c · 873199c
1 parent d3c7170
commit 873199c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ResourceFiles.R b/R/ResourceFiles.R
@@ -42,7 +42,7 @@ getCohortsToCreate <- function(cohortGroups = getCohortGroups()) {
   cohorts <- data.frame()
   for(i in 1:nrow(cohortGroups)) {
     c <- data.table::fread(system.file(cohortGroups$fileName[i], package = packageName, mustWork = TRUE))
-    c <- c[c('name', 'atlasName', 'atlasId', 'cohortId')]
+    c <- c[,c('name', 'atlasName', 'atlasId', 'cohortId')]
     c$cohortType <- cohortGroups$cohortGroup[i]
     cohorts <- rbind(cohorts, c)
   }