R/clusterTool.R

In dhelkey/clustershard: Analyze and Cluster Compositional Pottery Data

clusterTool = function(id_column = 2,
                       element_start_column = 3,
                       width =  960,
                       height = 960,
                       marker_size = 4, #Maker size on plot
                       pointsize = 36, #Font size
                       cex = 1
                       ){
  appDir = system.file("app", package = 'clustershard')


  #Element names from periodic table and set other global variables
  data(elements)
  shinyOptions(element_names= elements$symbol)
  shinyOptions(id_column=id_column)
  shinyOptions(element_start_column=element_start_column)
  shinyOptions(width=width)
  shinyOptions(height=height)
  shinyOptions(pointsize=pointsize)
  shinyOptions(marker_size=marker_size)
  shinyOptions(cex=cex)

  #Example Code to extract variables
  # element_start_column = getShinyOption('element_start_column')

  shiny::runApp(appDir)
}