首页 / 技术问答 / R问答列表 / 问答详情

Xaringan HTML5演示文稿中的R Autofit DT表格宽度和高度

我有一个dataframe(df)，我试图在rmd xaringan 演示文稿中输出为DT表.

代码运行良好，只是表格不适合Chrome浏览器页面.

我怎样才能解决这个问题？

我try 了多种方法:

方法1:

datatable(df,
         style = "font-size: 75%; width: 75%")  %>%
formatStyle(names(df),
                              background = 'lightblue', angle = -90,
                            backgroundSize = '98% 88%',
                            backgroundRepeat = 'no-repeat',
                            backgroundPosition = 'center')

错误:

Error in match.arg(style, DTStyles()) : 
  'arg' should be one of “default”, “bootstrap”, “bootstrap4”, “bootstrap5”, “bulma”, “dataTables”, “foundation”, “jqueryui”, “semanticui”

方法2

datatable(df,
         options = list( autowidth = TRUE,
  columnDefs = list(list(width = '200px', targets = c(1, 3))))  %>%
  formatStyle(names(df),
                              background = 'lightblue', angle = -90,
                             backgroundSize = '98% 88%',
                             backgroundRepeat = 'no-repeat',
                           backgroundPosition = 'center'))

错误:

Error in formatColumns(table, columns, tplStyle, valueColumns, match.arg(target),  : 
  Invalid table argument; a table object created from datatable() was expected

方法3

在区块顶部添加<div style = "width:80%; height:auto; margin: auto;">不会产生任何效果.

方法4:什么都不做

    ---
    title: "Ed Edd n Eddy"
    subtitle: ""
    author: "Ed"
    institute: "Gravy"
    date: "`r format(Sys.Date(),'%e de %B, %Y')`"
    output:
      xaringan::moon_reader:
        css: xaringan-themer.css
        lib_dir: libs
        nature:
          highlightStyle: github
          highlightLines: true
          countIncrementalSlides: false
    editor_options: 
      chunk_output_type: console
    ---
    
    <style type="text/css">
    .main-container {
      max-width: 100% !important;
      margin: auto;
    }
    </style>

```{r}
...
```

方法5:向区块选项添加参数out.width和out.height不会对DT表产生任何影响.

{r Data Table, out.width= "400px", out.height="600px" ,echo=FALSE, message=FALSE, warning=FALSE}

方法6:即使这样也不会调整表的维度，所以现在我想这个问题可能与xaringan有关.

datatable(df,
          extensions = 'FixedColumns',
  options = list(
    dom = 't',
    scrollX = TRUE,
    fixedColumns = TRUE
  ))

示例数据

structure(list(City = c("HOLLYWOOD", "PLANTATION", "Davie", "HOLLYWOOD", 
"PLANTATION"), Zipcode = c("33024", "33317", "33314", "33024", 
"33317"), Date = structure(c(18996, 18633, 19011, 19012, 19016
), class = "Date"), Year = c(2022, 2021, 2022, 2022, 2022), Month = c(1, 
1, 1, 1, 1), Day = c(4, 6, 19, 20, 24), SR = c("SR-22-001", "SR-22-002", 
"SR-22-003", "SR-22-004", "SR-22-006"), Permit = c("06-SE-2433290", 
"06-SE-2444371", "06-SM-2448351", "06-SM-2448625", NA), `Owner/Agent` = c("Pardo, G A & Elaine Nu-Black Septic Co", 
"Alshine Mondesir A Tip Top Septic", "Charlotte Ingmire Mr. C's Pumbling & Septic Inc.", 
"SRP Sub LLC Statewide Septic Cont Inc", "John Nelson Mr. C's Pumbling & Septic Inc."
), Address = c("1111 Harding St Hollywood, FL 33024", "5555 W Broward Blvd Plantation, 33317", 
"1111 SW 74 Ave Davie, 33314", "2222 Thomas Street Hollywood, FL 33024", 
"333 Bryan Blvd Plantation, 33317")), sfc_columns = c("x", "y"
), class = "data.frame", row.names = c(NA, -5L))

更新1:

我try 了下面的答案，但仍然不起作用.更多参考请参见下图.

enter image description here

更新2:相关代码

---
title: "Ed Edd n Eddy"
subtitle: ""
author: "Ed"
institute: "Gravy"
date: "`r format(Sys.Date(),'%e de %B, %Y')`"
output:
  xaringan::moon_reader:
    css: xaringan-themer.css
    lib_dir: libs
    nature:
      highlightStyle: github
      highlightLines: true
      countIncrementalSlides: false
editor_options: 
  chunk_output_type: console
---

<style>
div.remark-slide-content {
  padding: 1em; /*default is 1em 4em*/
  font-size: .7em;
  vertical-align: middle; /*if you don't want it in the middle, delete this*/
}
</style

```{r setup, include=FALSE}
options(htmltools.dir.version = FALSE)
library(knitr)
library(tidyverse)
library(sf)
library(plotly)
library(leaflet)
library(leaflet.extras)
library(DT)
library(simplevis)
library(sfheaders)
library(xaringanthemer)

```

```{r xaringan-themer, include=FALSE, warning=FALSE}

style_mono_accent(
  base_color = "#3399FF",
  header_font_google = google_font("Josefin Sans"),
  text_font_google   = google_font("Montserrat", "300", "300i"),
  code_font_google   = google_font("Fira Mono"),
 # background_image = "/BCLogo540.jpg"
  #background_position
   
)
# ?style_mono_accent
```
---

# Data Table

```{r Data Table, out.width= "400px", out.height="600px" ,echo=FALSE, message=FALSE, warning=FALSE}


# First import the shapefile

sf= st_read("path/sf.shp", quiet = TRUE)

# Convert to df (This is the sample data you have in the question)
df= sf_to_df(sf, fill = TRUE)

# Table
datatable(df,
          extensions = 'FixedColumns',
  options = list(
    dom = 't'))  %>%
  formatStyle(names(df),
                              background = 'lightblue', angle = -90,
                              backgroundSize = '98% 88%',
                              backgroundRepeat = 'no-repeat',
                              backgroundPosition = 'center')

```

推荐答案

Update based on your update

你错过了样式的最后>个.然而，它仍然使用它，我觉得很有趣.嗯，使用了它，然后忽略了除了填充之外的所有内容.

标题导致底层 struct 发生变化.这将适用于样式.

<style>
div.remark-slide-content {
  padding: 1em; /*default is 1em 4em*/
}
.dataTables_wrapper {
  font-size: .5em;
}
</style>

我注意到了其他一些事情.我真的很惊讶"Data Table"区块名称没有出现错误.块名称不应该有空格.仅仅因为它现在没有引起问题，并不意味着它不会继续下go .您还有out个区块选项.他们被忽视；您可以删除它们.

在区块xaringan-themer之后和# Data Table之前还有"---".这是一张空白幻灯片.(你可能是故意这样做的，并希望在那里看到它；我只是想提一下.)

总共:

---
title: "Ed Edd n Eddy"
subtitle: ""
author: "Ed"
institute: "Gravy"
date: "`r format(Sys.Date(),'%e de %B, %Y')`"
output:
  xaringan::moon_reader:
    css: xaringan-themer.css
    lib_dir: libs
    nature:
      highlightStyle: github
      highlightLines: true
      countIncrementalSlides: false
editor_options: 
  chunk_output_type: console
---

<style>
div.remark-slide-content {
  padding: 1em; /*default is 1em 4em*/
}
.dataTables_wrapper {
  font-size: .5em;
}
</style>

```{r setup, include=FALSE}
options(htmltools.dir.version = FALSE)
library(knitr)
library(tidyverse)
library(sf)
library(plotly)
library(leaflet)
library(leaflet.extras)
library(DT)
library(simplevis)
library(sfheaders)
library(xaringanthemer)

```

```{r xaringan-themer, include=FALSE, warning=FALSE}

style_mono_accent(
  base_color = "#3399FF",
  header_font_google = google_font("Josefin Sans"),
  text_font_google   = google_font("Montserrat", "300", "300i"),
  code_font_google   = google_font("Fira Mono"),
 # background_image = "/BCLogo540.jpg"
  #background_position
)
# ?style_mono_accent
```


# Data Table

<!--- I removed whitespace from this chunk name! --->
<!--- I also removed  out.width= "400px", out.height="600px" from chunk options these out settings were ignored--->

```{r DataTable,echo=FALSE, message=FALSE, warning=FALSE}

# First import the shapefile
#sf= st_read("path/sf.shp", quiet = TRUE)
# Convert to df (This is the sample data you have in the question)
df <- structure(list(
  City = c("HOLLYWOOD", "PLANTATION", "Davie", "HOLLYWOOD", "PLANTATION"), 
  Zipcode = c("33024", "33317", "33314", "33024", "33317"), 
  Date = structure(c(18996, 18633, 19011, 19012, 19016), 
                   class = "Date"), 
  Year = c(2022, 2021, 2022, 2022, 2022), 
  Month = c(1, 1, 1, 1, 1), Day = c(4, 6, 19, 20, 24), 
  SR = c("SR-22-001", "SR-22-002", "SR-22-003", "SR-22-004", "SR-22-006"), 
  Permit = c("06-SE-2433290", "06-SE-2444371", "06-SM-2448351", "06-SM-2448625", NA),
  `Owner/Agent` = c("Pardo, G A & Elaine Nu-Black Septic Co", 
                    "Alshine Mondesir A Tip Top Septic", 
                    "Charlotte Ingmire Mr. C's Pumbling & Septic Inc.", 
                    "SRP Sub LLC Statewide Septic Cont Inc", 
                    "John Nelson Mr. C's Pumbling & Septic Inc."), 
  Address = c("1111 Harding St Hollywood, FL 33024", 
              "5555 W Broward Blvd Plantation, 33317", 
              "1111 SW 74 Ave Davie, 33314", 
              "2222 Thomas Street Hollywood, FL 33024", 
              "333 Bryan Blvd Plantation, 33317")), 
  sfc_columns = c("x", "y"), class = "data.frame", row.names = c(NA, -5L))

# Table
datatable(df,
          extensions = 'FixedColumns',
  options = list(
    dom = 't'))  %>%
  formatStyle(names(df),
              background = 'lightblue', angle = -90,
              backgroundSize = '98% 88%',
              backgroundRepeat = 'no-repeat',
              backgroundPosition = 'center')

```

enter image description here

Original answer

添加幻灯片标题后，它会更改分配给类remark-slide-content的CSS.但是，它似乎保持了填充设置.

好的，我不知道你喜欢什么桌子.(我猜preferred可能已经离开了窗口，而不是像@##$^$FIT$#$^#^…我有很多这样的时刻.所以我随机 Select 了上面的一张表.

您需要样式.所以你在正确的轨道上.我使用的div具有display: table-cell样式，因此对于操纵来说非常理想.

这就是你所需要的.

<style>
div.remark-slide-content {
  padding: 1em; /*default is 1em 4em*/
  font-size: .7em;
  vertical-align: middle; /*if you don't want it in the middle, delete this*/
}
</style>

总之，现在:

---
title: "Ed Edd n Eddy"
subtitle: ""
author: "Ed"
institute: "Gravy"
date: "`r format(Sys.Date(),'%e de %B, %Y')`"
output:
  xaringan::moon_reader:
    css: xaringan-themer.css
    lib_dir: libs
    nature:
      highlightStyle: github
      highlightLines: true
      countIncrementalSlides: false
editor_options: 
  chunk_output_type: console
---

<style>
div.remark-slide-content {
  padding: 1em; /*default is 1em 4em*/
  font-size: .7em;
  vertical-align: middle; /*if you don't want it in the middle, delete this*/
}
</style>

```{r doasyouretold,echo=F,include=F}

library(tidyverse)
library(DT)

df <- structure(list(
  City = c("HOLLYWOOD", "PLANTATION", "Davie", "HOLLYWOOD", "PLANTATION"), Zipcode = c("33024", "33317", "33314", "33024", "33317"), 
  Date = structure(c(18996, 18633, 19011, 19012, 19016), class = "Date"), 
  Year = c(2022, 2021, 2022, 2022, 2022), Month = c(1, 1, 1, 1, 1), Day = c(4, 6, 19, 20, 24), 
  SR = c("SR-22-001", "SR-22-002", "SR-22-003", "SR-22-004", "SR-22-006"), 
  Permit = c("06-SE-2433290", "06-SE-2444371", "06-SM-2448351", "06-SM-2448625", NA),
  `Owner/Agent` = c("Pardo, G A & Elaine Nu-Black Septic Co", "Alshine Mondesir A Tip Top Septic", 
                    "Charlotte Ingmire Mr. C's Pumbling & Septic Inc.", "SRP Sub LLC Statewide Septic Cont Inc", 
                    "John Nelson Mr. C's Pumbling & Septic Inc."), 
  Address = c("1111 Harding St Hollywood, FL 33024", "5555 W Broward Blvd Plantation, 33317", 
              "1111 SW 74 Ave Davie, 33314", "2222 Thomas Street Hollywood, FL 33024", 
              "333 Bryan Blvd Plantation, 33317")), 
  sfc_columns = c("x", "y"), class = "data.frame", row.names = c(NA, -5L))

```


```{r gimmeNow,echo=F}

datatable(df,
         # style = "font-size: 75%; width: 75%")  %>% <- this doesn't go here...
         ) %>% 
  formatStyle(names(df), background = 'lightblue', angle = -90,
              backgroundSize = '98% 88%', backgroundRepeat = 'no-repeat',
              backgroundPosition = 'center')

```

enter image description here

R相关问答推荐

如何通过Exams2黑板对非整数字的问题进行评分

在R中，将一个函数作为输入传递给另一个函数时进行参数判断

通过绘图 Select 线串几何体并为其着色

R中的子集文件—读取文件名索引为4位数字序列，例如0001到4000，而不是1到4000)

如何使用R对每组变量进行随机化？

如何从R中的字符串元素中减go 一个数字？

整数成随机顺序与约束R？

如何在kableextra调用cell_spec()中忽略NA？

用预测NLS处理R中生物学假设之上的误差传播

为什么横向页面会导致officeverse中的页码/节头/页脚出现问题？

在某些栏和某些条件下，替换dfs列表中的NA

制作等距离的线串副本

R：从geom_ol()中删除轮廓并导出为pdf

无法定义沿边轨迹的 colored颜色 渐变(与值无关)

R中有约束的优化问题：如何用复数和对数效益函数解决问题？

在另一个包中设置断点&S R函数

我如何go 掉盒子图底部的数字？

将具有坐标列表列的三角形转换为多个多边形

如何在PrePlot()中将多个元素设置为斜体

R代码，用于在线条图下显示观测表

实用课程推荐
相关教程推荐
休闲君评测 |  TOOLFK工具网 |  古诗文网 |  良许Linux教程网 |  Python之禅 |  红色石头 |  入党申请书 | 

© 2020 Hi LearnFk 意见反馈 免责声明 关于我们 桂ICP备11002319号-3 友链&广告位+QQ: 1963612630