Shouldn't `read_txt_Shimadzu()` be faster?

[GegznaV]

On my machine, it takes arround 2 minutes to read GCxGC-qMS.txt file in read_txt_Shimadzu() unit test:

 system.time({
     filename <- system.file(
         "extdata",
         "txt.Shimadzu/GCxGC-qMS.txt",
         package = "hySpc.read.txt"
     )

     spc <- read_txt_Shimadzu(filename)
 })
#>   user  system elapsed 
#> 124.50   17.56  143.90 

143.90/60 ≈ 2.398 min

It is way too long.

Either the function is too slow or the file is too large. What should we do about this, @sangttruong, @bryanhanson, @cbeleites? Should we skip this test for now?

---

Related:

• 33

• 59

• 60

[GegznaV]

This is a piece of RSudio profiling information:

The bottleneck seems to be here (49.4 is memory and 71540 is time usage):

[GegznaV]

[GegznaV]

The test file is large:

[GegznaV]

Can we have a smaller test file? @cbeleites