#' masanPCAInput
#'
#' module input
#'
#' @param df_1 reactive SDRF information
#' @param id namespace id
#'
#' @return
#' @export
#'
#' @examples
masanPcaInput <- function(id, df_1=NULL) {
ns <- NS(id)
actionButton(ns('action_button_pca'))
}
#' masanPca
#'
#' module masanPca
#'
#' @param input input
#' @param output output
#' @param session session
#' @param exp_data expression data
#'
#' @return
#' @export
#'
#' @examples
masanPca <- function(input, output, session, exp_data) {
}
#' masanPcaUI
#'
#' @param id namespace id
#'
#' @return
#' @export
#'
#' @examples
masanPcaUI <- function(id) {
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.