在
的情况下,JqGrid采用动态复选框ID---
title: <center> <h1>Call Centre Report</h1> </center>
mainfont: Arial
output:
pdf_document:
keep_tex: yes
sansfont: Arial
fig_crop: false
toc: true
classoption: landscape
fontsize: 14pt
geometry: margin=0.5in
header-includes:
- \usepackage{amssymb}
- \usepackage{arydshln}
- \usepackage{caption}
- \usepackage{graphicx}
- \usepackage{hhline}
- \usepackage{longtable}
- \usepackage{multirow}
- \usepackage[dvipsnames,table]{xcolor}
- \usepackage{booktabs}
---
<style>
.main-container {
max-width: 1200px !important;
}
</style>
```{r global_options, R.options=knitr::opts_chunk$set(warning=FALSE, message=FALSE)}
```
\newpage
# Iris
```{r fig.width=18, fig.height=7, echo=FALSE, comment=" "}
library(ggplot2)
ggplot(data = iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Species)) +
geom_point() +
theme_classic()
```
<br>
<br>
```{r, echo=FALSE, results='asis'}
library(knitr)
library(xtable)
library(pixiedust)
t1 <- subset(iris,
Sepal.Length == "5.1",
select = Petal.Length:Species) %>%
dust(float = FALSE) %>%
sprinkle(tabcolsep = 10) %>%
sprinkle(bold = TRUE,
part = "head") %>%
sprinkle(halign = "center") %>%
medley_bw()
t2 <- subset(chickwts, feed=="horsebean", select = weight:feed) %>%
dust(float = FALSE) %>%
sprinkle(tabcolsep = 10) %>%
sprinkle(bold = TRUE,
part = "head") %>%
sprinkle(halign = "center") %>%
medley_bw()
t3 <- subset(mtcars, gear=="4", select = disp:wt) %>%
dust(float = FALSE) %>%
sprinkle(tabcolsep = 10) %>%
sprinkle(bold = TRUE,
part = "head") %>%
sprinkle(halign = "center") %>%
medley_bw()
cat(c("\\begin{table}[!htb]
\\begin{minipage}{.35\\linewidth}
\\centering",
print(t1, asis = FALSE),
"\\end{minipage}%
\\begin{minipage}{.35\\linewidth}
\\centering",
print(t2, asis = FALSE),
"\\end{minipage}%
\\begin{minipage}{.35\\linewidth}
\\centering",
print(t3, asis = FALSE),
"\\end{minipage}
\\end{table}"
))
```
我想更改ID的复选框,因为我想自动点击每个复选框。 有没有办法做到这一点?