R 包括降价时的闪亮主面板宽度

我试图在一个闪亮的应用程序中包含一个“reactive”

.Rmd

文件。它将总结用户的选择和出现的各种情况。无论出于何种原因，我发现在

.Rmd

中包含

闪亮

，但不包括编织

.Rmd

并将输出包含在

闪亮

应用程序中的功能

我发现这些很难复制，所以这里我尝试使用Rstudio中的示例。以下是chromium中的应用程序：

接下来，我将

uiOutput

元素添加到

ui.R

：

# Show a plot of the generated distribution
mainPanel(
  plotOutput("distPlot"),
  uiOutput("mark")
)

我还在

server.R

中添加了一个相应的输出，该输出取自以下类似内容：

当我运行它时，我现在得到这个（屏幕截图示意图是相同的）：

我假设knit文档中有一些

css

或者什么东西把事情搞砸了，但我不知道。我可以将宽度加宽，但主面板保持在某种程度上居中

---

我尝试了

includeMarkdown

，但无法根据

input

进行更新。请记住，这是最终的希望——我需要能够根据更改的

输入值重新生成所显示内容的东西。我意识到我可以做
renderText
或其他什么，但是
Rmarkdown
格式非常方便，因为这是一种指南。我可以编写一些文档，然后向用户展示他们选择的内容以及结果

似乎很接近。。。我就是不明白为什么这一页会变得不稳

我还尝试了类似
style=“width:1200px”
或
style=“width:100%”
之类的方法，但无法使
侧栏面板和
主面板之间的比率恢复正常

理想情况下，输出看起来与原始结果一样，但knit结果将显示在绘图的当前示意图下。
rmd代码似乎将以下属性添加到
body
元素中：

max-width: 800px;

要删除此项，请将以下内容添加到用户界面代码中（例如下面的
sliderInput
）

在
markdownToHTML
中设置
fragment.only=TRUE
：

output$mark <- renderUI({

  HTML(markdown::markdownToHTML(knit("./test.Rmd", quiet = TRUE), fragment.only=TRUE))

})

输出$markgenius！你是怎么发现的？？我在闪亮的应用程序上搜索了源代码，但没有看到它。我刚才编织了
test.Rmd
文件，看到了
.main container{max width:940px；}
。这很有魅力。现在我知道我在寻找什么了，我甚至可以控制一个
输出
：
div[id=blah]{max width:100%！important；}
。衷心感谢您的快速调查。我通常使用Firefox的
Inspect元素
上下文菜单查找与每个元素相关的样式。使用非常简单方便。
max-width: 800px;

     tags$head(tags$style(HTML("
                               body {
                                  width: 100% !important;
                                  max-width: 100% !important;
                               }

                               ")))

output$mark <- renderUI({

  HTML(markdown::markdownToHTML(knit("./test.Rmd", quiet = TRUE), fragment.only=TRUE))

})