我尝试使用Rmarkdown进行报告。
父文件是:
---
title: "FSP quarterly report"
output: pdf_document
geometry: margin=1in
header-includes:
- \usepackage{booktabs}
- \pagenumbering{gobble}
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE,
cache = FALSE, fig.asp = 1)
#load the libraries
library(tidyverse)
library(knitr)
```
```{r load myData, include=FALSE}
AllData <- read_csv("AllData.csv")
```
out <- NULL
for (i in 1:33) {
out <- c(out, knitr::knit_child('Quarterly report_child.Rmd'))
}
```
子文件为:
```{r, echo=FALSE}
data <- dplyr::filter(AllData, row_number() == i)
```
\begin{center}
{\bfseries Program-level Report, FY 2019-20, Quarter 2
`r select(data, ProviderName)`}
\end{center}
**Program Description**:
\linebreak
\linebreak
\linebreak
**Subunit Number**: `r select(data, SubunitNumber)`
**Provider ID**: `r select(data, ProviderSiteID)`
**Report Period: 07/01/2019-12/31/2019**
\begin{center}
\textbf{Data Compliance}
\end{center}
**Missing data on new clients**
\documentclass{article}
\begin{document}
\begin{minipage}[t]{0.48\linewidth}
Number of new clients (open & closed) in CCBH:
Number of new clients not entered in DCR as of 12/31/2019:
Percentage of new clients not entered in DCR as of 12/31/2019:
\end{minipage}
\begin{minipage}[t]{0.48\linewidth}
n
`r select(data, Total_number_of_new_clients)`
`r select(data, Clients_Not_Entered_In_DCR)`
`r select(data, Percent_not_in_DCR)`
\end{minipage}
\end{document}
我的理想报告是: