beader

Title: Dynamically Remove UI Elements
Author: [email protected]
DisplayMode: Showcase
Type: Shiny

beader

#' convert a dgcMatrix to libsvm format
#' @param sm A sparse matrix of class "dgcMatrix"
#' @param label label for dataset, default is 0
#' @return a vector of characters containing index:value
#' @example 
#' regMat <- matrix(runif(16), 4, 4)
#' regMat[sample(16, 5)] <- 0
#' sparseMat <- Matrix(regMat, sparse = T)
#' conv2libsvm(sparseMat)
conv2libsvm <- function(sm, label = rep(0, dim(sm)[1])) {

beader

id_maker <- function(prefix = make_random_string()) {
  function(id) {
    paste(prefix, id, sep = "_")
  }
}

make_random_string <- function(n=1, len=12, chars=c(0:9, letters, LETTERS)) {
  randomString <- sapply(seq(n), function(i) {
    paste(sample(chars, len, replace = TRUE), collapse = "")
  })

beader

beader

beader

beader

bl.ocks.org test

beader

beader

beader