R/shiny_extras.R

In powdR: Full Pattern Summation of X-Ray Powder Diffraction Data

#' @importFrom shinyWidgets dropdownButton
#' @importFrom DT dataTableOutput
.sns <- function(x) {

sw <- dropdownButton()

dt <- dataTableOutput(outputId = x)

return = list(sw, dt)

}