From 8baa5b4fe255537303f031ce4cb89798f75b24ef Mon Sep 17 00:00:00 2001 From: David Gohel Date: Wed, 14 Aug 2024 11:59:27 +0200 Subject: [PATCH] fix: store paddings as numeric values and not integer values fix davidgohel/flextable/issues/652 --- DESCRIPTION | 4 ++-- NEWS.md | 8 +++++++- R/formatting_properties.R | 8 ++++---- 3 files changed, 13 insertions(+), 7 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 39c92bef..a5cf3722 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Type: Package Package: officer Title: Manipulation of Microsoft Word and PowerPoint Documents -Version: 0.6.6 +Version: 0.6.7.001 Authors@R: c( person("David", "Gohel", , "david.gohel@ardata.fr", role = c("aut", "cre")), person("Stefan", "Moog", , "moogs@gmx.de", role = "aut"), @@ -60,4 +60,4 @@ Suggests: testthat Encoding: UTF-8 Roxygen: list(markdown = TRUE) -RoxygenNote: 7.3.1 +RoxygenNote: 7.3.2 diff --git a/NEWS.md b/NEWS.md index 1968dcaa..9cc6e7b9 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,4 +1,10 @@ -# officer 0.6.6.9000 +# officer 0.6.7 + +## Issues + +- store paddings as numeric values and not integer values. + +# officer 0.6.6 ## Issues diff --git a/R/formatting_properties.R b/R/formatting_properties.R index 22d5437e..91e6adc9 100644 --- a/R/formatting_properties.R +++ b/R/formatting_properties.R @@ -663,16 +663,16 @@ fp_par <- function(text.align = "left", ) ) if (!missing(padding.bottom)) { - out <- check_set_integer(obj = out, padding.bottom) + out <- check_set_numeric(obj = out, padding.bottom) } if (!missing(padding.left)) { - out <- check_set_integer(obj = out, padding.left) + out <- check_set_numeric(obj = out, padding.left) } if (!missing(padding.top)) { - out <- check_set_integer(obj = out, padding.top) + out <- check_set_numeric(obj = out, padding.top) } if (!missing(padding.right)) { - out <- check_set_integer(obj = out, padding.right) + out <- check_set_numeric(obj = out, padding.right) } out <- check_set_numeric(obj = out, line_spacing)