Nothing
#' Constructor for mx_dataset object
#'
#' @inheritParams mx_dataset
#'
#' @return mx_dataset object with attributes `data` (data.frame), `slide_id` (character), `image_id` (character), `marker_cols` (vector), `metadata_cols` (default: NULL, otherwise vector).
#' @noRd
new_mx_dataset <- function(data = data.frame(),
slide_id = character(),
image_id = character(),
marker_cols = vector(),
metadata_cols = NULL){
## confirm types are correct
stopifnot(is.data.frame(data))
stopifnot(is.character(slide_id))
stopifnot(is.character(image_id))
## create object
ret = list(data = data,
slide_id = slide_id,
image_id = image_id,
marker_cols = marker_cols,
metadata_cols = metadata_cols
)
class(ret) = "mx_dataset"
ret
}
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.