1 2 3 4 5 6 7 8 9 10
| f_scVelo_label_reduction <- function(dfl, workdir, groupN, outDir){ outDir = file.path(workdir, outDir, 'velocyto', 'metadata.csv') write.csv(dfl[[groupN]], outDir) }
work='/home/jovyan/upload/zl_liu/data/data/res' f_scVelo_label_reduction(test, work, 'patient1', 'hPB003') f_scVelo_label_reduction(test, work, 'patient3', 'hPB004') f_scVelo_label_reduction(test, work, 'patient4', 'hPB006') f_scVelo_label_reduction(test, work, 'patient5', 'hPB007')
|