r - 関数 grep( pattern = "A.* comp") に結果がありません

Question

私の以前の投稿を参照してください

grep("A" & "comp") でエラーが発生する

これが私のデータです：データに含まれていないラベル/ヘッダー：時間、グループ、タスク、完了かどうか、時間、クレジット

[1]  10:00 A task1 comp 5:00 200                                                                
[2]  16:00 A task2 comp 3:00 130                                                                    
[3]  11:00 B task1 incomp 7:00 180                                                                                
[4]  17:00 B task2 comp 7:00 100                                                      
[5]  15:00 C task1 incomp 5:00 420                                               
[6]  19:00 C task2 comp 6:00 115   

「A」と「comp」の両方を含む行をgrepする方法について@Codoremifaから助けを得ました

同じコードを使用して、「B」と「comp」を含む行を取得しましたが、これは完全に正常に機能します。次に、もう少し複雑なことをしようとしました。

行を取得すると、"A" と "comp" が含まれ、次の行は "B" と "comp" になります。

動作しているように見える最初の関数を書きましたが、ext(data) で実行すると結果がありません。

ext = function(filename = "data")
{
    rl = readLines(log)
    result = grep(
    x = rl,
    pattern = " A .* comp ",
    value = TRUE)

    if(length(result) == 1){
        rl = readLines(data)
        result = grep(
        x = rl, 
        pattern = " B.* comp ",
        value = TRUE)

 if(length(result) == 1) return(result)

 }
}

ext(data) を実行すると、どういうわけか応答がありません

print()の代わりに使用してみました の代わりにreturn() 使用してみましたが 、まだ機能していません。if(result ==1)if(length(result)==1)

私を助けてください ！！ありがとう！