闪亮的应用程序尺寸( ioslides )

Question

我在这里使用ScatterD3制作了一个基本的闪亮应用程序，但是当我试图将它嵌入到ioslides演示文稿中时，它会被切断，并出现一个滚动条。幻灯片可以很容易地容纳整个应用程序(我已经测量了它的大小)，但是ioslides或shiny正在选择分割它。我需要这个图形来显示这个大小，因为在我的实际项目中，我有一个很长的列表，在图例中，需要720 in左右的高度。

下面是代码：

使用Joris的建议编辑并删除不必要的wellPanel，我已经将高度重置为550，这在幻灯片的范围内是足够小的。我仍然得到这个滚动条，并且感觉必须有一个方法来调整渲染的高度。本质上，我想使用整个幻灯片，并用这个应用程序填充它。

```{r, echo=FALSE}

图书馆(ScatterD3)

ui <- fluidPage(

       scatterD3Output("distPlot", height = "550px")

       )

服务器<-函数(输入、输出){

输出$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)

我已经尝试将options = list(height = 1080)添加到shinyApp调用中。我还查看了这个职位，设置一个<div style="margin-left:-65px; margin-top:-70px; width:112%; height:130%;">可以实现我想要的大部分功能，但它仍然拒绝调整高度参数，这对我来说是最重要的。我尝试添加自定义CSS以使溢出可见，但这些解决方案似乎都不起作用。

Answer 1

您应该正确地设置页面，这样控件实际上就在绘图旁边，并使用函数width和height参数scatterD3Output。

请记住，虽然幻灯片看起来可能足够大，但您仍然需要为标题留出一些空间。因此，对于720 So高度，这幅图实际上并不适合幻灯片。

编辑：Ioslides还允许您使用自定义css文件。iframe是构建幻灯片内容的实际框架。操纵那个给了你更多的空间。接下来，你可以围绕着幻灯片本身的大小以及水平和垂直的位置进行游戏。

将以下内容放入一个名为“例如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}

图书馆(ScatterD3)

ui <- fluidPage(

fluidRow(

column(4,

       wellPanel(

         selectInput("Living", "Choose Life", 

                     choices = c("Life", "Death"))

       )

),

column(8,

       scatterD3Output("distPlot", height = "550px"))

)

)

服务器<-函数(输入、输出){

输出$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)

给予：

​

你可以玩这些，以获得一个更好的配合。

在一个侧面:在许多情况下，绝对没有必要创建一个完整的应用程序。如果您只是使用一个简单的图来进行更新，您可以将UI和服务器端分别放在自己的R块中，并使用outputArgs操作所有输出函数。这并不适用于scatterD3包，但无论如何知道是件好事。

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

## John

```{r, echo=FALSE}

图书馆(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(宽度= "80%"，height=“400 80”)