check_names <- function(dir.name, col.names)
{
for(f in list.files(path = dir.name, pattern = "*.fcs", full.names = T))
{
fcs.file <- read.FCS(f)
tab <- convert_fcs(fcs.file)
colnames(tab) <- pData(parameters(fcs.file))$desc
s <- paste("File", f, "is missing variables:")
print(paste(s, col.names[!(col.names %in% names(tab))]))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.