Oncomine_meta_onefile_empty <- function(){
files=list.files() #get all the data picture
txtcheck=files[grepl(pattern = ".txt",x = files)==FALSE]
docxcheck=txtcheck[grepl(pattern = ".docx",x = txtcheck)==FALSE]
doccheck=docxcheck[grepl(pattern = ".doc",x = docxcheck)==FALSE]
if (length(doccheck)==0){
oncomine_meta_onefile_empty=Oncomine_meta_onefile_notempty(files)
return(oncomine_meta_onefile_empty)
}else{
doccheck1=paste(doccheck,collapse="\n")
warning("The following files shoul be removed","\n",doccheck1)
stop("Please make sure ONLY data file end with .txt .doc .docx including in the working directory. Or give object to this function")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.