Here we will download a single subject from the cross-sectional data with MS using the download_ms_patient function:

library(msmri)
files = download_ms_patient(
  id = 2, 
  cohort = "cross_sectional",
  data = "raw")
library(oro.nifti)
oro.nifti 0.11.0
fname = files[1]