用R语言编写自动化报告以及交互式应用

2015年1月28日

魔鬼辞典

人力小编来送福利咯！

听说，你想摆脱数据分析和报告过程中的重复困扰；
听说，你想了解如何轻松创建基于R的交互式网页；
嘿，巧啦！神奇教父——谢益辉应运开讲啦！！！

本周三（1月28日）16:00北京会议室，一场关于R语言的饕餮盛宴即将登场，一切就绪，只等你来！！！

听说，这位谢大咖没啥特别爱好，就是口重，嗜辣，喜欢折腾……据说，猛戳这个网址 https://yihui.org 可以看到他牛到爆的经历，重点还有帅掉渣的照片哦_~

即：计算语言 + 自然语言

老板叫我建一个回归模型。

```{r}
fit <- lm(dist ~ speed, data = cars)
b   <- coef(fit)
plot(fit)
```

呐，这个模型的回归系数是`r b[1]`。

if (!require("knitr")) install.packages("knitr")
library(knitr)
knit("your-document.Rmd")  # 编织文档

你苦兮兮看了无数论文，学了无数方法，收集了数据，跑了代码，做了分析，自动化报告只是希望你的临门一脚变得更简单。

用户界面

library(shiny)
fluidPage(
  textInput('x1', label = '姓名'),
  textOutput('x2')
)

服务逻辑

function(input, output) {
  output$x2 = renderText({
    val = input$x1
    if (val == '') '' else paste0('你好，', val)
  })
}