@@ -206,8 +206,7 @@ sanger_files<-function(fi,value){
206206 samps <- samps [- c(1 : 2 ),]| > as.data.frame()| >
207207 tibble :: rownames_to_column(' other_id' )| >
208208 left_join(sanger_samples )| >
209- dplyr :: rename(source = ' data_source' ,study = ' dataset_name' ) %> %
210- mutate(source = " Sanger" )
209+ dplyr :: rename(source = ' data_source' ,study = ' dataset_name' )
211210
212211 missing <- subset(samps ,is.na(improve_sample_id ))| >
213212 dplyr :: select(- c(other_id ,improve_sample_id ))| >
@@ -567,12 +566,16 @@ main<-function(){
567566 lapply(alltypes ,function (dt ){
568567 print(dt )
569568 temps <- sanger_files(sanger_filenames [[dt ]],dt )| > tidyr :: drop_na()
569+ readr :: write_csv(temps ,file = paste0(' /tmp/sanger_' ,dt ,' .csv.gz' ))
570570 tempd <- depmap_files(depmap_filenames [[dt ]],dt )| > tidyr :: drop_na()
571- readr :: write_csv(rbind(tempd ,temps ),file = paste0(' /tmp/broad_sanger_' ,dt ,' .csv.gz' ))
571+ readr :: write_csv(tempd ,file = paste0(' /tmp/broad_' ,dt ,' .csv.gz' ))
572+
573+ # readr::write_csv(rbind(tempd,temps),file=paste0('/tmp/broad_sanger_',dt,'.csv.gz'))
572574 rm(tempd )
573575 rm(temps )
574576 })
575577
576578}
577579
578- main()
580+ main()
581+
0 commit comments