lines

DESCRIPTION

@@ -2,7 +2,7 @@ Package: tinytable
 Type: Package
 Title: Simple and Configurable Tables in 'HTML', 'LaTeX', 'Markdown', 'Word', 'PNG', 'PDF', and 'Typst' Formats
 Description: Create highly customized tables with this simple and dependency-free package. Data frames can be converted to 'HTML', 'LaTeX', 'Markdown', 'Word', 'PNG', 'PDF', or 'Typst' tables. The user interface is minimalist and easy to learn. The syntax concise. 'HTML' tables can be customized using the flexible 'Bootstrap' framework, and 'LaTeX' code with the 'tabularray' package.
-Version: 0.0.3.9002
+Version: 0.0.3.9003
 Depends: 
     R (>= 4.1.0)
 Enhances:

NEWS.md

@@ -5,6 +5,7 @@
 New:
 
 - `j` argument in `style_tt()` and `format_tt()` now accepts a string vector to match columns. Issue #122
+- Line plots: `plot_tt(fun = "line")`
 
 
 ## 0.0.3

R/plot_tt.R

@@ -69,7 +69,7 @@ plot_tt <- function(x,
   }
 
   if (is.character(fun)) {
-    assert_choice(fun, c("histogram", "density", "bar"))
+    assert_choice(fun, c("histogram", "density", "bar", "line"))
   } else {
     assert_function(fun, null.ok = TRUE)
   }
@@ -81,6 +81,9 @@ plot_tt <- function(x,
   } else if (identical(fun, "density")) {
     fun <- rep(list(tiny_density), length(data))
 
+  } else if (identical(fun, "line")) {
+    fun <- rep(list(tiny_line), length(data))
+
   } else if (identical(fun, "bar")) {
     for (idx in seq_along(data)) {
       assert_numeric(data[[idx]], len = 1, name = "data[[1]]")
@@ -227,3 +230,13 @@ tiny_bar <- function(d, color = "black", xlim = 0:1, ...) {
     graphics::barplot(d, horiz = TRUE, col = color, xlim = xlim)
   }
 }
+
+
+tiny_line <- function(d, xlim = 0:1, color = "black", ...) {
+  function() {
+    if (!inherits(d, "data.frame") || !"x" %in% names(d) || !"y" %in% names(d)) {
+      stop("The data to plot a `line` must be a data frame with columns `x` and `y`.", call. = FALSE)
+    }
+    plot(d$x, d$y, type = "l", col = color, axes = FALSE, ann = FALSE, lwd = 50)
+  }
+}

vignettes/tutorial.qmd

@@ -747,14 +747,19 @@ dat <- data.frame(
   Variables = c("mpg", "hp", "qsec"), 
   Histogram = "",
   Density = "",
-  Bar = ""
+  Bar = "",
+  Line = ""
 )
 
+# random data for sparklines
+lines <- lapply(1:3, \(x) data.frame(x = 1:10, y = rnorm(10)))
+
 tt(dat) |>
   plot_tt(j = 2, fun = "histogram", data = plot_data) |>
   plot_tt(j = 3, fun = "density", data = plot_data, color = "darkgreen") |>
   plot_tt(j = 4, fun = "bar", data = list(2, 3, 6), color = "orange") |>
-  style_tt(j = 2:4, align = "c")
+  plot_tt(j = 5, fun = "line", data = lines, color = "blue") |>
+  style_tt(j = 2:5, align = "c")
 ```
 
 ### Custom plots: Base `R`