library(hgu133plus2hsensgcdf) # BiocManager::install("hgu133plus2hsensgcdf")
library(CustomCDF) # http://arrayanalysis.mbni.med.umich.edu/MBNIUM.html
cels <- list.celfiles("/my.cel.path/", full.names = T)
abatch <- ReadAffy(filenames = cels)
abatch@cdfName <- "HGU133Plus2_Hs_ENSG"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.