added pdf

2025-10-13 13:15:57 -04:00
parent 8b274f6bd6
commit 555650ac3c
5 changed files with 168 additions and 10 deletions
@@ -2,3 +2,4 @@ node_modules
 .venv
 .vscode
 Assignment III
+tmp/
@@ -2,7 +2,7 @@


 suppressPackageStartupMessages({
-	pkgs <- c("tidyverse", "readr", "readxl", "broom", "jsonlite", "ggplot2", "class", "optparse")
+	pkgs <- c("tidyverse", "readr", "readxl", "broom", "jsonlite", "ggplot2", "class", "optparse", "markdown")
 	to_install <- pkgs[!pkgs %in% rownames(installed.packages())]
 	if (length(to_install)) install.packages(to_install, repos = "https://cloud.r-project.org")
 	lapply(pkgs, library, character.only = TRUE)
@@ -1,3 +1,5 @@
+library(markdown)
+
 source("/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/R/00_utils.R")
 ctx <- jsonlite::fromJSON("/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output/ctx.json")

@@ -70,15 +72,18 @@ if (!is.null(ctx$knn) && length(ctx$knn)) {
 # I hate markdown sometimes man
 md <- gsub("/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output/", "", md)

-writeLines(md, "/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output/report.md")
-writeLines(jsonlite::toJSON(ctx, pretty = TRUE, auto_unbox = TRUE),
-           file.path(ctx$stats_dir, "summary.json"))
+# writeLines(md, "/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output/report.md")
+# writeLines(jsonlite::toJSON(ctx, pretty = TRUE, auto_unbox = TRUE),
+#            file.path(ctx$stats_dir, "summary.json"))

-# rmarkdown::render(
-#   "/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output/report.md",
-#   output_format = "pdf_document",
-#   output_file = "report.pdf",
-#   output_dir = "/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output"
-# )
+md_file <- "output/report.md"
+html_file <- "output/report.html"
+pdf_file <- "output/report.pdf"
+
+setwd("/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/")
+markdownToHTML(
+  md_file,
+  html_file
+)

 message("done")