---
title: "墨尔本房价分析报告"
author: "Jean"
date: "`r Sys.Date()`"
output: html_document
runtime: shiny
---

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

## 运行一些R代码，以便在报告里引用它们的结果。
显示当前的工作目录，显示代码及其执行结果是为了说明这是一个R markdown报告。

```{r somecode, echo=TRUE}
getwd()
```


## 嵌入完整Shiny App

通过在R Markdown 报告中使用 `shinyAppDir` 函数嵌入其它目录下运行的完整Shiny App，本例嵌入了Shiny App “墨尔本房价回归分析”，它调用底层的Python脚本在预处理数据的基础上完成各个回归模型的计算，Shiny App主要是管理各个回归模型数据的交互式可视化展示：

```{r shinyapp, echo=TRUE}
# 加载App 全局变量，这与在Shiny Server上部署App稍有不同，Shiny Server上启动App时自动加载，Rmd中嵌入时要自己显式加载。
source("../melbourne/global.R")
shinyAppDir(
  "../melbourne",
  options = list(
    width = "100%", height=1000
  )
)
```



