удалить все слова после символа / включая его

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, Simple и т. Д.):

[1] "SINE/" "Simple/" "SINE/" "SINE/" "Simple/"

[6] "SINE/" "SINE/" "Simple/" "SINE/" "SINE/"

[11] "SINE/" "Low_complexity/"

Где ошибка в моем коде?

Answer 1

Простое исправление, не используйте группу захвата:

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