Merge pull request #2 from Boehringer-Ingelheim/dev

Dev to test

Author: mingstat

.Rbuildignore

@@ -1,3 +1,5 @@
+^renv$
+^renv\.lock$
 ^dv.templates\.Rproj$
 ^\.Rproj\.user$
 ^.*\.Rproj$
@@ -8,3 +10,5 @@ _pkgdown.yml
 workflows.md
 ^.lintr$
 .gitempty
+^\.lintr\.R$
+^docs$

.gitignore

@@ -1,2 +1,5 @@
 .Rproj.user
+.Rprofile
 docs/
+renv/
+renv.lock

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: dv.swimmerplot
 Title: DaVinci Swimmer Plot Module
-Version: 1.1.0
+Version: 1.1.0-9000
 Authors@R: c(
       person(given = "Ming",
              family = "Yang",
@@ -26,11 +26,11 @@ Depends: R (>= 4.1.0)
 Imports:
     checkmate,
     dplyr,
-    ggforce,
     ggiraph,
     ggplot2,
     rlang,
-    shiny
+    shiny,
+    shinyWidgets
 Suggests:
     dv.manager,
     jsonlite,
@@ -43,4 +43,4 @@ Suggests:
     xml2
 Remotes: boehringer-ingelheim/dv.manager@main
 VignetteBuilder: knitr
-RoxygenNote: 7.3.2
+RoxygenNote: 7.3.3

NEWS.md

@@ -1,3 +1,8 @@
+# dv.swimmerplot 1.1.0-9000
+
+- Added local filtering support.
+- Added support for text annotations.
+
 # dv.swimmerplot 1.1.0
 
 - Complete reimplementation of the visualization engine

R/mock_swimmerplot_mm.R

@@ -82,7 +82,10 @@ mock_swimmerplot_mm <- function() {
     plot_x_label = "Study Day",
     plot_y_label = "Subject ID",
     plot_width = 10,
-    plot_height = NULL
+    plot_height = NULL,
+    filter_data = "rs",
+    filter_var = "RSORRES",
+    filter_values = c("CR", "SD")
   )
 
   module_list <- list(