feat: add write_html function and tests for converting RTF to HTML using LibreOffice.

Author: elong0527

NAMESPACE

@@ -18,6 +18,7 @@ export(rtf_subline)
 export(rtf_title)
 export(utf8Tortf)
 export(write_docx)
+export(write_html)
 export(write_rtf)
 importFrom(grDevices,colors)
 importFrom(utils,tail)

R/write_rtf.R

@@ -130,3 +130,61 @@ write_docx <- function(rtf, file) {
 
   invisible(file)
 }
+
+#' Write an RTF Table or Figure to an HTML File
+#'
+#' @description
+#' The write_html function writes an RTF encoding string to an .html file
+#' by first writing to a temporary RTF file and then converting it to HTML
+#' using LibreOffice.
+#'
+#' @section Specification:
+#' \if{latex}{
+#'  \itemize{
+#'    \item Write RTF encoding to a temporary RTF file.
+#'    \item Convert RTF to HTML using LibreOffice command-line tool via \code{rtf_convert_format()}.
+#'  }
+#'  }
+#' \if{html}{The contents of this section are shown in PDF user manual only.}
+#'
+#' @param rtf A character rtf encoding string rendered by `rtf_encode()`.
+#' @param file A character string naming a file to save html file.
+#'
+#' @details
+#' This function requires LibreOffice to be installed on the system.
+#' The function uses the internal \code{rtf_convert_format()} function
+#' to perform the conversion from RTF to HTML format.
+#'
+#' Currently only Unix/Linux/macOS systems are supported.
+#'
+#' @export
+write_html <- function(rtf, file) {
+  # Normalize the output file path
+  file <- normalizePath(file, mustWork = FALSE)
+
+  # Create output directory if it doesn't exist
+  output_dir <- dirname(file)
+  if (!dir.exists(output_dir)) {
+    dir.create(output_dir, recursive = TRUE)
+  }
+
+  # Create a temporary RTF file
+  tmpdir <- tempfile(pattern = "r2rtf_")
+  dir.create(tmpdir)
+  on.exit(unlink(tmpdir, recursive = TRUE), add = TRUE)
+
+  file_basename <- tools::file_path_sans_ext(basename(file))
+  rtf_path <- file.path(tmpdir, paste0(file_basename, ".rtf"))
+  write_rtf(rtf, rtf_path)
+
+  # Convert RTF to HTML using existing rtf_convert_format function
+  rtf_convert_format(
+    input = rtf_path,
+    output_file = basename(file),
+    output_dir = output_dir,
+    format = "html",
+    overwrite = TRUE
+  )
+
+  invisible(file)
+}

man/write_html.Rd

@@ -113,3 +113,57 @@ test_that("write_docx fails gracefully when LibreOffice is not available", {
     "Can't find libreoffice"
   )
 })
+
+test_that("write_html creates HTML file from RTF encoding", {
+  skip_on_os("windows") # rtf_convert_format only supports Unix/Linux/macOS
+  skip_if_not(
+    nzchar(Sys.which("libreoffice")) ||
+      nzchar(Sys.which("libreoffice24.8")) ||
+      nzchar(Sys.which("libreoffice7.6")),
+    "LibreOffice is not installed"
+  )
+
+  # Create RTF encoding
+  rtf <- head(iris) |>
+    rtf_body() |>
+    rtf_encode()
+
+  # Write to HTML
+  html_file <- file.path(tempdir(), "test_table.html")
+  result <- write_html(rtf, html_file)
+
+  # Verify file was created
+  expect_true(file.exists(html_file))
+  expect_equal(result, html_file)
+
+  # Clean up
+  unlink(html_file)
+})
+
+test_that("write_html creates output directory if needed", {
+  skip_on_os("windows") # rtf_convert_format only supports Unix/Linux/macOS
+  skip_if_not(
+    nzchar(Sys.which("libreoffice")) ||
+      nzchar(Sys.which("libreoffice24.8")) ||
+      nzchar(Sys.which("libreoffice7.6")),
+    "LibreOffice is not installed"
+  )
+
+  # Create RTF encoding
+  rtf <- head(cars) |>
+    rtf_body() |>
+    rtf_encode()
+
+  # Create nested path
+  nested_path <- file.path(tempdir(), "test_html_output", "nested", "test.html")
+
+  # Write to HTML
+  result <- write_html(rtf, nested_path)
+
+  # Verify directory and file were created
+  expect_true(dir.exists(dirname(nested_path)))
+  expect_true(file.exists(nested_path))
+
+  # Clean up
+  unlink(file.path(tempdir(), "test_html_output"), recursive = TRUE)
+})