# \donttest{
# Use example file included in package
example_file <- system.file("examples", "example.R", package = "quartify")
# Convert and render to HTML (output in temp directory)
output_qmd <- file.path(tempdir(), "output.qmd")
rtoqmd(example_file, output_qmd)
# Convert only, without rendering
rtoqmd(example_file, output_qmd, render_html = FALSE)
# Example with metadata in the R script:
# Create a script with metadata
script_with_metadata <- tempfile(fileext = ".R")
writeLines(c(
"# Title : My Analysis",
"# Author : Jane Doe",
"# Date : 2025-11-28",
"# Description : Analyze iris dataset",
"",
"library(dplyr)",
"iris %>% head()"
), script_with_metadata)
# Convert - metadata will override function parameters
output_meta <- file.path(tempdir(), "output_with_metadata.qmd")
rtoqmd(script_with_metadata, output_meta)
# Example with code quality checks (requires styler and lintr packages)
script_with_style_issues <- tempfile(fileext = ".R")
writeLines(c(
"# Script with style issues",
"",
"x = 3 # Should use <- instead of =",
"y <- 2",
"",
"z <- 10"
), script_with_style_issues)
# Convert with styler formatting
output_styled <- file.path(tempdir(), "output_styled.qmd")
rtoqmd(script_with_style_issues, output_styled, use_styler = TRUE)
# Convert with both styler and lintr
output_quality <- file.path(tempdir(), "output_quality.qmd")
rtoqmd(script_with_style_issues, output_quality,
use_styler = TRUE, use_lintr = TRUE)
# }
Run the code above in your browser using DataLab