fpar(ftext("hello", shortcuts$fp_bold()))
# mix text and image -----
img.file <- file.path( R.home("doc"), "html", "logo.jpg" )
bold_face <- shortcuts$fp_bold(font.size = 12)
bold_redface <- update(bold_face, color = "red")
fpar_1 <- fpar(
"Hello World, ",
ftext("how ", prop = bold_redface ),
external_img(src = img.file, height = 1.06/2, width = 1.39/2),
ftext(" you?", prop = bold_face ) )
fpar_1
img_in_par <- fpar(
external_img(src = img.file, height = 1.06/2, width = 1.39/2),
fp_p = fp_par(text.align = "center") )
Run the code above in your browser using DataLab