Detect the valid data
findData(codes)
codes
A character vector to detect
The last data in codes
require(tidyverse) temp <- "iris %>% group_by(Species) %>% summarize_all(mean) table1" findData(temp)