BUG: provide a helper function for a bug in data naming

stnava · stnava · commit f5145d939c5f · 2024-10-11T15:42:27.000-04:00
the extent of this processing is not yet known.  will work to characterize further but this function
is a workaround.
diff --git a/R/multiscaleSVDxpts.R b/R/multiscaleSVDxpts.R
@@ -4942,7 +4942,6 @@ apply_simlr_matrices_dtfix <- function(existing_df, matrices_list, n_limit = NUL
         rownames(matrices_list_fix$dt)=shorten_pymm_names( rownames(matrices_list$dt ) )
         dt_cols = rownames(matrices_list_fix$dt)
         shortened_dt_cols = shorten_pymm_names(dt_cols)
-        print(shortened_existing_df_cols)
         dt_correspondence = sum(shortened_existing_df_cols %in% shortened_dt_cols) > sum(existing_df_cols %in% dt_cols)
       }
       if ( "dta" %in% names(matrices_list) ) {

Original file line number	Diff line number	Diff line change
`@@ -4942,7 +4942,6 @@ apply_simlr_matrices_dtfix <- function(existing_df, matrices_list, n_limit = NUL`
`4942`	`4942`	`rownames(matrices_list_fix$dt)=shorten_pymm_names( rownames(matrices_list$dt ) )`
`4943`	`4943`	`dt_cols = rownames(matrices_list_fix$dt)`
`4944`	`4944`	`shortened_dt_cols = shorten_pymm_names(dt_cols)`
`4945`		`- print(shortened_existing_df_cols)`
`4946`	`4945`	`dt_correspondence = sum(shortened_existing_df_cols %in% shortened_dt_cols) > sum(existing_df_cols %in% dt_cols)`
`4947`	`4946`	`}`
`4948`	`4947`	`if ( "dta" %in% names(matrices_list) ) {`