z <- fp_tabs(
fp_tab(pos = 0.5, style = "decimal"),
fp_tab(pos = 1.5, style = "decimal")
)
par1 <- fpar(
run_tab(), ftext("88."),
run_tab(), ftext("987.45"),
fp_p = fp_par(
tabs = z
)
)
par2 <- fpar(
run_tab(), ftext("8."),
run_tab(), ftext("670987.45"),
fp_p = fp_par(
tabs = z
)
)
x <- read_docx()
x <- body_add(x, par1)
x <- body_add(x, par2)
print(x, target = tempfile(fileext = ".docx"))
Run the code above in your browser using DataLab