删除字符后的所有单词/包括它

Question

我有这个元素列表，我用名称行调用了

它

 row <-
    [[798]]
    [1] "SINE/tRNA-Deu"
    [[799]]
    [1] "Simple/repeat"
    [[800]]
    [1] "SINE/tRNA-Deu"

    [[802]]
    [1] "SINE/tRNA-gip"
    [[803]]
    [1] "Simple/repeat"
    [[804]]
    [1] "SINE/MIR"
    [[805]]
    [1] "SINE/tRNA-Deu"
    [[806]]
    [1] "Simple/repeat"
    [[807]]
    [1] "SINE/tRNA-Deu"
    [[808]]
    [1] "SINE/tRNA-Deu"
    [[809]]
    [1] "SINE/tRNA-Deu"
    [[813]]
    [1] "Low_complexity/alfa"

有没有办法消除所有元素之后/中的所有单词？我试过这个：

row1 <- gsub("(/).*", "\1", row)

但在输出中，不会删除字符"/"。我不想将其包含在元素的名称中(例如 SINE、简单等(：

[1] "SINE/" "Simple/" "SINE/" "SINE/" "Simple/"
[6] "SINE/" "SINE/" "Simple/" "SINE/" "SINE/"
[11] "SINE/" "Low_complexity/"

我的代码中的错误在哪里？

Answer 1

一个简单的

修复，不要使用捕获组：

row1 <- gsub("/.*", "", row)