[R] trouble with tkgetOpenFile

[Gang Chen]

I'm trying to use the following loop to open a window multiple times
to select files, but only the last window shows up. What am I missing?

library(tcltk)
nWin <- 6
fn <- vector('list', nWin)
for (ii in nWin) {
   fn[[ii]] <- tclvalue( tkgetOpenFile( filetypes =
       "{{Files} {.1D}} {{All files} *}",
       title = paste('Choose number', ii, 'time series file')))
}

TIA,
Gang