Closed vertesy closed 2 years ago
Error is inside
llogit <- function(...) {
argument_list <- c(...)
LogEntry = paste(argument_list, collapse = " ")
LogEntry = gsub("^ +| +$", "", LogEntry)
print(333)
if (ww.variable.and.path.exists(path_of_report,
alt.message = "NOT LOGGED: Log path and filename is not defined in path_of_report.")) {
print("JAJAJAJA")
write(Stringendo::kollapse("\n", LogEntry, print = FALSE),
path_of_report,
append = TRUE)
} else{
print("ALLES OK")
}
}
ww.variable.and.path.exists <- function (path = path_of_report, alt.message = NULL)
{
Variable.Name = substitute(path)
print(222)
if (exists(as.character(Variable.Name))) {
dn = dirname(path)
ExisingDir = (dn != "." & dir.exists(dn))
if (ExisingDir) {
TRUE
} else {
cat("Variable", Variable.Name, " points to a non-existent directory: ", path)
FALSE
}
} else {
if (is.null(alt.message)) {
Stringendo::iprint("Variable", Variable.Name, "does not exist.")
}
else {
cat(alt.message)
}
FALSE
}
}
Error was supposedly in:
qMarkdownImageLink <- function(file_name = 'myplot.pdf') {
llogit(paste0("![", file_name, "]", "(", file_name, ")", collapse = ''))
}
Error in qbarplot, inside
if (mdlink & save) qMarkdownImageLink(fname)