css - Shiny 的 R - 允许滚动条在 div 之上而不是在 div 之内-6ren

css - Shiny 的 R - 允许滚动条在 div 之上而不是在 div 之内

转载作者：太空宇宙更新时间：2023-11-04 01:34:31

我有一个选项列表，用于多个输入，我希望每个 selectInput 都显示选项的完整长度。但是，它们只显示在 splitLayout div 中。我怎样才能让 select 表单元素在其他所有内容之上显示下拉菜单。

下面是我的源代码:

library(shiny)

app <- shinyApp(
  ui = fluidPage(fluidRow(h1('yo')),
                 fluidRow(
                   column(
                     4,
                     splitLayout(
                       cellWidths = c('50%', '25%', '25%'),
                       textInput('happy', label = 'mood'),
                       selectInput('letter', 'which', LETTERS),
                       selectInput('letter', 'what', letters)
                     ),
                     splitLayout(
                       cellWidths = c('50%', '25%', '25%'),
                       textInput('happy', label = 'mood'),
                       selectInput('letter', 'which', LETTERS),
                       selectInput('letter', 'what', letters)
                     ),
                     splitLayout(
                       cellWidths = c('50%', '25%', '25%'),
                       textInput('happy', label = 'mood'),
                       selectInput('letter', 'which', LETTERS),
                       selectInput('letter', 'what', letters)
                     )

                   ),
                   column(
                     4,
                     splitLayout(
                       cellWidths = c('50%', '25%', '25%'),
                       textInput('happy', label = 'mood'),
                       selectInput('letter', 'which', LETTERS),
                       selectInput('letter', 'what', letters)
                     ),
                     splitLayout(
                       cellWidths = c('50%', '25%', '25%'),
                       textInput('happy', label = 'mood'),
                       selectInput('letter', 'which', LETTERS),
                       selectInput('letter', 'what', letters)
                     ),
                     splitLayout(
                       cellWidths = c('50%', '25%', '25%'),
                       textInput('happy', label = 'mood'),
                       selectInput('letter', 'which', LETTERS),
                       selectInput('letter', 'what', letters)
                     )
                   ),
                   column(
                     4,
                     splitLayout(
                       cellWidths = c('50%', '25%', '25%'),
                       textInput('happy', label = 'mood'),
                       selectInput('letter', 'which', LETTERS),
                       selectInput('letter', 'what', letters)
                     ),
                     splitLayout(
                       cellWidths = c('50%', '25%', '25%'),
                       textInput('happy', label = 'mood'),
                       selectInput('letter', 'which', LETTERS),
                       selectInput('letter', 'what', letters)
                     ),
                     splitLayout(
                       cellWidths = c('50%', '25%', '25%'),
                       textInput('happy', label = 'mood'),
                       selectInput('letter', 'which', LETTERS),
                       selectInput('letter', 'what', letters)
                     )
                   )

                 )),

  server = function(input, output) {
  }
)

runApp(app)

最佳答案

这是使用 div 控制小部件对齐的另一种方法。这不会与 selectInput 框中的 choices 重叠。

library(shiny)

shinyApp(
  ui = fluidPage(fluidRow(h1('yo')),
                 fluidRow(
                   column(4,
                          div(style = "display:inline-block; width: 35%;",
                              textInput('happy', label = 'mood')),
                          div(style = "display:inline-block; width: 25%;",
                              selectInput('letter', 'which', LETTERS)),
                          div(style = "display:inline-block; width: 25%;",
                              selectInput('letter', 'what', letters))
                          ),

                   column(4,
                          div(style = "display:inline-block; width: 35%;",
                              textInput('happy', label = 'mood')),
                          div(style = "display:inline-block; width: 25%;",
                              selectInput('letter', 'which', LETTERS)),
                          div(style = "display:inline-block; width: 25%;",
                              selectInput('letter', 'what', letters))
                          ),

                   column(4,
                          div(style = "display:inline-block; width: 35%;",
                              textInput('happy', label = 'mood')),
                          div(style = "display:inline-block; width: 25%;",
                              selectInput('letter', 'which', LETTERS)),
                          div(style = "display:inline-block; width: 25%;",
                              selectInput('letter', 'what', letters))
                          )
                   ),

                 fluidRow(
                   column(4,
                          div(style = "display:inline-block; width: 35%;",
                              textInput('happy', label = 'mood')),
                          div(style = "display:inline-block; width: 25%;",
                              selectInput('letter', 'which', LETTERS)),
                          div(style = "display:inline-block; width: 25%;",
                              selectInput('letter', 'what', letters))
                   ),

                   column(4,
                          div(style = "display:inline-block; width: 35%;",
                              textInput('happy', label = 'mood')),
                          div(style = "display:inline-block; width: 25%;",
                              selectInput('letter', 'which', LETTERS)),
                          div(style = "display:inline-block; width: 25%;",
                              selectInput('letter', 'what', letters))
                   ),

                   column(4,
                          div(style = "display:inline-block; width: 35%;",
                              textInput('happy', label = 'mood')),
                          div(style = "display:inline-block; width: 25%;",
                              selectInput('letter', 'which', LETTERS)),
                          div(style = "display:inline-block; width: 25%;",
                              selectInput('letter', 'what', letters))
                          )
                   )

                 ),

  server = function(input, output) {
  }
)

编辑:没有 div 或任何样式选项的替代解决方案。

对齐小部件的另一种更简单的方法是对每个框使用 column，如下所示。

library(shiny)

shinyApp(
  ui = fluidPage(fluidRow(h1('yo')),
                 fluidRow(
                   column(2,
                          textInput('happy', label = 'mood')),
                   column(1,
                          selectInput('letter', 'which', LETTERS)),
                   column(1,
                          selectInput('letter', 'what', letters)),
                   column(2,
                          textInput('happy', label = 'mood')),
                   column(1,
                          selectInput('letter', 'which', LETTERS)),
                   column(1,
                          selectInput('letter', 'what', letters)),
                   column(2,
                          textInput('happy', label = 'mood')),
                   column(1,
                          selectInput('letter', 'which', LETTERS)),
                   column(1,
                          selectInput('letter', 'what', letters))
                   ),

                 fluidRow(
                   column(2,
                          textInput('happy', label = 'mood')),
                   column(1,
                          selectInput('letter', 'which', LETTERS)),
                   column(1,
                          selectInput('letter', 'what', letters)),
                   column(2,
                          textInput('happy', label = 'mood')),
                   column(1,
                          selectInput('letter', 'which', LETTERS)),
                   column(1,
                          selectInput('letter', 'what', letters)),
                   column(2,
                          textInput('happy', label = 'mood')),
                   column(1,
                          selectInput('letter', 'which', LETTERS)),
                   column(1,
                          selectInput('letter', 'what', letters))
                 )

                 ),

  server = function(input, output) {
  }
)

关于css - Shiny 的 R - 允许滚动条在 div 之上而不是在 div 之内，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/46495439/

文章推荐： c - 程序不接受来自控制台的字符串输入

文章推荐： python - 如何从 Django 的错误邮件中删除敏感信息

shiny - 在没有 Shiny 服务器的情况下托管 Shiny 应用程序
我正在通过 Rscript.exe 在托管到我的本地网络的服务器上运行 Shiny 应用程序。如果我们要将其移植到网上，我们可以通过我们设置的服务器基础设施来实现。 Shiny Server 是否添加
shiny - Shiny 数据表的列标题被移动
当我运行我的 Shiny 应用程序时，我的数据表的标题向左移动。见下文。假设这张表在选项卡 A 上。当我单击不同的选项卡(选项卡 B)时，标题会正确对齐，然后再次单击选项卡 A。有关更正的标题，请
Rstudio Shiny 如何在 Shiny 页面中显示 Shiny 服务器的版本？
是否有查询正在运行的 RStudio Shiny 网页以显示正在运行的服务器版本的变量或方法？例如。显示类似 shiny-0.10.1在网页上。有任何想法吗？最佳答案您可以使用 packageV
shiny - Shiny 的交互式相关热图
我想在以下位置重现示例:https://scip.shinyapps.io/scip_app/ 基本上，我有一个 300 x 300 调整后的相关矩阵和一个 300 x 300 未调整的相关矩阵，我想
R+ Shiny 哪个锤子？直 Shiny 、柔性仪表板还是 Shiny 仪表板？
关闭。这个问题是opinion-based 。目前不接受答案。想要改进这个问题吗？更新问题，以便 editing this post 可以用事实和引文来回答它。 . 去年关闭。社区去年审查了是否重
shiny - 如何从我的帐户(从 Shiny 的服务器)中删除不工作的 Shiny 应用程序？
在我部署应用程序时，应用程序中仍然存在一些异常情况，因此我想将它们从我的帐户中删除。我试过了，但没有找到任何选择。任何帮助将不胜感激。谢谢最佳答案在从 shiny.io 填充 token 信息后，
shiny - R Shiny - R Shiny 服务器开源的 WebSEAL 身份验证
据我了解，Shiny Server 的开源版本不支持身份验证。我们有一个环境使用 WebSEAL 代理服务来验证用户并将他们的访问引导到 Web 应用程序。我们希望向经过身份验证的用户公开 Shi
R shiny - shiny 应用程序在本地和其他 shiny 服务器上运行良好，但在我的服务器上不起作用。它没有给我错误信息
我想将一个 R 应用程序(在装有 OS RHEL6.8 的实际 Shiny 服务器上运行良好)转移到另一个"new" Shiny 服务器。我的应用程序在第一台服务器上运行良好。这个想法是将它放在性能更
shiny - 在 RMarkdown 中编织 Shiny 时出错。 appshot.shiny.appobj 中的错误
我正在通过 #RMarkdown 创建一个测试页面并尝试在其中添加 #Shiny 内容。在编织到 HTML 时，我收到以下错误。 Error in appshot.shiny.appobj(list(
shiny - 在 Shiny 的两个列表框之间移动项目
有没有一种简单的方法可以在 shiny 中创建这样的东西？最佳答案 RStudio 目前正在处理 sortable 包:RStudio/sortable 请注意，它目前正在开发中(标记为实验性)，因
runapp从其他带有操作按钮的 Shiny 应用程序中 Shiny
当我在一个非常简单的 Shiny 应用程序中按下操作按钮时，我试图调用另一个 Shiny 的应用程序。另一个应用程序位于一个带有 ui.R 和 server.R 文件的名为 Benefits 的文件夹
r - Shiny 的服务器发生错误加载命名空间没有包rcpp但安装了rcpp并在R作品中加载 Shiny
我最近试图在我的服务器上打开一个 Shiny 的服务器应用程序，并遇到了我以前从未见过的错误。 Error in loadNamespace(j -c "R -e \"install.pack
shiny - R Shiny 应用程序显示旧数据
我有 Shiny 的应用程序，它显示旧数据(延迟 4 天!)，但服务器数据已刷新(当天)。奇怪的是，服务器上不存在旧数据集 - 似乎只存在于 Shiny 缓存中。在服务器上，我有 1 个数据集由
Shiny 应用程序无法在没有日志文件的 Shiny 服务器上运行
我有一个在本地 R 服务器(端口 8787)上运行的应用程序。当我将它移动到 Shiny Server(端口 3838)时，我收到消息 ERROR: An error has occurred. Ch
shiny - 如何改变 Shiny 导航栏中的填充
我试图消除此表格与浏览器窗口左侧之间的空间，但当我这样做时，它弄乱了导航栏链接和标题的间距。如何在不改变 navbar/ui/li 元素的填充/边距的情况下删除 excelR 表上的填充/边距？ l
r - Shiny - 表格中的复选框 Shiny
我已经阅读并实现了来自 link 的 Shiny 表中的复选框.但是当我在 R 中运行时，列中的输出是 , 等在每个“选择”单元格中，我希望“选择”列中的输出是复选框，我的问题的解决方案是什么？谢谢
shiny - 使用源代码模块时重新加载 Shiny 的应用程序而不重新启动
我一直在开发一个 Shiny 的应用程序，它开始变得相当大。我通过将应用程序的不同部分放入各自文件中的模块中解决了这个问题，然后获取文件。问题是，当我在源文件的服务器部分(下例中的 events.
r - Shiny :无法在 Shiny 的数据表中设置列宽
我对 Shiny 和 DataTables 还很陌生，所以这可能是个愚蠢的问题。由于某种原因，我无法更改列宽。我试过了 output$table<-DT::renderDataTable( {w
shiny-server - 在 Shiny 服务器的本地位置托管应用程序
我安装了我的 Shiny 服务器，它在这个目录下的多个应用程序上工作正常: /srv/ Shiny 服务器/app1/srv/ Shiny 服务器/app2 我可以使用 www.mydomain.co
shiny - 在 Shiny 中包含带选项的 Markdown
我想在我的 Shiny 应用程序中包含我的 myMardown.md 文档。为了显示目录，我使用了 toc 选项，还使用了 css (myStyle.css) myMarkdown.md : ---

太空宇宙

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

css - Shiny 的 R - 允许滚动条在 div 之上而不是在 div 之内