Minor refactor of upload function so nested functions are clearer

[codecov[bot]]

Codecov Report

Attention: 13 lines in your changes are missing coverage. Please review.

Comparison is base (73fbf1e) 93.79% compared to head (7b78b02) 93.75%. Report is 9 commits behind head on develop.

Files	Patch %	Lines
R/DataModel.R	92.39%	13 Missing :warning:

Additional details and impacted files

```diff @@ Coverage Diff @@ ## develop #48 +/- ## =========================================== - Coverage 93.79% 93.75% -0.04% =========================================== Files 8 8 Lines 918 929 +11 =========================================== + Hits 861 871 +10 - Misses 57 58 +1 ```

:umbrella: View full report in Codecov by Sentry.
:loudspeaker: Have feedback on the report? Share it here.