Merge pull request #33 from Boehringer-Ingelheim/330557-DR_snippet_sync

330557 dr snippet sync

Author: ml-ebs-ext

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: dv.edish
 Title: eDISH Plot Module for DILI assessment
-Version: 2.0.1-9001
+Version: 2.0.1-9002
 Authors@R: c(
     person("Boehringer-Ingelheim Pharma GmbH & Co.KG", role = c("cph", "fnd")),
     person("Isabel", "Glauss", , "isabel.glauss@boehringer-ingelheim.com", role = c("aut", "cre")),

NEWS.md

@@ -1,3 +1,7 @@
+# dv.edish 2.0.1-9002
+
+- [NOT USER-FACING] Update DR.R snippet
+
 # dv.edish 2.0.1-9001
 
 - [NOT USER-FACING] Update CM.R snippet

R/DR.R

@@ -1,4 +1,4 @@
-# YT#VH6cbb4db897d00c26bed7291a0f2f8658#VH00000000000000000000000000000000#
+# YT#VHb8d7094dccccb00c0c217628906ca717#VH6cbb4db897d00c26bed7291a0f2f8658#
 DR <- local({ # _D_ressing _R_oom
   inline_shiny_input <- function(elem, label = NULL, name_selector = NULL, label_elem = NULL) {
     if (is.character(label) && length(label) == 1 && nchar(label) > 0) {
@@ -90,9 +90,9 @@ DR <- local({ # _D_ressing _R_oom
   explorer_ui <- function() {
     panel <- function(...) {
       shiny::div(
-        class = "panel panel-default",
+        class = "card",
         style = "background-color:#eff7ff;",
-        shiny::div(class = "panel-body", style = "padding-bottom:0.5rem;", ...)
+        shiny::div(class = "card-body", style = "padding-bottom:0.5rem;", ...)
       )
     }