Html iSlides中闪亮的应用程序大小

我在这里使用ScatterD3制作了一个基本的闪亮应用程序，但是当我试图将它嵌入到

ioslides

演示文稿中时，它被切断，出现了一个滚动条。幻灯片可以很容易地容纳整个应用程序（我已经测量了大小），但是

ioslides

或

shinny

正在选择对其进行分区。我需要绘图显示这个大小，因为在我的真实项目中，图例中有一个非常长的列表，要求高度在720px左右。 代码如下：

编辑使用Joris的建议并移除不必要的井面板，我已将高度重置为550，这在幻灯片范围内显然足够小。我仍然得到这个滚动条，感觉一定有办法调整渲染的高度。基本上，我想使用整个幻灯片并用这个应用程序填充它

`{r，echo=FALSE}
图书馆（分散3）
ui您应该正确设置页面，使控件实际位于绘图旁边，并使用函数
scatterD3Output
的
width
和
height
参数

请记住，幻灯片看起来可能足够大，但您仍然需要为标题保留一些空间。所以在720px的高度下，这个图实际上不适合放在幻灯片上

编辑：iSlides还允许您使用自定义css文件。iframe是构建幻灯片内容的实际帧。操纵它会给你更多的空间。接下来，您可以随意调整幻灯片本身的大小以及水平和垂直位置

将以下内容放入名为eg
temp.css
的文件中，该文件与Rmd文件位于同一目录中：

slides > slide {
  width: 1000px;
  height: 800px;
  padding: 10px 20px;
  left: 46%;
  top: 45%;
}

iframe {
  height: 900px;
}

并将
css:temp.css
添加到.Rmd文件中，如下所示：

---
runtime: shiny
output: 
  ioslides_presentation:
    css: temp.css
---

##


```{r, echo=FALSE}
library(scatterD3)

ui <- fluidPage(
  fluidRow(
    column(4,
           wellPanel(
             selectInput("Living", "Choose Life", 
                         choices = c("Life", "Death"))
           )
    ),
    column(8,
           scatterD3Output("distPlot", height = "550px"))
  )
)

server <- function(input, output) {
  output$distPlot <- renderScatterD3({
    mtcars$names <- rownames(mtcars)
    scatterD3(data = mtcars, x = wt, y = mpg, lab = names,
              col_var = cyl, symbol_var = am,
              xlab = "Weight", ylab = "Mpg", col_lab = "Cylinders",
              symbol_lab = "Manual transmission")
  })
}
shinyApp(ui = ui, server = server)
```

谢谢你的快速回复Joris-我从你的回答中意识到（这是非常简洁和有用的，但不完全是我想找的），我可能已经用不清楚的方式表达了我的问题。我用你的答案编辑了这篇文章，但我仍然收到嵌入应用程序侧面的滚动条。@斯科特，问题是，输入不是罪魁祸首。正是顶部为情节标题保留的空间限制了高度。我会检查是否找到了删除它的方法，但很有可能你不得不求助于自定义css文件。
---
runtime: shiny
output: 
  ioslides_presentation:
    css: temp.css
---

##


```{r, echo=FALSE}
library(scatterD3)

ui <- fluidPage(
  fluidRow(
    column(4,
           wellPanel(
             selectInput("Living", "Choose Life", 
                         choices = c("Life", "Death"))
           )
    ),
    column(8,
           scatterD3Output("distPlot", height = "550px"))
  )
)

server <- function(input, output) {
  output$distPlot <- renderScatterD3({
    mtcars$names <- rownames(mtcars)
    scatterD3(data = mtcars, x = wt, y = mpg, lab = names,
              col_var = cyl, symbol_var = am,
              xlab = "Weight", ylab = "Mpg", col_lab = "Cylinders",
              symbol_lab = "Manual transmission")
  })
}
shinyApp(ui = ui, server = server)
```

---
runtime: shiny
output: ioslides_presentation
---

## John

```{r, echo=FALSE}
library(scatterD3)
```

```{r, echo = FALSE}
             selectInput("Living", "Choose Life", 
                         choices = c("Life", "Death"))
```



```{r echo = FALSE, width = "80%", height = "400px"}
renderPlot({
    mtcars$names <- rownames(mtcars)
    plot(mpg~wt, data = mtcars)
  }, outputArgs = list(width = "80%",height="400px"))

```