Merge pull request #22 from Bayer-Group/21_hover_font_color

Updated hover panels with improved color contrast and built-in sorting feature to move selected/highlighted/reference subgroups to the top

Author: TammoReinders

R/golem_utils_server.R

@@ -11,53 +11,53 @@ not_null <- Negate(is.null)
 
 not_na <- Negate(is.na)
 
-#' Removes the null from a vector
-#'
-#' @noRd
-#'
-#' @example
-#' drop_nulls(list(1, NULL, 2))
-drop_nulls <- function(x) {
-  x[!sapply(x, is.null)]
-}
-
-#' If x is `NULL`, return y, otherwise return x
-#'
-#' @param x,y Two elements to test, one potentially `NULL`
-#'
-#' @noRd
-#'
-#' @examples
-#' NULL %||% 1
-"%||%" <- function(x, y) {
-  if (is.null(x)) {
-    y
-  } else {
-    x
-  }
-}
-
-#' If x is `NA`, return y, otherwise return x
-#'
-#' @param x,y Two elements to test, one potentially `NA`
-#'
-#' @noRd
-#'
-#' @examples
-#' NA %|NA|% 1
-"%|NA|%" <- function(x, y) {
-  if (is.na(x)) {
-    y
-  } else {
-    x
-  }
-}
-
-#' Typing reactiveValues is too long
-#'
-#' @inheritParams reactiveValues
-#' @inheritParams reactiveValuesToList
-#'
-#' @noRd
-rv <- function(...) shiny::reactiveValues(...)
-rvtl <- function(...) shiny::reactiveValuesToList(...)
+#' #' Removes the null from a vector
+#' #'
+#' #' @noRd
+#' #'
+#' #' @example
+#' #' drop_nulls(list(1, NULL, 2))
+#' drop_nulls <- function(x) {
+#'   x[!sapply(x, is.null)]
+#' }
+#' 
+#' #' If x is `NULL`, return y, otherwise return x
+#' #'
+#' #' @param x,y Two elements to test, one potentially `NULL`
+#' #'
+#' #' @noRd
+#' #'
+#' #' @examples
+#' #' NULL %||% 1
+#' "%||%" <- function(x, y) {
+#'   if (is.null(x)) {
+#'     y
+#'   } else {
+#'     x
+#'   }
+#' }
+#' 
+#' #' If x is `NA`, return y, otherwise return x
+#' #'
+#' #' @param x,y Two elements to test, one potentially `NA`
+#' #'
+#' #' @noRd
+#' #'
+#' #' @examples
+#' #' NA %|NA|% 1
+#' "%|NA|%" <- function(x, y) {
+#'   if (is.na(x)) {
+#'     y
+#'   } else {
+#'     x
+#'   }
+#' }
+#' 
+#' #' Typing reactiveValues is too long
+#' #'
+#' #' @inheritParams reactiveValues
+#' #' @inheritParams reactiveValuesToList
+#' #'
+#' #' @noRd
+#' rv <- function(...) shiny::reactiveValues(...)
+#' rvtl <- function(...) shiny::reactiveValuesToList(...)