## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = FALSE
)

## -----------------------------------------------------------------------------
# install.packages("summata")

## -----------------------------------------------------------------------------
# install.packages("remotes")
# remotes::install_github("phmcc/summata")

## -----------------------------------------------------------------------------
# remotes::install_git("https://codeberg.org/phmcc/summata.git")

## -----------------------------------------------------------------------------
# library(summata)
# packageVersion("summata")

## -----------------------------------------------------------------------------
# install.packages("tinytex")
# tinytex::install_tinytex()

## -----------------------------------------------------------------------------
# tinytex::is_tinytex()
# tinytex::tlmgr_version()

## -----------------------------------------------------------------------------
# install.packages(c("flextable", "officer"))

## -----------------------------------------------------------------------------
# library(summata)
# 
# # Create test data
# test_data <- data.frame(
#   Variable = c("Sample Size", "Mean", "Standard Deviation"),
#   Value = c("150", "45.3", "12.1")
# )
# 
# # Test Word export (requires flextable, officer)
# table2docx(test_data, file = file.path(tempdir(), "verification_test.docx"))
# 
# # Test PDF export (requires xtable, LaTeX)
# table2pdf(test_data, file = file.path(tempdir(), "verification_test.pdf"))
# 
# # Clean up
# file.remove(
#   file.path(tempdir(), "verification_test.docx"),
#   file.path(tempdir(), "verification_test.pdf")
# )

## -----------------------------------------------------------------------------
# Sys.which("pdflatex")

## -----------------------------------------------------------------------------
# tinytex::tlmgr_install("package_name")

## -----------------------------------------------------------------------------
# table2pdf(test_data, file = file.path(tempdir(), "debug.pdf"), show_logs = TRUE)

## -----------------------------------------------------------------------------
# options(repos = c(CRAN = "https://cloud.r-project.org"))

## -----------------------------------------------------------------------------
# getwd()
# file.access(getwd(), mode = 2)  # Returns 0 if writable