由slidify引发的关于内部交流的方式

突然需要做一个内部的交流报告，不知怎么的突然想到了slidify，然后又把之前第一次做的记录翻开来重新弄了一遍，废了好大的劲，效果也平平。

再次回顾记录如下：

环境准备如下：

1.下载R,Rstudio,miktex,Rtools 双击安装

2.打开Rstudio，开始安装devtools

可以使用install.packages("devtools")

如果速度很慢，那么就去Rstudio的Tools->Optrions里设置cran位置，默认是Global,改成具体某一位置后速度提升明显

如果还是很慢，不妨把withr(devtools的依赖包),devtools的package包下载到本地然后手动安装

3.接着安装

install_github("slidify", "ramnathv")

install_github("slidifyLibraries", "ramnathv")

install.packages("kableExtra")，markdown,rmarkdown,knitr 看看是不是都有了，没有可以装一下……

4.开始编译

library(slidify)

author("mydeck")

执行完author就进入了knitr可以编辑界面

将下面代码输入：

---
title       : 数据处理进度汇报
subtitle    : 
author      : 
job         : 
framework   : io2012        # {io2012, html5slides, shower, dzslides, ...}
highlighter : highlight.js  # {highlight.js, prettify, highlight}
hitheme     : tomorrow      # 
widgets     : []            # {mathjax, quiz, bootstrap}
mode        : selfcontained # {standalone, draft}
knit        : slidify::knit2slides
---

## 数据概况-1

* 数据总行数

数据按医院等级分布如下：
```{r eval=TRUE, echo=FALSE}
library(rmarkdown)
library(printr)
library(kableExtra)

setwd('D:/test')
hospcnt<-read.csv("hospcnt.csv",header=TRUE)
yearcnt<-read.csv("yearcnt.csv",header=TRUE)
conddt<-read.csv("conddt.csv",header=TRUE)
rw<-read.csv("rw.csv",header=TRUE)
cmi<-read.csv("cmi.csv",header=TRUE)

options(knitr.table.format = "html") 

kable(hospcnt, "html") %>%
  kable_styling(full_width = F)
```

--- .class #01 

## 数据概况-2

数据按年份分布如下：
```{r eval=TRUE, echo=FALSE}
kable(yearcnt, "html") %>%
  kable_styling(full_width = F)
```

--- .class #02 

## 数据概况-3

数据选择条件和数量减少情况：
```{r eval=TRUE, echo=FALSE}
kable(conddt, "html") %>%
  kable_styling(full_width = F)
```

--- .class #02 

## RW组合

```{r eval=TRUE, echo=FALSE}
kable(head(rw,1000), "html") %>%
  kable_styling(full_width = F)%>%
  scroll_box(width = "1000px", height = "500px")
```

--- .class #02 

## cmi组合

```{r eval=TRUE, echo=FALSE}
kable(cmi, "html") %>%
  kable_styling(full_width = F)%>%
  scroll_box(width = "1000px", height = "500px")
```

5. 完成后发布到局域网内：

打开iis服务 方法转自：http://www.jb51.net/os/windows/140380.html

去控制面板里->程序与功能->打开或者关闭win功能->找到iis信息服务，全部打钩，然后确定，等待执行完毕

去控制面板->系统与安全->管理工具->iis信息服务管理器，打开

选中“Default Web Site”，双击中间的“ASP”

把“启用父路径”改为“True”
点击“Default Web Site”。单击右侧“高级设置”-物理路径选择你网站的目录文件夹，单击“确定”
在IIS主界面，单击右侧的“绑定...”，选中你要绑定的网站，单击“编辑”
如果是一台电脑，只修改后面的端口号就行，可以随意修改数字。并单击“确定”。

输入http:ip地址就自动进入物理文件夹下的index.html

-----------------------------------