x <- pd$title
length(x)
for(i in 1:length(x)){
gplist[i]<- if(str_detect(x[i],"Day 7") == T) {"ICUAW"}
else if (str_detect(x[i],"Day7") == T) {"ICUAW"}
else if (str_detect(x[i],"Month 6") == T) {"M6"}
else {"Healthy Control"}
}
gplist
网友评论