Pivot to wider formant summary top table

pivot_topTable.R

# topTable summary from limma
table_iv %>%
  # select target coeffients
  dplyr::select(dplyr::all_of( c("Var1", targets_coef))) %>% 
  # pivot coefficient to long format
  tidyr::pivot_longer(!Var1) %>%
  # separate coefficients into new cols
  tidyr::separate(name, into=c("ARMCD", "day")) %>%
  # pivot wider along days/timepoint
  tidyr::pivot_wider(names_from=day, values_from=value) %>%
  # remove not significant proteins
  dplyr::filter(Var1 != "NotSig")