从每个字符串的末尾删除特定字符

Question

如何从我的数据末尾删除“/”。假设这是我的数据

#input 
ID    page
 1    www.example.com/, ww.example.com/flight, www.example.com/flight/
 2    www.example.com/, ww.example.com/flight

我希望从那些最后一个字符中删除“/”，我的输出将是这样

 #output 
 ID    page
 1    www.example.com, ww.example.com/flight, www.example.com/flight
 2    www.example.com, ww.example.com/flight

Answer 1

一个选项:

gsub("/(?=,|$)", "", as.character(df$page), perl = TRUE)
#[1] "www.example.com, ww.example.com/flight, www.example.com/flight"
#[2] "www.example.com, ww.example.com/flight"

这会检查 / 后面是否跟有逗号 , 或字符串 $ 的结尾，如果找到，则/ 被替换为 ""，即被移除。由于这是回顾，我们使用 perl = TRUE。

其他选项(效率较低):

sapply(strsplit(as.character(df$page), ", ", fixed = TRUE), function(x) toString(sub("/$", "", x)))
#[1] "www.example.com, ww.example.com/flight, www.example.com/flight"
#[2] "www.example.com, ww.example.com/flight"