使用kableExtra()断开我的Latex表中的超链接

library(knitr)
library(kableExtra)

# 创建一个数据框
df <- data.frame(Col1 = c("Value1", "Value2"),
                 Col2 = c("Value3", "Value4"))

# 将数据框转换为表格对象
tbl <- kable(df)

# 设置表格样式和超链接样式
tbl_styled <- tbl %>%
  kable_styling("bootstrap", full_width = FALSE) %>%
  column_spec(1:ncol(df), color = "blue", escape = FALSE)

# 将表格对象转换为LaTeX代码
latex_code <- tbl_styled %>% 
  as.character() %>% 
  stringr::str_replace_all("\\\\href", "\\\\nolinkurl")

# 将修改后的LaTeX代码转换为表格对象
tbl_final <- kableExtra(latex_code)

# 输出表格
print(tbl_final)