uniform side encoding

jefferis · jefferis · commit 5b273db9ff51 · 2025-01-01T09:36:40.000Z
diff --git a/R/meta.R b/R/meta.R
@@ -203,6 +203,7 @@ fanc_meta <- function(ids=NULL, ...) {
       df <- left_join(data.frame(id=ids), df, by='id')
     }
   }
+  df$side=sub("HS|idline$", "", df$side)
   df
 }
 

Original file line number	Diff line number	Diff line change
`@@ -203,6 +203,7 @@ fanc_meta <- function(ids=NULL, ...) {`
`203`	`203`	`df <- left_join(data.frame(id=ids), df, by='id')`
`204`	`204`	`}`
`205`	`205`	`}`
	`206`	`+ df$side=sub("HS\|idline$", "", df$side)`
`206`	`207`	`df`
`207`	`208`	`}`
`208`	`209`