cwilso6 commented 1 year ago

I am attempting to make tables for a Word document where I want a border above the footnote. However, I have merged cells in the last row of the actual table. The border does not extend the entire width of the table, it does not put a border on the column with the merged cells. In my example, the column with the merged cells happens to be the left-most column. I have attempted several workarounds but none of them seem to work. Below is an example:

output: word_document

knitr::opts_chunk$set(echo = FALSE)
library(huxtable)
library(tidyverse)

data = rbind(mtcars |> rownames_to_column('Car'), 
             mtcars |> rownames_to_column('Car')) |>
  mutate(Car = factor(Car)) |>
  arrange(Car) |>
  head(10) |>
  mutate(Car = as.character(Car))

Without merging cells

#Without merging cells

ht <- as_hux(data, add_colnames = T)|>
  add_footnote(text = "footer", border = 0.4) |>
  set_caption('Title') |>
  set_caption_pos(value =  'topleft')

bottom_border(ht)[1,] <- brdr(thickness = 0.4)
top_border(ht)[1,] <- brdr(thickness = 0.4)

ht

\newpage

Merging cells

ht <- as_hux(data, add_colnames = T)|>
  add_footnote(text = "footer", border = 0.4) |>
  merge_repeated_rows(col = 1) |>
  set_caption('Title') |>
  set_caption_pos(value =  'topleft')

bottom_border(ht)[1,] <- brdr(thickness = 0.4)
top_border(ht)[1,] <- brdr(thickness = 0.4)

ht

\newpage

ht <- as_hux(data, add_colnames = T)|>
  add_footnote(text = "footer", border = 0) |> #changed to border to 0
  merge_repeated_rows(col = 1) |>
  set_caption('Title') |>
  set_caption_pos(value =  'topleft')

bottom_border(ht)[1,] <- brdr(thickness = 0.4)
top_border(ht)[1,] <- brdr(thickness = 0.4)
top_border(ht)[nrow(data)+2,] <- brdr(thickness = 0.4) # the +2 is accounting for the column names and footer
top_border(ht)[nrow(data)+2,1] <- brdr(thickness = 0.4) # to attenpt to get the first column

ht