Merge pull request #54 from HTAhackathon2024/interactive-table

Interactive table

DESCRIPTION

@@ -7,7 +7,8 @@ Imports:
     gh,
     logger,
     purrr,
-    tools
+    tools,
+    DT
 Suggests:
     testthat,
     knitr,

index.qmd

@@ -5,6 +5,7 @@ logo: logo.jpg
 format:
     html:
         page-layout: full
+        css: styles.css
 execute: 
   echo: false
 ---
@@ -20,5 +21,21 @@ This project was started as part of a R-HTA Hackathon held at the University of
 
 ```{r}
 dat <- read.csv("data/data.csv")
-DT::datatable(dat)
+#PLACEHOLDER - WILL MOVE TO PROCESSING SCRIPTS
+names(dat) <- c("Package",
+                "Title",
+                "Description",
+                "License",
+                "Authors",
+                "Maintainer",
+                "Date published (CRAN)",
+                "Has tests?",
+                "Has Vingettes?",
+                "# contributors",
+                "On CRAN?")
+DT::datatable(dat,
+              options = list(
+                scrollX = TRUE,
+                scrollY = TRUE)
+              )
 ```

styles.css

@@ -0,0 +1,3 @@
+.dataTables_scrollBody {
+  max-height: 70vh; /* 70% of viewport height */
+}