Type:	Package
Title:	'Shiny' Applications for the R Package 'Luminescence'
Version:	0.2.5
Date:	2025-07-12
Description:	A collection of 'shiny' applications for the R package 'Luminescence'. These mainly, but not exclusively, include applications for plotting chronometric data from e.g. luminescence or radiocarbon dating. It further provides access to bootstraps tooltip and popover functionality and contains the 'jscolor.js' library with a custom 'shiny' output binding.
License:	GPL-3 | file LICENSE
Encoding:	UTF-8
Depends:	R (≥ 4.3)
Imports:	Luminescence (≥ 1.1.0), shiny (≥ 1.11.1), rhandsontable (≥ 0.3.8), data.table (≥ 1.17.6), googleVis (≥ 0.7.3), leaflet (≥ 2.2.2), shinydashboard (≥ 0.7.3), RCarb (≥ 0.1.6), markdown (≥ 1.13), readxl (≥ 1.4.5), DT (≥ 0.33), knitr (≥ 1.50)
URL:	https://tzerk.github.io/RLumShiny/
BugReports:	https://github.com/tzerk/RLumShiny/issues
RoxygenNote:	7.3.2
NeedsCompilation:	no
Packaged:	2025-07-12 17:43:41 UTC; fury
Author:	Christoph Burow [aut, cre], Urs Tilmann Wolpert [aut], Sebastian Kreutzer [aut], Marco Colombo [aut], R Luminescence Package Team [ctb], Jan Odvarko [cph] (jscolor.js in www/jscolor), AnalytixWare [cph] (ShinySky package), RStudio [cph] (chooser_inputBinding.js in www/ and chooser.R in R/)
Maintainer:	Christoph Burow <christoph.burow@gmx.net>
Repository:	CRAN
Date/Publication:	2025-07-12 18:10:02 UTC

Shiny Applications for the R Package Luminescence

Description

A collection of shiny applications for the R package Luminescence. These mainly, but not exclusively, include applications for plotting chronometric data from e.g. luminescence or radiocarbon dating. It further provides access to bootstraps tooltip and popover functionality as well as a binding to JSColor.

Details

In addition to its main purpose of providing convenient access to the Luminescence shiny applications (see app_RLum) this package also provides further functions to extend the functionality of shiny. From the Bootstrap framework the JavaScript tooltip and popover components can be added to any shiny application via tooltip and popover. It further provides a custom input binding to the JavaScript/HTML color picker JSColor. Offering access to most options provided by the JSColor API the function jscolorInput is easily implemented in a shiny app. RGB colors are returned as hex values and can be directly used in R's base plotting functions without the need of any format conversion.

Author(s)

Maintainer: Christoph Burow christoph.burow@gmx.net (ORCID)

Authors:

• Urs Tilmann Wolpert

• Sebastian Kreutzer (ORCID)

• Marco Colombo (ORCID)

Other contributors:

• R Luminescence Package Team [contributor]

• Jan Odvarko (jscolor.js in www/jscolor) [copyright holder]

• AnalytixWare (ShinySky package) [copyright holder]

• RStudio (chooser_inputBinding.js in www/ and chooser.R in R/) [copyright holder]

See Also

Useful links:

• https://tzerk.github.io/RLumShiny/

• Report bugs at https://github.com/tzerk/RLumShiny/issues

RLumShiny Dashboard Addin

Description

RLumShiny dashboard

Usage

RLumShinyAddin()

Run Luminescence shiny apps

Description

A wrapper for shiny::runApp to start interactive shiny apps for the R package Luminescence.

The RLumShiny package provides a single function from which all shiny apps can be started: app_RLum(). It essentially only takes one argument, which is a unique keyword specifying which application to start. See the table below for a list of available shiny apps and which keywords to use. If no keyword is used a dashboard will be started instead, from which an application can be started.

The app_RLum() function is just a wrapper for shiny::runApp. Via the ... argument further arguments can be directly passed to shiny::runApp. See ?shiny::runApp for further details on valid arguments.

Usage

app_RLum(app = NULL, ...)

Arguments

Author(s)

Christoph Burow, University of Cologne (Germany)

See Also

shiny::runApp

Examples

## Not run: 
# Dashboard
app_RLum()

# Plotting apps
app_RLum("abanico")
app_RLum("histogram")
app_RLum("KDE")
app_RLum("radialplot")
app_RLum("doserecovery")

# Further apps
app_RLum("aliquotsize")
app_RLum("cosmicdose")
app_RLum("transformCW")
app_RLum("filter")
app_RLum("fastratio")
app_RLum("fading")
app_RLum("finitemixture")
app_RLum("huntley2006")
app_RLum("irsarRF")
app_RLum("lmcurve")
app_RLum("surfaceexposure")
app_RLum("teststimulationpower")
app_RLum("scalegamma")
app_RLum("RCarb")

## End(Not run)

Create a JSColor picker input widget

Description

Creates a JSColor (Javascript/HTML Color Picker) widget to be used in shiny applications.

Usage

jscolorInput(
  inputId,
  label,
  value,
  position = "bottom",
  color = "transparent",
  mode = "HSV",
  slider = TRUE,
  close = FALSE
)

Arguments

See Also

Other input.elements: shiny::animationOptions, shiny::sliderInput; shiny::checkboxGroupInput; shiny::checkboxInput; shiny::dateInput; shiny::dateRangeInput; shiny::fileInput; shiny::numericInput; shiny::passwordInput; shiny::radioButtons; shiny::selectInput, shiny::selectizeInput; shiny::submitButton; shiny::textInput

Examples

# html code
jscolorInput("col", "Color", "21BF6B", slider = FALSE)

# example app
## Not run: 
shinyApp(
ui = fluidPage(
  jscolorInput(inputId = "col", label = "JSColor Picker",
               value = "21BF6B", position = "right",
               mode = "HVS", close = TRUE),
  plotOutput("plot")
),
server = function(input, output) {
  output$plot <- renderPlot({
    plot(cars, col = input$col, cex = 2, pch = 16)
 })
})

## End(Not run)

Create a bootstrap button with popover

Description

Add small overlays of content for housing secondary information.

Usage

popover(
  title,
  content,
  header = NULL,
  html = TRUE,
  class = "btn btn-default",
  placement = c("right", "top", "left", "bottom"),
  trigger = c("click", "hover", "focus", "manual")
)

Arguments

Examples

# html code
popover("title", "Some content")

# example app
## Not run: 
shinyApp(
ui = fluidPage(
  jscolorInput(inputId = "col", label = "JSColor Picker", 
               value = "21BF6B", position = "right", 
               mode = "HVS", close = TRUE),
  popover(title = "Help!", content = "Call 911"),
  plotOutput("plot")
),
server = function(input, output) {
  output$plot <- renderPlot({
    plot(cars, col = input$col, cex = 2, pch = 16)
 })
})

## End(Not run)

Create a bootstrap tooltip

Description

Create bootstrap tooltips for any HTML element to be used in shiny applications.

Usage

tooltip(
  refId,
  text,
  attr = NULL,
  animation = TRUE,
  delay = 100,
  html = TRUE,
  placement = "auto",
  trigger = "hover"
)

Arguments

Examples

# javascript code
tt <- tooltip("elementId", "This is a tooltip.")
str(tt)

# example app
## Not run: 
shinyApp(
ui = fluidPage(
  jscolorInput(inputId = "col", label = "JSColor Picker", 
               value = "21BF6B", position = "right", 
               mode = "HVS", close = TRUE),
  tooltip("col", "This is a JScolor widget"),
  
  checkboxInput("cbox", "Checkbox", FALSE),
  tooltip("cbox", "This is a checkbox"),
  
  checkboxGroupInput("cboxg", "Checkbox group", selected = "a", 
                     choices = c("a" = "a",
                                 "b" = "b",
                                 "c" = "c")),
  tooltip("cboxg", "This is a <b>checkbox group</b>", html = TRUE),
  
  selectInput("select", "Selectinput", selected = "a", choices = c("a"="a", "b"="b")),
  tooltip("select", "This is a text input field", attr = "for", placement = "right"),
  
  passwordInput("pwIn", "Passwordinput"),
  tooltip("pwIn", "This is a password input field"),
  
  plotOutput("plot")
),
server = function(input, output) {
  output$plot <- renderPlot({
    plot(cars, col = input$col, cex = 2, pch = 16)
 })
})

## End(Not run)