r - 開始位置と終了位置の間の値を持つリストを作成する

Question

この形式のテキストファイルがあります

begin    end   
1        10    
25       35
40       50
37       48
...      ...

これらのコマンドを使用して、「開始」列と「終了」列の値の間にあるすべての値を含むリストを作成します

x <- read.table("in.txt")

result <- vector("list",486)
      for(i in 1:486){
      result[[i]] <- c(x[i,1]:x[i,2])
      }
lapply(result, write, "out.txt", append=TRUE, ncolumns = 1) 

その結果、すべての値が異なる行にある 1 列のファイルを取得します。今、私は何か余分なことをしたいと思っています。

「開始」列と「終了」列のみの入力ファイルの代わりに、次のように 2 つの列を追加します。

begin    end    A    B
1        10     x    0
25       35     x    1
40       50     x    2
37       48     y    0

これらの他の列の値も出力に表示されるようになり、次のような結果が得られます

position    A    B
1           X    0
2           X    0
3           X    0
...
10          X    0
...
40          X    2
41          X    2
...
37          Y    0        

出力が次のようになるように、関数を変更するにはどうすればよいですか?