读取使用 gtsave 保存的 HTML 表格时出现问题

发布于 2025-01-20 07:26:17 字数 718 浏览 0 评论 0 原文

我使用 gtsave 在HTML中保存了一个由 gt 创建的表。我在闪亮的

html表中加载和显示这张小的HTML表遇到了麻烦：

我遇到的错误是：

警告：fun中的错误：参数不是字符vector

r脚本

library("shiny")
library("tidyverse")

# Get HTML table from here (11KB) https://filedropper.com/d/s/CyvqjLggB4Q0IkJ60BQsZkIwy3BVPm
tbl <- read_html(x = "<path to 001_ins_tbl.html>")


ui <- fluidPage(
  uiOutput(outputId = "ins_table")
)

server <- function(input, output, session) {
  output$ins_table <- renderUI({
    HTML(tbl)
  })

}

shinyApp(ui, server)

原文

I saved a table created by gt in HTML using gtsave.
I'm having trouble loading and displaying this small HTML table in Shiny

The HTML table is at: https://filedropper.com/d/s/CyvqjLggB4Q0IkJ60BQsZkIwy3BVPm

The error I get is:

Warning: Error in FUN: argument is not a character vector

R Script

library("shiny")
library("tidyverse")

# Get HTML table from here (11KB) https://filedropper.com/d/s/CyvqjLggB4Q0IkJ60BQsZkIwy3BVPm
tbl <- read_html(x = "<path to 001_ins_tbl.html>")


ui <- fluidPage(
  uiOutput(outputId = "ins_table")
)

server <- function(input, output, session) {
  output$ins_table <- renderUI({
    HTML(tbl)
  })

}

shinyApp(ui, server)

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

枫林﹌晚霞¤ 2025-01-27 07:26:17

我使用的解决方案是使用使用HTML页面转换为HTML片段
AS_RAW_HTML（）。就我而言，这引入了每个单元格中不需要的额外空白线，该线被删除了＆lt; p＆gt; ＆＆lt;/p＆gt;标签。

perk_html_tbl <- perk_html_tbl |>
      as_raw_html() |> 
      {function(x){gsub("<p>", "", x=x)}}() |> 
      {function(x){gsub("</p>", "", x=x)}}()

The solution I used was to use convert the HTML page to an HTML fragment using
as_raw_html(). In my case, this introduced an unwanted extra blank line in each cell which was removed by removing the <p> and </p> tags.

perk_html_tbl <- perk_html_tbl |>
      as_raw_html() |> 
      {function(x){gsub("<p>", "", x=x)}}() |> 
      {function(x){gsub("</p>", "", x=x)}}()

回复收藏 0 原文

~没有更多了~