пустые ячейки из apa_tables в вязании папайи в текстовый документ с дополнительным интервалом - PullRequest
Новая
       98

пустые ячейки из apa_tables в вязании папайи в текстовый документ с дополнительным интервалом

1 голос
/ 10 июля 2020

Я связал документ Word из файла .rmd с помощью papaja. Я обнаружил, что, когда в строке есть пустая ячейка, высота этой конкретной строки непропорционально выше, чем строк без нее. Я установил свой .rmd, используя предоставленный шаблон из papaja.

Эта таблица создает нормально выглядящую таблицу в текстовом документе: 

data <- mtcars

table_1 <- data %>%
  group_by(vs) %>%
  summarise("Mean cyl" = mean(cyl), "Mean wt" = mean(wt))

apa_table(table_1, caption = "Table 1 with no blank space")

Однако, если я удалю один из заголовки столбцов и замените их пустой строкой символов, например: 

table_2 <- table_1

colnames(table_2) <- c("","Mean cyl","Mean wt")

apa_table(table_2, caption = "Table 2 with a blank space")

Строка, в которой находится пустое пространство, намного выше, чем таблица без пустого пространства. Я играл с этим, и это также происходит, когда я просто использую kable() для вязания стола, так что это может иметь какое-то отношение к kable. Я приложу скриншот того, как выглядят две таблицы. О, бонусный вопрос, есть ли способ поместить «Таблица X:» и заголовок таблицы в одну строку? Таблицы, отображаемые одним словом do c

1 Ответ

0 голосов
/ 21 августа 2020

Я могу подтвердить, что это происходит в Word. Однако, похоже, это не вызвано apa_table() или papaja. Если вы создадите таблицу в pandoc -синтаксисе вручную, вы получите такое же поведение, как для apa6_docx(), так и для стандартного word_document() -синтаксиса, хотя в последнем оно менее выражено из-за более узкого межстрочного интервала. 

Table: Table 2 with a blank space

     Mean cyl    Mean wt
---  ---------  ---------
  0   7.444444   3.688556
  1   4.571429   2.611286

Таким образом, это может быть непреднамеренное поведение в pandoc, и вы можете попробовать открыть проблему на GitHub .

В качестве обходного пути вы можете использовать неразрывное пространство как заголовок столбца: 

colnames(table_2) <- c("\\ ","dsfasdf","Mean wt")

apa_table(table_2, caption = "Table 2 with a blank space")
...