fix data dowload

Author: Remi-Gau

demos/MoAE/download.m

@@ -0,0 +1,65 @@
+function filename = download(URL, output_dir, verbose)
+  %
+  % USAGE::
+  %
+  %   filename = download(URL, output_dir, verbose)
+  %
+  % (C) Copyright 2021 Remi Gau
+  if nargin < 2
+    output_dir = pwd;
+  end
+
+  msg = sprintf('Downloading dataset from:\n %s\n\n', URL);
+  printToScreen(msg, verbose);
+
+  tokens = regexp(URL, '/', 'split');
+  protocol = tokens{1};
+
+  filename = tokens{end};
+
+  if exist(filename, 'file')
+    delete(filename);
+  end
+
+  if strcmp(protocol, 'http:')
+
+    if isunix()
+      if verbose
+        system(sprintf('wget %s', URL));
+      else
+        system(sprintf('wget -q %s', URL));
+      end
+    else
+      urlwrite(URL, filename);
+    end
+
+    % move file in case it was not downloaded in the root dir
+    if ~exist(fullfile(output_dir, filename), 'file')
+      printToScreen([filename ' --> ' output_dir], verbose);
+      movefile(filename, fullfile(output_dir, filename));
+    end
+    filename = fullfile(output_dir, filename);
+
+  else
+
+    ftp_server = tokens{3};
+    ftpobj = ftp(ftp_server);
+
+    filename = strjoin(tokens(4:end), '/');
+    filename = mget(ftpobj, filename, output_dir);
+
+  end
+
+  if iscell(filename)
+    filename = filename{1};
+  end
+
+  printToScreen(' Done\n\n', verbose);
+
+end
+
+function printToScreen(msg, verbose)
+  if verbose
+    fprintf(1, msg);
+  end
+end

demos/MoAE/download_moae_ds.m

@@ -17,13 +17,12 @@ function download_moae_ds(downloadData)
     spm_mkdir(fullfile(working_directory, 'inputs'));
 
     %% Get data
-    fprintf('%-10s:', 'Downloading dataset...');
-    urlwrite(URL, 'MoAEpilot.zip');
-    fprintf(1, ' Done\n\n');
+    filename = download(URL, fullfile(working_directory, 'inputs'), true);
 
     fprintf('%-10s:', 'Unzipping dataset...');
-    unzip('MoAEpilot.zip');
+    unzip(filename);
     movefile('MoAEpilot', fullfile(working_directory, 'inputs', 'raw'));
+    delete(filename)
     fprintf(1, ' Done\n\n');
 
   end