Регулярное выражение, чтобы удалить хвост после свидания

Question

Я посмотрел вокруг, но у меня возникли проблемы с использованием регулярных выражений для удаления «* / tues» из переменной даты с помощью функции sub ().

все переменные в $ date выглядят так:

01/01/2017/Sun
01/03/2017/Tues

и т.д ..

И я пытаюсь сделать это:

sub(a$date,"*7/\\*","")

Я уверен, что только что испортил регулярное выражение.

Как мне избежать первых двух / и сказать ему только удалить третий и все после?

Answer 1

Другое решение - просто обрезать строку:

library("stringr")

# truncate date after 10 characters
a$date <- str_trunc(a$date,10) 

Answer 2

Мы можем использовать

sub("\\/[^0-9]+$","", a$date)
#[1] "01/01/2017" "01/03/2017"

---

Или с substr

substr(a$date, 1, 10)
#[1] "01/01/2017" "01/03/2017"

данные

a <- data.frame(date = c("01/01/2017/Sun", "01/03/2017/Tues"))