det_specs <- data.frame("detector name" = c("Alice", "Sweepea", "Popeye", "Oliveoyl"), "detector model" = c("BE3825","BE3825","GC4018","GCW4023"), "serial number" = c("13263", "8970", "9944", "1570")) kable(det_specs, "pipe")