vikatti

library(openxlsx)
library(dplyr)
library(testthat)

TNBN_test_data <- data.frame(col1 = 1:10,
                             col2 = 10:1,
                             col3 = seq(10, 100, 10),
                             col4 = seq(100, 10, -10))

bg_blue <- createStyle(bgFill = "skyblue")