Avoid use of select all Remove

[tsostarics]

Currently the Close Praat Objects button just uses a temporary script to execute select all then Remove, but this will cause people to lose any new objects that they may have created while inspecting files.

A safer approach would be to set up a Table object whenever a script is first run from PitchMendR, then append indices for each file that's loaded during the session. The close objects button would then look up the indices in the Table object and remove the files one by one.

So something like

Setup (add to temp_praat_script_utils.R):

# If no table object exists already, create one
tableObj = undefined
nocheck selectObject = "Table objsFromPitchMendR"
tableObj = nocheck selected()
if tableObj = undefined
  tableObj = Create Table with column names: "objsFromPitchMendR", 1, { "objIndex" }
endif
selectObject: tableObj
nrows = Get number of Rows

Appending (add to sendToPraat reactive in module_praat.R):

# ...file was loaded...
soundObj = selected("Sound")
textgridObj = selected("TextGrid")

selectObject: "Table objsFromPitchMendR"
Append row
nrows = Get number of Rows
Set numeric value: nrows, "objIndex", soundObj

Append row
nrows = nrows+1
Set numeric value: nrows, "objIndex", textgridObj

Removing (add to closePraatFiles reactive in module_praat.R)

selectObject = "Table objsFromPitchMendR"

nRows = Get number of rows

for i from 1 to nRows
  objNumber = Get value: 1, "objIndex"
  nocheck removeObject: objNumber
  nocheck Remove row: 1
endfor