Handle N in ref.
[lightning.git] / export.go
1 package main
2
3 import (
4         "bufio"
5         "bytes"
6         "context"
7         "errors"
8         "flag"
9         "fmt"
10         "io"
11         "net/http"
12         _ "net/http/pprof"
13         "os"
14         "sort"
15         "strings"
16         "sync"
17         "time"
18
19         "git.arvados.org/arvados.git/sdk/go/arvados"
20         "github.com/arvados/lightning/hgvs"
21         log "github.com/sirupsen/logrus"
22 )
23
24 type outputFormat struct {
25         Print   func(out io.Writer, seqname string, varslice []hgvs.Variant)
26         PadLeft bool
27 }
28
29 var (
30         outputFormats = map[string]outputFormat{
31                 "hgvs": outputFormatHGVS,
32                 "vcf":  outputFormatVCF,
33         }
34         outputFormatHGVS = outputFormat{Print: printHGVS}
35         outputFormatVCF  = outputFormat{Print: printVCF, PadLeft: true}
36 )
37
38 type exporter struct {
39         outputFormat outputFormat
40 }
41
42 func (cmd *exporter) RunCommand(prog string, args []string, stdin io.Reader, stdout, stderr io.Writer) int {
43         var err error
44         defer func() {
45                 if err != nil {
46                         fmt.Fprintf(stderr, "%s\n", err)
47                 }
48         }()
49         flags := flag.NewFlagSet("", flag.ContinueOnError)
50         flags.SetOutput(stderr)
51         pprof := flags.String("pprof", "", "serve Go profile data at http://`[addr]:port`")
52         runlocal := flags.Bool("local", false, "run on local host (default: run in an arvados container)")
53         projectUUID := flags.String("project", "", "project `UUID` for output data")
54         priority := flags.Int("priority", 500, "container request priority")
55         refname := flags.String("ref", "", "reference genome `name`")
56         inputFilename := flags.String("i", "-", "input `file` (library)")
57         outputFilename := flags.String("o", "-", "output `file`")
58         outputFormatStr := flags.String("output-format", "hgvs", "output `format`: hgvs or vcf")
59         outputBed := flags.String("output-bed", "", "also output bed `file`")
60         pick := flags.String("pick", "", "`name` of single genome to export")
61         err = flags.Parse(args)
62         if err == flag.ErrHelp {
63                 err = nil
64                 return 0
65         } else if err != nil {
66                 return 2
67         }
68
69         if f, ok := outputFormats[*outputFormatStr]; !ok {
70                 err = fmt.Errorf("invalid output format %q", *outputFormatStr)
71                 return 2
72         } else {
73                 cmd.outputFormat = f
74         }
75
76         if *pprof != "" {
77                 go func() {
78                         log.Println(http.ListenAndServe(*pprof, nil))
79                 }()
80         }
81
82         if !*runlocal {
83                 if *outputFilename != "-" {
84                         err = errors.New("cannot specify output file in container mode: not implemented")
85                         return 1
86                 }
87                 runner := arvadosContainerRunner{
88                         Name:        "lightning export",
89                         Client:      arvados.NewClientFromEnv(),
90                         ProjectUUID: *projectUUID,
91                         RAM:         128000000000,
92                         VCPUs:       2,
93                         Priority:    *priority,
94                 }
95                 err = runner.TranslatePaths(inputFilename)
96                 if err != nil {
97                         return 1
98                 }
99                 if *outputBed != "" {
100                         if strings.Contains(*outputBed, "/") {
101                                 err = fmt.Errorf("cannot use -output-bed filename %q containing '/' char", *outputBed)
102                                 return 1
103                         }
104                         *outputBed = "/mnt/output/" + *outputBed
105                 }
106                 runner.Args = []string{"export", "-local=true", "-pick", *pick, "-ref", *refname, "-output-format", *outputFormatStr, "-output-bed", *outputBed, "-i", *inputFilename, "-o", "/mnt/output/export.csv"}
107                 var output string
108                 output, err = runner.Run()
109                 if err != nil {
110                         return 1
111                 }
112                 fmt.Fprintln(stdout, output+"/export.csv")
113                 return 0
114         }
115
116         input, err := os.Open(*inputFilename)
117         if err != nil {
118                 return 1
119         }
120         defer input.Close()
121
122         // Error out early if seeking doesn't work on the input file.
123         _, err = input.Seek(0, io.SeekEnd)
124         if err != nil {
125                 return 1
126         }
127         _, err = input.Seek(0, io.SeekStart)
128         if err != nil {
129                 return 1
130         }
131
132         var mtx sync.Mutex
133         var cgs []CompactGenome
134         tilelib := tileLibrary{
135                 includeNoCalls: true,
136         }
137         err = tilelib.LoadGob(context.Background(), input, func(cg CompactGenome) {
138                 if *pick != "" && *pick != cg.Name {
139                         return
140                 }
141                 log.Debugf("export: pick %q", cg.Name)
142                 mtx.Lock()
143                 defer mtx.Unlock()
144                 cgs = append(cgs, cg)
145         })
146         if err != nil {
147                 return 1
148         }
149         sort.Slice(cgs, func(i, j int) bool { return cgs[i].Name < cgs[j].Name })
150         log.Printf("export: pick %q => %d genomes", *pick, len(cgs))
151
152         refseq, ok := tilelib.refseqs[*refname]
153         if !ok {
154                 err = fmt.Errorf("reference name %q not found in input; have %v", *refname, func() (names []string) {
155                         for name := range tilelib.refseqs {
156                                 names = append(names, name)
157                         }
158                         return
159                 }())
160                 return 1
161         }
162
163         _, err = input.Seek(0, io.SeekStart)
164         if err != nil {
165                 return 1
166         }
167
168         var output io.WriteCloser
169         if *outputFilename == "-" {
170                 output = nopCloser{stdout}
171         } else {
172                 output, err = os.OpenFile(*outputFilename, os.O_CREATE|os.O_WRONLY, 0666)
173                 if err != nil {
174                         return 1
175                 }
176                 defer output.Close()
177         }
178         bufw := bufio.NewWriter(output)
179
180         var bedout *os.File
181         var bedbufw *bufio.Writer
182         if *outputBed != "" {
183                 bedout, err = os.OpenFile(*outputBed, os.O_CREATE|os.O_WRONLY, 0666)
184                 if err != nil {
185                         return 1
186                 }
187                 defer bedout.Close()
188                 bedbufw = bufio.NewWriter(bedout)
189         }
190
191         err = cmd.export(bufw, bedout, input, tilelib.taglib.keylen, refseq, cgs)
192         if err != nil {
193                 return 1
194         }
195         err = bufw.Flush()
196         if err != nil {
197                 return 1
198         }
199         err = output.Close()
200         if err != nil {
201                 return 1
202         }
203         if bedout != nil {
204                 err = bedbufw.Flush()
205                 if err != nil {
206                         return 1
207                 }
208                 err = bedout.Close()
209                 if err != nil {
210                         return 1
211                 }
212         }
213         err = input.Close()
214         if err != nil {
215                 return 1
216         }
217         return 0
218 }
219
220 func (cmd *exporter) export(out, bedout io.Writer, librdr io.Reader, taglen int, refseq map[string][]tileLibRef, cgs []CompactGenome) error {
221         need := map[tileLibRef]bool{}
222         var seqnames []string
223         for seqname, librefs := range refseq {
224                 seqnames = append(seqnames, seqname)
225                 for _, libref := range librefs {
226                         if libref.Variant != 0 {
227                                 need[libref] = true
228                         }
229                 }
230         }
231         sort.Strings(seqnames)
232
233         for _, cg := range cgs {
234                 for i, variant := range cg.Variants {
235                         if variant == 0 {
236                                 continue
237                         }
238                         libref := tileLibRef{Tag: tagID(i / 2), Variant: variant}
239                         need[libref] = true
240                 }
241         }
242
243         log.Infof("export: loading %d tile variants", len(need))
244         tileVariant := map[tileLibRef]TileVariant{}
245         err := DecodeLibrary(librdr, func(ent *LibraryEntry) error {
246                 for _, tv := range ent.TileVariants {
247                         libref := tileLibRef{Tag: tv.Tag, Variant: tv.Variant}
248                         if need[libref] {
249                                 tileVariant[libref] = tv
250                         }
251                 }
252                 return nil
253         })
254         if err != nil {
255                 return err
256         }
257
258         log.Infof("export: loaded %d tile variants", len(tileVariant))
259         var missing []tileLibRef
260         for libref := range need {
261                 if _, ok := tileVariant[libref]; !ok {
262                         missing = append(missing, libref)
263                 }
264         }
265         if len(missing) > 0 {
266                 if limit := 100; len(missing) > limit {
267                         log.Warnf("first %d missing tiles: %v", limit, missing[:limit])
268                 } else {
269                         log.Warnf("missing tiles: %v", missing)
270                 }
271                 return fmt.Errorf("%d needed tiles are missing from library", len(missing))
272         }
273
274         refpos := 0
275         for _, seqname := range seqnames {
276                 variantAt := map[int][]hgvs.Variant{} // variantAt[chromOffset][genomeIndex*2+phase]
277                 for refstep, libref := range refseq[seqname] {
278                         reftile := tileVariant[libref]
279                         coverage := int64(0) // number of ref bases that are called in genomes -- max is len(reftile.Sequence)*len(cgs)*2
280                         for cgidx, cg := range cgs {
281                                 for phase := 0; phase < 2; phase++ {
282                                         if len(cg.Variants) <= int(libref.Tag)*2+phase {
283                                                 continue
284                                         }
285                                         variant := cg.Variants[int(libref.Tag)*2+phase]
286                                         if variant == 0 {
287                                                 continue
288                                         }
289                                         genometile := tileVariant[tileLibRef{Tag: libref.Tag, Variant: variant}]
290                                         if variant == libref.Variant {
291                                                 continue
292                                         }
293                                         refSequence := reftile.Sequence
294                                         // If needed, extend the
295                                         // reference sequence up to
296                                         // the tag at the end of the
297                                         // genometile sequence.
298                                         refstepend := refstep + 1
299                                         for refstepend < len(refseq[seqname]) && len(refSequence) >= taglen && !bytes.EqualFold(refSequence[len(refSequence)-taglen:], genometile.Sequence[len(genometile.Sequence)-taglen:]) {
300                                                 if &refSequence[0] == &reftile.Sequence[0] {
301                                                         refSequence = append([]byte(nil), refSequence...)
302                                                 }
303                                                 refSequence = append(refSequence, tileVariant[refseq[seqname][refstepend]].Sequence...)
304                                                 refstepend++
305                                         }
306                                         // (TODO: handle no-calls)
307                                         vars, _ := hgvs.Diff(strings.ToUpper(string(refSequence)), strings.ToUpper(string(genometile.Sequence)), time.Second)
308                                         for _, v := range vars {
309                                                 if cmd.outputFormat.PadLeft {
310                                                         v = v.PadLeft()
311                                                 }
312                                                 v.Position += refpos
313                                                 log.Debugf("%s seq %s phase %d tag %d tile diff %s\n", cg.Name, seqname, phase, libref.Tag, v.String())
314                                                 varslice := variantAt[v.Position]
315                                                 if varslice == nil {
316                                                         varslice = make([]hgvs.Variant, len(cgs)*2)
317                                                         variantAt[v.Position] = varslice
318                                                 }
319                                                 varslice[cgidx*2+phase] = v
320                                         }
321                                         coverage += int64(len(reftile.Sequence))
322                                 }
323                         }
324                         refpos += len(reftile.Sequence) - taglen
325
326                         // Flush entries from variantAt that are
327                         // behind refpos. Flush all entries if this is
328                         // the last reftile of the path/chromosome.
329                         var flushpos []int
330                         lastrefstep := refstep == len(refseq[seqname])-1
331                         for pos := range variantAt {
332                                 if lastrefstep || pos <= refpos {
333                                         flushpos = append(flushpos, pos)
334                                 }
335                         }
336                         sort.Slice(flushpos, func(i, j int) bool { return flushpos[i] < flushpos[j] })
337                         for _, pos := range flushpos {
338                                 varslice := variantAt[pos]
339                                 delete(variantAt, pos)
340                                 for i := range varslice {
341                                         if varslice[i].Position == 0 {
342                                                 varslice[i].Position = pos
343                                         }
344                                 }
345                                 cmd.outputFormat.Print(out, seqname, varslice)
346                         }
347                         if bedout != nil && len(reftile.Sequence) > 0 {
348                                 tilestart := refpos - len(reftile.Sequence) + taglen
349                                 tileend := refpos
350                                 if !lastrefstep {
351                                         tileend += taglen
352                                 }
353                                 thickstart := tilestart + taglen
354                                 if refstep == 0 {
355                                         thickstart = 0
356                                 }
357                                 thickend := refpos
358                                 // coverage score, 0 to 1000
359                                 score := 1000 * coverage / int64(len(reftile.Sequence)) / int64(len(cgs)) / 2
360                                 fmt.Fprintf(bedout, "%s %d %d %d %d . %d %d\n",
361                                         seqname, tilestart, tileend,
362                                         libref.Tag,
363                                         score,
364                                         thickstart, thickend)
365                         }
366                 }
367         }
368         return nil
369 }
370
371 func printVCF(out io.Writer, seqname string, varslice []hgvs.Variant) {
372         refs := map[string]map[string]int{}
373         for _, v := range varslice {
374                 if v.Ref == "" && v.New == "" {
375                         continue
376                 }
377                 alts := refs[v.Ref]
378                 if alts == nil {
379                         alts = map[string]int{}
380                         refs[v.Ref] = alts
381                 }
382                 alts[v.New] = 0
383         }
384         for ref, alts := range refs {
385                 var altslice []string
386                 for alt := range alts {
387                         altslice = append(altslice, alt)
388                 }
389                 sort.Strings(altslice)
390                 for i, a := range altslice {
391                         alts[a] = i + 1
392                 }
393                 fmt.Fprintf(out, "%s\t%d\t%s\t%s", seqname, varslice[0].Position, ref, strings.Join(altslice, ","))
394                 for i := 0; i < len(varslice); i += 2 {
395                         v1, v2 := varslice[i], varslice[i+1]
396                         a1, a2 := alts[v1.New], alts[v2.New]
397                         if v1.Ref != ref {
398                                 a1 = 0
399                         }
400                         if v2.Ref != ref {
401                                 a2 = 0
402                         }
403                         fmt.Fprintf(out, "\t%d/%d", a1, a2)
404                 }
405                 out.Write([]byte{'\n'})
406         }
407 }
408
409 func printHGVS(out io.Writer, seqname string, varslice []hgvs.Variant) {
410         for i := 0; i < len(varslice)/2; i++ {
411                 if i > 0 {
412                         out.Write([]byte{'\t'})
413                 }
414                 var1, var2 := varslice[i*2], varslice[i*2+1]
415                 if var1 == var2 {
416                         if var1.Ref == var1.New {
417                                 out.Write([]byte{'.'})
418                         } else {
419                                 fmt.Fprintf(out, "%s:g.%s", seqname, var1.String())
420                         }
421                 } else {
422                         fmt.Fprintf(out, "%s:g.[%s];[%s]", seqname, var1.String(), var2.String())
423                 }
424         }
425         out.Write([]byte{'\n'})
426 }