linpe包-让发送和接收数据分析更快和更容易

---
title: "Test linpe"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r, message = FALSE}
require(dplyr)
require(ggplot2)
```

Do something

```{r}
mtcars %>%
 tbl_df() %>%
 group_by(cyl) %>%
 summarise(n = n(), mean_mpg = mean(mpg), sd_mpg = sd(mpg))
```

Plot something

```{r}
ggplot(mtcars, aes(disp, mpg)) + geom_point()
```

library(devtools)
devtools::install_github('quantide/linpe')
library(linpe)

require(linpe)
# Link .Rmd to the data using linpe
mtcars_linpe <- link(mtcars, file = "test-linpe.Rmd")

# Save the linked dataset as an Rdata file
save(mtcars_linpe, file = "mtcars-linpe.Rdata"  )

# Reload
load("mtcars-linpe.Rdata")

# Check name of linpes
linpe(mtcars_linpe)

##########################
## Output
##########################

# [1] "test-linpe"

# Render the linpe
perform(mtcars_linpe, linpe = "test-linpe")

# Display .Rmd linked to the linpe
display(mtcars_linpe, linpe = "test-linpe")

mtcars_linpe <- unlink (mtcars_linpe, linpe = "test-linpe")
linpe(mtcars_linpe)

##########################
## Output
##########################

# No limpe in mtcars_linpe 
# character(0)

link(data, file, linpe = NULL)

data    一个数据框对象 指.Rmd文件中使用的数据集
file    字符串向量，指向一个.Rmd文件位置
linpe   字符串向量，提供了linpe（分析）的名称，当没有指定的话，使用默认值设置为NULL，则该linpe名称由file参数指定的文件名推导出，即去掉文件类型后缀(.Rmd)

file <- paste(find.package("linpe"), "rmd/test-linpe.rmd", sep = "/")
# analysis is saved with default name
mtcars_linpe <- link (mtcars, file = file)
attr(mtcars_linpe, "test-linpe")

# analysis is saved with specific name
mtcars_linpe <- link (mtcars, file, linpe = "this-linpe")
attr(mtcars_linpe, "this-linpe")

unlink(data, linpe)

data   一个数据框对象 指.Rmd文件中使用的数据集
linpe  字符串向量，提供了linpe（分析）的名称

file <- paste(find.package("linpe"), "rmd/test-linpe.rmd", sep = "/")
mtcars_linpe <- link (mtcars, file = file)
linpe(mtcars_linpe)
mtcars_linpe <- unlink (mtcars_linpe, linpe = "test-linpe")
linpe(mtcars_linpe)

display(data, linpe)

data   一个数据框对象 指.Rmd文件中使用的数据集
linpe  字符串向量，提供了linpe（分析）的名称

返回值：
invisible(NULL) and, as side effect, opens the '.rmd' linked to the linpe

示例：

data(mtcars_linpe)
display(mtcars_linpe, linpe = "test-linpe")

linpe(data)

data   一个数据框对象 指.Rmd文件中使用的数据集

返回值：
list of linpes associated to data

示例：
data(mtcars_linpe)
linpe(mtcars_linpe)
linpe(mtcars)

Perform(data, linpe, ...)

data   一个数据框对象 指.Rmd文件中使用的数据集
linpe  字符串向量，提供了linpe（分析）的名称
...    any parameter to be passed to function rmarkdown::render

返回值：
invisible(NULL) and, as side effect, renders the '.rmd' file corrensponding to the analysis and display it in the default html viewer

示例：
data(mtcars_linpe)
perform(mtcars_linpe, "test-linpe")