Nothing
makeCellHTS = function(x, profiles, measurementNames, name) {
if (!is.data.frame(profiles)) stop("'profiles' must a be a data frame containing the phenotypic profiles")
if (ncol(profiles)>10) stop('too many features (columns) in phenotypic profiles')
if (!'uname'%in%colnames(profiles)) stop("'profiles' must contain the 'uname' field")
prw = uname2prw(profiles$uname)
well = rowcol2well(prw$row, prw$col)
profiles$uname = NULL
xd = data.frame(plate=prw$plate, replicate=prw$replicate, well=well, profiles)
if (missing(measurementNames)) y = buildCellHTS2(xd)
else y = buildCellHTS2(xd, measurementNames)
if (!missing(name)) name(y) = name
y
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.