Minor script cleanup

bbimber · bbimber · commit 16b8c2fd0488 · 2024-02-28T09:36:33.000-08:00
diff --git a/ehr/resources/pipeline/kinship/populateKinship.r b/ehr/resources/pipeline/kinship/populateKinship.r
@@ -39,14 +39,12 @@ for (species in unique(allPed$Species)){
     print(paste0('Processing species: ', species, ', with ', nrow(allRecordsForSpecies), ' IDs'))
     if (nrow(allRecordsForSpecies) == 1) {
         print('single record, skipping')
-        newRecords <- dplyr::bind_rows(newRecords,data.frame(Id = allRecordsForSpecies$Id, Id2 = allRecordsForSpecies$Id, coefficient = 0.5, Species = allRecordsForSpecies$Species))
         next
     }
 
     pctMissingSex <- sum(allRecordsForSpecies$Gender > 2) / nrow(allRecordsForSpecies)
     if (pctMissingSex > 0.25) {
         paste0('More than 25% of this species group are missing sex and cannot be processed by fixParents(), skipping')
-        newRecords <- dplyr::bind_rows(newRecords,data.frame(Id = allRecordsForSpecies$Id, Id2 = allRecordsForSpecies$Id, coefficient = 0.5, Species = allRecordsForSpecies$Species))
         next
     }
 

Original file line number	Diff line number	Diff line change
`@@ -39,14 +39,12 @@ for (species in unique(allPed$Species)){`
`39`	`39`	`print(paste0('Processing species: ', species, ', with ', nrow(allRecordsForSpecies), ' IDs'))`
`40`	`40`	`if (nrow(allRecordsForSpecies) == 1) {`
`41`	`41`	`print('single record, skipping')`
`42`		`- newRecords <- dplyr::bind_rows(newRecords,data.frame(Id = allRecordsForSpecies$Id, Id2 = allRecordsForSpecies$Id, coefficient = 0.5, Species = allRecordsForSpecies$Species))`
`43`	`42`	`next`
`44`	`43`	`}`
`45`	`44`
`46`	`45`	`pctMissingSex <- sum(allRecordsForSpecies$Gender > 2) / nrow(allRecordsForSpecies)`
`47`	`46`	`if (pctMissingSex > 0.25) {`
`48`	`47`	`paste0('More than 25% of this species group are missing sex and cannot be processed by fixParents(), skipping')`
`49`		`- newRecords <- dplyr::bind_rows(newRecords,data.frame(Id = allRecordsForSpecies$Id, Id2 = allRecordsForSpecies$Id, coefficient = 0.5, Species = allRecordsForSpecies$Species))`
`50`	`48`	`next`
`51`	`49`	`}`
`52`	`50`