wrong pdf lmao

Assignments/.gitignore

@@ -2,3 +2,4 @@ node_modules
 .venv
 .vscode
 Assignment III
+tmp/

Assignments/Assignment II/R/00_utils.R

@@ -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)

Assignments/Assignment II/R/06_report.R

@@ -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(md, "/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output/report.md")
-writeLines(jsonlite::toJSON(ctx, pretty = TRUE, auto_unbox = TRUE),
+# writeLines(jsonlite::toJSON(ctx, pretty = TRUE, auto_unbox = TRUE),
-           file.path(ctx$stats_dir, "summary.json"))
+#            file.path(ctx$stats_dir, "summary.json"))
 
-# rmarkdown::render(
+md_file <- "output/report.md"
-#   "/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output/report.md",
+html_file <- "output/report.html"
-#   output_format = "pdf_document",
+pdf_file <- "output/report.pdf"
-#   output_file = "report.pdf",
+
-#   output_dir = "/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output"
+setwd("/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/")
-# )
+markdownToHTML(
+  md_file,
+  html_file
+)
 
 message("done")