fix: store paddings as numeric values and not integer values

fix davidgohel/flextable/issues/652

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", , "[email protected]", role = c("aut", "cre")),
     person("Stefan", "Moog", , "[email protected]", role = "aut"),
@@ -60,4 +60,4 @@ Suggests:
     testthat
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1
+RoxygenNote: 7.3.2

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
 

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)