#' Find a certain Bruker Acqus info
#'
#' @param acquisitonInformation parsed acqus
#' @param name acqus metadata name
#' @param type FUN.VALUE for vapply
#'
#' @return spot position vector
#'
#'
extractBrukerAcquistionInfo <- function(acquisitonInformation,
name,
type){
vapply(acquisitonInformation,
function(x) x[[name, exact = TRUE]],
FUN.VALUE = type)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.