代码在 R 脚本中打印表格，但在 RMarkdown 中返回 NULL 错误

Question

这是我的代码：

library (gt)
library(tidyverse)
library(measurements)
library(lubridate)
library(readxl)
library(ggplot2)
library(dplyr)

solar_data <- read_excel("SolarRadiationAthens.xlsx")

panel_size <- 32 # in square meters
efficiency <- 0.2 # 20% efficiency

solar_data <- solar_data %>%
  mutate(day_energy = SolarWatt * panel_size * efficiency / 1000) %>%
  group_by(month = month(Timestamp)) %>%
  summarise(avg_energy = mean(day_energy))

solar_table <- gt(solar_data) %>%
  tab_header(title = "Average Daily Electricity Generated by Month") %>%
  cols_label(month = "Month", avg_energy = "Electricity Generated (kWh)") %>%
  fmt_number(columns = c(avg_energy), decimals = 2)

print(solar_table)

在 RMarkdown 中，print 函数返回 NULL 错误。保存为 PDF 时，会生成 10 页 ## 文本，如下所示：

等等

相同的代码在 R 脚本中工作得很好。有什么问题吗？