fix removing date from _stim.json

Author: Remi-Gau

src/subfun/removeAllDateSuffix.m

@@ -3,39 +3,43 @@
 function removeAllDateSuffix(rawDir, subjName, sesName)
     % removeAllDateSuffix(rawDir, subjName, sesName)
     %
-
+    
     labels = {'func', 'bold', 'eeg', 'ieeg', 'meg', 'beh'};
-
+    
     for iModality = 1:numel(labels)
-
+        
         subjectPath = fullfile(rawDir, subjName, sesName, labels{iModality});
-
+        
         if exist(subjectPath, 'dir')
-
+            
             % do events
             filenames = file_utils('List', subjectPath, ...
-                                   sprintf('^%s.*_task-.*_events_date-.*$', subjName));
-
+                sprintf('^%s.*_task-.*_events_date-.*$', subjName));
+            
             removeDateSuffix(filenames, subjectPath);
-
+            
             for iLabel = 1:numel(labels)
                 filenames = file_utils('List', subjectPath, ...
-                                       sprintf('^%s.*_task-.*_%s_date-.*$', ...
-                                               subjName, labels{iLabel}));
-
+                    sprintf('^%s.*_task-.*_%s_date-.*$', ...
+                    subjName, labels{iLabel}));
+                
                 removeDateSuffix(filenames, subjectPath);
             end
-
+            
             % do stim
             filenames = file_utils('List', subjectPath, ...
-                                   sprintf('^%s.*_task-.*_stim_date-.*tsv$', subjName));
+                sprintf('^%s.*_task-.*_stim_date-.*json$', subjName));
+            removeDateSuffix(filenames, subjectPath);
+            
+            filenames = file_utils('List', subjectPath, ...
+                sprintf('^%s.*_task-.*_stim_date-.*tsv$', subjName));
             compressFiles(filenames, subjectPath);
             filenames = file_utils('List', subjectPath, ...
-                                   sprintf('^%s.*_task-.*_stim_date-.*tsv.gz$', subjName));
+                sprintf('^%s.*_task-.*_stim_date-.*tsv.gz$', subjName));
             removeDateSuffix(filenames, subjectPath);
-
+            
         end
-
+        
     end
 end
 
@@ -45,11 +49,11 @@ function compressFiles(filenames, subjectPath)
     else
         filenames = cellstr(filenames);
     end
-
+    
     for i = 1:numel(filenames)
-
+        
         gzip(fullfile(subjectPath, filenames{i}));
         delete(fullfile(subjectPath, filenames{i}));
-
+        
     end
 end

tests/test_removeDateSuffix.m

@@ -21,6 +21,7 @@ function test_removeDateSuffixBasic()
     eventsName = 'test_events_date-202008050730.tsv';
     stimName = 'test_stim_date-202008050730.tsv';
     stimNameZipped = 'test2_stim_date-202008050730.tsv.gz';
+    stimJsonName = 'test_stim_date-202008050730.json';
 
     filesToProcess = { ...
                       boldName
@@ -30,6 +31,7 @@ function test_removeDateSuffixBasic()
                       eventsName
                       stimName
                       stimNameZipped
+                      stimJsonName
                      };
 
     % create new files for new tests
@@ -48,6 +50,7 @@ function test_removeDateSuffixBasic()
     expectedEventsName = 'test_events.tsv';
     expectedStimName = 'test_stim.tsv';
     expectedStimNameZipped = 'test2_stim.tsv.gz';
+    expectedStimJson = 'test_stim.json';
 
     removeDateSuffix(filenames, outputDir);
 
@@ -61,6 +64,7 @@ function test_removeDateSuffixBasic()
     assertEqual(exist(fullfile(outputDir, expectedStimNameZipped), 'file'), 2);
     assertEqual(exist(fullfile(outputDir, expectedBoldName2), 'file'), 2);
     assertEqual(exist(fullfile(outputDir, expectedBoldName), 'file'), 2);
+    assertEqual(exist(fullfile(outputDir, expectedStimJson), 'file'), 2);
 
     % clean up
     delete('*.nii*');