- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有一个 dataframe
( df
) 我试图输出为 DT
rmd
中的表格xaringan
演示文稿。
代码运行良好,只是表格不适合 Chrome 浏览器页面。
我该如何解决这个问题?
我尝试了多种方法:
方法一:
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”
方法二
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
方法三
添加<div style = "width:80%; height:auto; margin: auto;">
在 block 之上什么都不做。
方法四:什么都不做
---
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
block 选项对 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:
我试过下面的答案,但还是不行。请参阅下图以获取更多引用。
更新 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')
```
最佳答案
您缺少样式的结束 >
。但是,它仍然使用它,我觉得这很有趣。好吧,使用它,然后忽略除了填充之外的所有内容。
标题导致底层结构发生变化。这将适用于样式。
<style>
div.remark-slide-content {
padding: 1em; /*default is 1em 4em*/
}
.dataTables_wrapper {
font-size: .5em;
}
</style>
我注意到了一些其他的事情。我真的很惊讶你没有收到“数据表” block 名称的错误。 block 名称不应该有空格。仅仅因为它现在没有引起问题并不意味着它不会在路上。您还有 out
block 选项。他们被忽略了;你可以删除它们。
在 block 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')
```
添加幻灯片标题后,它会更改分配给 remark-slide-content
类的 CSS。但是,看起来它保留了填充设置。
好的,我不确定您喜欢哪张 table 。 (我猜 preferred 可能已经过时了,而不是像@##$^$ FIT $#$^#^...我经历过很多这样的时刻。所以我随机选择了上面的一张 table .
您需要样式。所以你在正确的轨道上。我使用的 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')
```
关于xaringan HTML5 演示文稿中的 R Autofit DT 表格宽度和高度,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/72480140/
我想做的是让 JTextPane 在 JPanel 中占用尽可能多的空间。对于我使用的 UpdateInfoPanel: public class UpdateInfoPanel extends JP
我在 JPanel 中有一个 JTextArea,我想将其与 JScrollPane 一起使用。我正在使用 GridBagLayout。当我运行它时,框架似乎为 JScrollPane 腾出了空间,但
我想在 xcode 中实现以下功能。 我有一个 View Controller 。在这个 UIViewController 中,我有一个 UITabBar。它们下面是一个 UIView。将 UITab
有谁知道Firebird 2.5有没有类似于SQL中“STUFF”函数的功能? 我有一个包含父用户记录的表,另一个表包含与父相关的子用户记录。我希望能够提取用户拥有的“ROLES”的逗号分隔字符串,而
我想使用 JSON 作为 mirth channel 的输入和输出,例如详细信息保存在数据库中或创建 HL7 消息。 简而言之,输入为 JSON 解析它并输出为任何格式。 最佳答案 var objec
通常我会使用 R 并执行 merge.by,但这个文件似乎太大了,部门中的任何一台计算机都无法处理它! (任何从事遗传学工作的人的附加信息)本质上,插补似乎删除了 snp ID 的 rs 数字,我只剩
我有一个以前可能被问过的问题,但我很难找到正确的描述。我希望有人能帮助我。 在下面的代码中,我设置了varprice,我想添加javascript变量accu_id以通过rails在我的数据库中查找记
我有一个简单的 SVG 文件,在 Firefox 中可以正常查看 - 它的一些包装文本使用 foreignObject 包含一些 HTML - 文本包装在 div 中:
所以我正在为学校编写一个 Ruby 程序,如果某个值是 1 或 3,则将 bool 值更改为 true,如果是 0 或 2,则更改为 false。由于我有 Java 背景,所以我认为这段代码应该有效:
我做了什么: 我在这些账户之间创建了 VPC 对等连接 互联网网关也连接到每个 VPC 还配置了路由表(以允许来自双方的流量) 情况1: 当这两个 VPC 在同一个账户中时,我成功测试了从另一个 La
我有一个名为 contacts 的表: user_id contact_id 10294 10295 10294 10293 10293 10294 102
我正在使用 Magento 中的新模板。为避免重复代码,我想为每个产品预览使用相同的子模板。 特别是我做了这样一个展示: $products = Mage::getModel('catalog/pro
“for”是否总是检查协议(protocol)中定义的每个函数中第一个参数的类型? 编辑(改写): 当协议(protocol)方法只有一个参数时,根据该单个参数的类型(直接或任意)找到实现。当协议(p
我想从我的 PHP 代码中调用 JavaScript 函数。我通过使用以下方法实现了这一点: echo ' drawChart($id); '; 这工作正常,但我想从我的 PHP 代码中获取数据,我使
这个问题已经有答案了: Event binding on dynamically created elements? (23 个回答) 已关闭 5 年前。 我有一个动态表单,我想在其中附加一些其他 h
我正在尝试找到一种解决方案,以在 componentDidMount 中的映射项上使用 setState。 我正在使用 GraphQL连同 Gatsby返回许多 data 项目,但要求在特定的 pat
我在 ScrollView 中有一个 View 。只要用户按住该 View ,我想每 80 毫秒调用一次方法。这是我已经实现的: final Runnable vibrate = new Runnab
我用 jni 开发了一个 android 应用程序。我在 GetStringUTFChars 的 dvmDecodeIndirectRef 中得到了一个 dvmabort。我只中止了一次。 为什么会这
当我到达我的 Activity 时,我调用 FragmentPagerAdapter 来处理我的不同选项卡。在我的一个选项卡中,我想显示一个 RecyclerView,但他从未出现过,有了断点,我看到
当我按下 Activity 中的按钮时,会弹出一个 DialogFragment。在对话框 fragment 中,有一个看起来像普通 ListView 的 RecyclerView。 我想要的行为是当
我是一名优秀的程序员,十分优秀!