library(tidyverse)
library(openxlsx)
wb.df1 <- loadWorkbook(file="./data/chap7data.xlsx")
names(wb.df1)
icc.df <- read.xlsx(xlsxFile=wb.df1, sheet = "IccData")
icc.df <- as_tibble(icc.df)
vsoft1 <- icc.df %>%
  group_by(VSOFT) %>%
  summarize(across(c(vglobal,vlad,vlcx),sum,
                   .names="tot_{.col}"))
vsoft2 <- icc.df %>%
  group_by(VSOFT) %>%
  summarize(across(contains("vseg"),sum,
                   .names="tot_{.col}"))
print.data.frame(vsoft1)
print.data.frame(vsoft2)

addWorksheet(wb=wb.df1,sheetName="summaryStats1",
             tabColour = "red")
addWorksheet(wb=wb.df1,sheetName="summaryStats2",
             tabColour = "blue")
#- Write R object to an Excel Worksheet
writeData(wb=wb.df1, sheet="summaryStats1", x=vsoft1, 
          startCol = 1, startRow = 2, rowNames = FALSE)
writeData(wb=wb.df1, sheet="summaryStats2", x=vsoft2, 
          startCol = 1, startRow = 2, rowNames = FALSE)
saveWorkbook(wb.df1, "./data/summaryFile.xlsx", 
             overwrite = TRUE)