Nothing
regionimport <- function(dtblock, region_vars, name_batch){
noncommon <- region_vars[region_vars%nin%names(dtblock)]
if(length(noncommon)>=1){
stop("Following variables not found '",
paste(noncommon, collapse=", ") , "'")
}
region_block <- lapply(region_vars, function(x) dtblock[[x]][])
region_data <- as.data.frame(t(as.data.frame(region_block)))
region_data <- region_data[-1,]
new_frame <- data.frame(region_data )
names(new_frame) <- c("rid","units")
new_frame$analyte <- rownames(region_data)
new_frame$batch <- name_batch
region_data <- new_frame
region_data$batch_analyte <- apply(region_data[,c("batch","analyte")],1,
function(x) paste(x, collapse="*") )
vars <- c("batch_analyte","batch","analyte","rid","units")
region_data <- region_data[,vars]
region_data
}
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.