Rで文字列置換

qq00b<-as.integer(gsub("_s.csv","",qq0))