私は、R のテーブルとプロットのために、しばらくの間、優れた R パッケージの ReporteRs を使用しています。David Gohel はここ ( David のサイト) で素晴らしい仕事をしました。
私が遭遇している問題は、表のセル内でパディング機能を機能させることができないということです。
ここに私のコードの一部があります:
headerCellProp = cellProperties(background.color="#ffffff",border.bottom.width = 1, border.top.width = 1, border.left.width = 0, border.right.width = 0)
headerTextProp = textProperties(font.weight="bold", color = "#000000", font.size=9 )
dataCellProp = cellProperties(border.bottom.width = 0, border.top.width = 0, border.left.width = 0, border.right.width = 0)
dataTextProp = textProperties(font.size=9, color = "#000000")
dataParProp = parProperties(padding.top = 0, padding.bottom = 0, padding.left = 10, padding.right = 5, text.align = "right")
footerCellProp = cellProperties(background.color="#ffffff",border.bottom.width = 0, border.top.width = 1, border.left.width = 0, border.right.width = 0)
mfMyDataFrame = FlexTable( data = MyDataFrame
, header.columns = FALSE
, row.names = FALSE
, cell_format = dataCellProp
, text_format = dataTextProp
)
.names = names(MyDataFrame)
headerRow = FlexRow(.names, textProp = headerTextProp, cellProp = headerCellProp )
mfMyDataFrame = addHeaderRow( mfMyDataFrame, headerRow)
footerRow = FlexRow()
footerRow[1] = FlexCell( pot( " ", format = headerTextProp ), cellProp = footerCellProp, colspan = length(.names) )
mfMyDataFrame = addFooterRow( mfMyDataFrame, footerRow)
mfMyDataFrame[,] = parProperties( padding.top = 0, padding.bottom = 0, padding.left = 10, padding.right = 5, text.align = "right" )
doc = addTitle( doc, "Table title", level = 4, stylename= "rTableLegend")
doc = addFlexTable(doc, mfMyDataFrame)
出力 .docx ファイルでは、表のセルにパディングが表示されません (左に 10、右に 5 はありません)。ここで何か不足していますか?
よろしくお願いします!