我正在尝试使用RMarkdown将我的第一篇文章上传到Hugo博客.您可以在下面找到我创建文档的代码:
---
title: "Untitled"
author: "Jorge"
date: "September 9, 2017"
output: html_document
runtime: shiny
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
```{r echo=FALSE, include=FALSE}
data('USArrests')
head(USArrests)
```
```{r echo = TRUE, include = FALSE}
library(tidyverse)
library(maps)
library(mapproj)
library(geosphere)
library(ggrepel)
library(scales)
library(RColorBrewer)
library(plotly)
library(shiny)
```
## Map
```{r, echo = FALSE, include = TRUE}
us_states <- map_data('state')
USArrests$region <- tolower(row.names(USArrests))
arrest_map_data <- merge(us_states, USArrests, by = 'region')
arrest_map_data <- arrest_map_data[order(arrest_map_data$order),]
inputPanel(
selectInput("crime", label = "Crime: ",
choices = list('Murder' = …Run Code Online (Sandbox Code Playgroud) 我在 Shinyapps.io 上托管了一个闪亮的应用程序。我使用以下命令将其嵌入到 html RMarkdown 文档中:
```{r}
knitr::include_app("shiny app web address")
```
Run Code Online (Sandbox Code Playgroud)
这有效,我成功地看到了嵌入式闪亮的应用程序,但我无法调整宽度。include_app() 有一个调整高度的选项,但我找不到调整 imframe 宽度的选项。
我试过这个:
```{r}
knitr::opts_chunk$set(fig.width=16, fig.height=8)
knitr::include_app("shiny app web address")
```
Run Code Online (Sandbox Code Playgroud)
但是应用程序的宽度和高度不会调整。
有没有人对如何调整这个嵌入式应用程序的宽度有任何想法?
谢谢您的帮助。
编辑:我也试过这个:{r fig.width=16, fig.height=8}没有运气。有任何想法吗?