alternative is to drop from fam

smasongarrison · smasongarrison · commit 8bb42feaa29f · 2026-04-09T15:17:10.000-04:00
diff --git a/R/segmentPedigree.R b/R/segmentPedigree.R
@@ -89,6 +89,7 @@ if(keep_string==TRUE) {
     ped[[famID]] <- NULL
     } else {
     overwrite_message <-  "not be overwritten."
+    fam[[famID]] <- NULL
    }
 
     warning(sprintf("The famID variable '%s' already exists in the pedigree. The existing variable will %s", famID, overwrite_message))

Original file line number	Diff line number	Diff line change
`@@ -89,6 +89,7 @@ if(keep_string==TRUE) {`
`89`	`89`	`ped[[famID]] <- NULL`
`90`	`90`	`} else {`
`91`	`91`	`overwrite_message <- "not be overwritten."`
	`92`	`+ fam[[famID]] <- NULL`
`92`	`93`	`}`
`93`	`94`
`94`	`95`	`warning(sprintf("The famID variable '%s' already exists in the pedigree. The existing variable will %s", famID, overwrite_message))`