Fix DT tables selected row highlight with updating css

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: shiny.semantic
 Title: Semantic UI Support for Shiny
-Version: 0.5.0.9001
+Version: 0.5.0.9002
 Authors@R: c(person("Filip", "Stachura", email = "[email protected]", role = "aut"),
   person("Dominik", "Krzeminski", role = "aut"),
   person("Krystian", "Igras", role = "aut"),

NEWS.md

@@ -4,6 +4,8 @@
 
 - Fixed `update_multiple_checkbox` not supporting choices with single quote.
 
+- `semantic_DT` now accepts style and class arguments.
+
 # [shiny.semantic 0.5.0](https://github.com/Appsilon/shiny.semantic/releases/tag/0.5.0)
 
 - `shiny.semantic` no longer uses CDN as the default source of assets. Instead, `semantic.assets` package was introduced.

R/tables.R

@@ -4,6 +4,8 @@
 #'
 #' @param ... datatable parameters, check \code{?DT::datatable} to learn more.
 #' @param options datatable options, check \code{?DT::datatable} to learn more.
+#' @param style datatable style, check \code{?DT::datatable} to learn more.
+#' @param class datatable class, check \code{?DT::datatable} to learn more.
 #'
 #' @examples
 #' if (interactive()){
@@ -22,11 +24,14 @@
 #' }
 #'
 #' @export
-semantic_DT <- function(..., options = list()) {
-  DT::datatable(..., options = options,
-                class = 'ui small compact table',
-                style = "semanticui",
-                rownames = FALSE)
+semantic_DT <- function(..., options = list(), style = "semanticui", class = 'ui small compact table') {
+  DT::datatable(
+    ...,
+    options = options,
+    class = class,
+    style = style,
+    rownames = FALSE
+  )
 }
 
 #' Semantic DT Output
@@ -36,5 +41,5 @@ semantic_DT <- function(..., options = list()) {
 #' @return DT Output with semanitc style
 #' @export
 semantic_DTOutput <- function(...) {
-    DT::DTOutput(...)
+  DT::DTOutput(...)
 }

inst/www/shiny-semantic-DT.css

@@ -16,3 +16,6 @@
   -webkit-transition: color .1s ease,border-color .1s ease;
   transition: color .1s ease,border-color .1s ease;
 }
+table.dataTable tr.selected td, table.dataTable td.selected {
+  background-color: #95d8f5;
+}