對齊html RMarkdown表中的單元格（電纜）

Question

我正在嘗試對齊html Rmarkdown文檔中包含多行文本的表（電纜）的內容。

默認表以左對齊的文本呈現，但水平居中對齊。 見下文：

我希望的文本在左邊對齊（不變），但在頂部對齊。 在Rmarkdown中使用kable是否可以實現？

下面的代碼重新創建了上表：

```{r, cache=TRUE, echo=FALSE}
column_1 <- c( "Lorem ipsum dolor sit amet, consectetur adipiscing 
elit. Vivamus dolor risus, aliquet at dolor et, tincidunt egestas 
urna.")

column_2 <- c("Lorem ipsum dolor sit amet, consectetur adipiscing elit. 
Vivamus dolor risus, aliquet at dolor et, tincidunt egestas urna. Nam 
nec elit vel eros accumsan vulputate. Donec et congue sapien. Morbi 
condimentum fringilla lobortis. Cras eget justo non turpis elementum 
facilisis. Fusce dignissim orci id pretium sagittis. Pellentesque 
dignissim nisi sapien, sit amet maximus nisl ullamcorper ac. Donec elit 
ex, hendrerit sed leo convallis, efficitur bibendum ligula. 
Pellentesque sagittis arcu et condimentum viverra. Mauris at lectus at 
massa ullamcorper ullamcorper. Aliquam quis leo ac eros cursus mattis. 
Praesent pellentesque nunc et diam lacinia, quis cursus purus lacinia. 
Aenean ipsum libero, bibendum non ante 
vel, vehicula consectetur ex. Fusce lobortis odio nec urna dignissim, 
sed elementum ipsum sagittis. Sed mollis, magna in blandit imperdiet, 
dolor quam posuere quam, id iaculis nisl diam sed lorem.")

column_3 <- c("Lorem ipsum dolor sit amet, consectetur adipiscing elit. 
Vivamus dolor risus, aliquet at dolor et, tincidunt egestas urna. Nam 
nec elit vel eros accumsan vulputate. Donec et congue sapien. Morbi 
condimentum fringilla lobortis. Cras eget justo non turpis elementum 
facilisis. Fusce dignissim orci id pretium sagittis. Pellentesque 
dignissim nisi sapien, sit amet maximus nisl ullamcorper ac. Donec elit 
ex, hendrerit sed leo convallis, efficitur bibendum ligula. 
Pellentesque sagittis arcu et condimentum viverra. Mauris at lectus at 
massa ullamcorper ullamcorper. Aliquam quis leo ac eros cursus 
mattis.")

test_table <- data_frame(column_1, column_2, column_3) %>%
  kable(caption = "Test table", align = "l") %>% 
  kable_styling(full_width = T) %>%
  column_spec(1, width = "30em") %>%
  column_spec(2, width = "40em") %>%
  column_spec(3, width = "30em")
```

這個問題似乎是在試圖解決類似的問題，並且解決方案涉及使用Latex。 這里不是一個選擇...

Answer 1

使用extra-css參數：

data_frame(column_1, column_2, column_3) %>%
  kable(caption = "Test table", align = "l", format = "html") %>% 
  kable_styling(full_width = T) %>%
  column_spec(1, width = "30em", extra_css = "vertical-align:top;") %>%
  column_spec(2, width = "40em", extra_css = "vertical-align:top;") %>%
  column_spec(3, width = "30em", extra_css = "vertical-align:top;")