fix bug in filtering files

KarinSchork · KarinSchork · commit 3ddfa50f4238 · 2025-06-26T17:46:44.000+02:00
diff --git a/R/NEW_00_main_CalibraCurve.R b/R/NEW_00_main_CalibraCurve.R
@@ -160,7 +160,7 @@ CalibraCurve <- function(data_path = NULL,
 
   ### check if all files are valid (correct file type)
 
-  all_files <- all_files[filetable$file_ext == filetype]
+  filetable <- filetable[filetable$file_ext == filetype,]
 
 
 

Original file line number	Diff line number	Diff line change
`@@ -160,7 +160,7 @@ CalibraCurve <- function(data_path = NULL,`
`160`	`160`
`161`	`161`	`### check if all files are valid (correct file type)`
`162`	`162`
`163`		`- all_files <- all_files[filetable$file_ext == filetype]`
	`163`	`+ filetable <- filetable[filetable$file_ext == filetype,]`
`164`	`164`
`165`	`165`
`166`	`166`