Пытаетесь экспортировать PDF-график в функцию, но в файле нет страниц?

Question

Это моя функция:

heat <- function(grid, export = TRUE) {
    map <- gplots::heatmap.2(grid, na.rm = TRUE, dendrogram = "none", Rowv = FALSE, Colv = FALSE,
                             trace = "none", density.info = "none",
                             col = colorRampPalette(c("yellow", "orange", "red")))
    if (isTRUE(export)) {
        file <- paste0(tools::file_path_sans_ext("My file.xlsx), " Heat map.pdf")
        grDevices::pdf(file = file)
        print(map)
        grDevices::dev.off()
    } else {
        invisible(map)
    }
}

Я хочу, чтобы он генерировал тепловую карту и экспортировал ее в PDF. Всякий раз, когда я запускаю его, график правильно отображается в Rstudio, и он создает PDF-файл с правильным именем, но когда я пытаюсь открыть PDF-файл, он содержит ноль страниц. Вместо того, чтобы заполнять файл, он просто печатает кучу в консоль. У кого-нибудь есть предложения, почему это может не сработать?