在问号之前获得字符串的一部分

Question

我有一个字符串表，如：

START0001?sthEND1,
START002?sthEND2,
START03?sthEND3,
START4

我怎样才能获得该表：

START1,
START2,
START3,
START4
?

我可以这样做     GSUB（子（ '^（[^] +）*'， ''，napis）， “”，napis） 但是“？”有问题毕竟留下的标志。

Answer 1

试试这个：

y<-"START0001?sthEND1"
x<-unlist(strsplit(y,""))
idx<-which(grepl("\\?",x))
x<-paste0(x[1:(idx-1)],collapse = "")
x<-gsub("0","",x)