使用某些DT选项设置特定列的列宽时，R shiny和DT不会呈现
在R Shiny和DT中，当使用某些DT选项设置特定列的列宽时，可能会导致R Shiny应用程序中的DT表格不正确地呈现。
DT是一个R语言的数据表格包，用于在R Shiny应用程序中创建交互式数据表格。它提供了许多选项来自定义表格的外观和行为，包括设置列宽。
然而，在某些情况下，当使用特定的DT选项来设置特定列的列宽时，R Shiny和DT可能无法正确呈现表格。这可能是由于DT包的某些限制或bug导致的。
为了解决这个问题，可以尝试以下方法：
- 检查DT包的版本：确保使用的是最新版本的DT包。DT包的更新版本通常会修复一些已知的问题和bug。
- 调整列宽选项：尝试使用其他列宽选项来设置特定列的宽度。例如，可以尝试使用"autoWidth"选项来自动调整列宽，或者使用"width"选项来设置固定的列宽。
- 自定义CSS样式：使用自定义CSS样式来调整表格的外观和布局。可以使用Shiny的
tags$style函数来添加自定义CSS样式，并通过选择器来选择特定的表格列进行样式设置。 - 使用其他表格包：如果以上方法仍无法解决问题，可以尝试使用其他的R语言表格包来创建交互式数据表格，例如data.table或tidyverse中的tibble包。
需要注意的是，以上方法仅为解决R Shiny和DT在设置特定列的列宽时可能出现的问题提供了一些常见的解决方案。具体解决方法可能因具体情况而异。如果问题仍然存在，建议查阅DT包的官方文档或向DT包的开发者社区寻求帮助。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云云服务器（CVM）：https://cloud.tencent.com/product/cvm
- 腾讯云云数据库MySQL版：https://cloud.tencent.com/product/cdb_mysql
- 腾讯云云原生容器服务：https://cloud.tencent.com/product/tke
- 腾讯云人工智能平台：https://cloud.tencent.com/product/tai
- 腾讯云物联网平台：https://cloud.tencent.com/product/iotexplorer
- 腾讯云移动开发平台：https://cloud.tencent.com/product/mgp
- 腾讯云对象存储（COS）：https://cloud.tencent.com/product/cos
- 腾讯云区块链服务：https://cloud.tencent.com/product/baas
- 腾讯云元宇宙：https://cloud.tencent.com/product/mu
相关·内容
我还没有找到或找到任何资源来从用户选择的列构建一个地块，在一个闪亮的RMD格式。我不想在rmd中嵌入一个闪亮的应用程序，除非这是唯一的选择。
通常，我会设置一个像DT::dataTableOutput("my_datatable")这样的输出对象
然后以input$my_datatable_columns_selected的方式选择选定的列，并使用它来绘制图。但是，除非我在rmd中嵌入一个闪亮的应用程序，否则这个功能似乎并不存在。
这个是可能的吗？
下面是一个可选择的迷你rmd。
谢谢!
---
title: "Test"
output:
浏览 6提问于2022-08-15得票数 1
回答已采纳
我到处寻找，似乎找不到帮助，这是一个必须是共同的问题。
我在一个datatable应用程序中有一个shiny。当数据第一次出现时，我会将它加载到其中。它由一列文本组成。
我希望用户能够按下一个按钮，该按钮接收datatable中的数据并对其执行操作，然后显示一个带有该函数结果的datatable。函数(未显示)基本上将单个列拆分为几个列。
我似乎不知道如何从刷新和显示新datatable的按钮中运行函数。
到目前为止，这就是我所拥有的：
server.R
library(shiny)
library(EndoMineR)
RV <- reactiveValues(data = Path
浏览 0提问于2019-04-17得票数 1
回答已采纳
5回答
我想从我的应用程序中删除“全局搜索”选项，但保留“列搜索”选项。有什么想法吗？我试过不同的截止符，比如searching=FALSE, filtering='none'.所有这些都不能正常工作。
我的代码：
server.R:
library("shiny")
library("DT")
data(iris)
shinyServer(function(input, output) {
output$tabelka <- DT::renderDataTable({
datatable(iris, filter=
浏览 13提问于2016-02-25得票数 50
回答已采纳
我正在创建一个闪亮的应用程序，它在屏幕顶部显示data.frame信息，在底部显示特定的变量统计数据。用户可以通过与data.frame对象交互来导航DT::datatable列。
当用户单击变量时，会显示可以编辑的详细信息。我希望更新这些信息并将其反映在datatable中。我的问题是，当我更新表时，从一开始就呈现并显示它。如何在编辑后保留数据表的页和行选择？
下面是一个最小的工作示例，它显示了DT::datatable中的mtcar数据集。我有一些控件可以更新字段。注意，datatable被重新呈现回第一页。
library(shiny)
runApp(shinyApp(
ui =
浏览 4提问于2016-07-11得票数 11
回答已采纳
一旦用户按下闪亮的按钮，我就试图简单地更新dataframe的列。对于当前显示的dataframe如何传递到服务器端功能，我有点困惑。
一旦按钮被按下，列cyl应该增加10。如果再次按下按钮，列应该接受重新计算的值，然后再乘以10等等。
到目前为止，我已经这样做了，但似乎没有发生任何事情时，按下按钮。
---
title: "My dataframe refresh"
output: html_document
runtime: shiny
---
```{r, echo=FALSE}
图书馆(EndoMineR)
shinyApp(
ui <- fluidPage(
浏览 0提问于2018-05-09得票数 6
回答已采纳
我正试图调整闪亮数据表DT的宽度，这适用于下面的简单示例-
library(magrittr)
library(shiny)
library(DT)
ui <- fluidPage(
DT::dataTableOutput('dt')
)
server <- function(input, output) {
output$dt <- DT::renderDataTable({
dt1 <- head(mtcars)
DT::datatable(dt1, rownames = FALSE) %>%
浏览 1提问于2021-05-25得票数 2
回答已采纳
1回答
Shiny中的DT包生成一个带有搜索栏的表，搜索栏可以搜索表中的每一列。我有一列元数据，我不想在表中显示，但如果我使用搜索栏进行搜索，我仍然希望这些行出现。 例如，下面的应用程序包含一个标题为searchCol的列。这一栏只是字母。我希望在实际的表中隐藏此列，并且希望能够使用DT搜索栏搜索字母b，并显示第二行。 有没有一种方法可以隐藏列，但它仍然可以使用搜索栏？ library(shiny)
library(DT)
ui <- fluidPage(
DTOutput('tbl1'),
)
server <- function(input, output,
浏览 12提问于2020-08-15得票数 0
回答已采纳
1回答
我想在Shiny DT数据表中隐藏列过滤器，但我不能：
以下是我的做法：
library(shiny)
library(DT)
ui <- fluidPage(
tags$style("#mydatatable thead > tr:nth-child(2) {display:none;}"),
mainPanel(
dataTableOutput("mydatatable")
)
)
server <- function(input, output) {
output$mydatatable <- D
浏览 0提问于2019-11-05得票数 0
回答已采纳
1回答
我想要获取kpi的列的值，并将这些值设置为新数据的标题table.In此应用程序，我希望管理员创建kpi，并让用户填充第二个数据表中的值。
所以我想要一个这样的表：
server.r
GetTableMetadata <- function() {
fields <- c(id = "Id",
name = "Name",
used_shiny = "Used Shiny",
r_num_years = "
浏览 1提问于2015-11-26得票数 0
我在设置我闪亮的应用程序的布局上遇到了一些困难。在尝试了几种不同的选择之后，对我来说最适合我的就是navbarPage。虽然，我设法解决了我的大部分问题(在堆栈溢出的帮助下)，但我还是陷入了其中一个问题。基本上，我有一个有许多列的表，它最终总是大于包含该表的wellPanel。
下面是一些代码来说明这个问题：
require(shiny)
require(shinythemes)
side_width <- 5
sidebar_panel <-
sidebarPanel(
width = side_width,
radioButtons("Radio
浏览 0提问于2019-10-27得票数 0
回答已采纳
我遇到了数据表和闪亮的问题，特别是在flexdashboard中，但我认为这是无关紧要的。
当我单击绘图中的相应点时，我想滚动到数据表中的给定行。但是，我遇到的最小问题是“简单地”滚动到任何一行。我可以使用带有initComplete选项的JavaScript选择一行，但是不会为我做任何事情。
看一下前面的问题，我得到了这个例子。它展示了可以与initComplete一起使用的javascript函数，但这不是用R/Shiny创建的。具体来说，您将发现以下用于小型datatable的选项：
initComplete: function () {
this.api().row(1
浏览 13提问于2017-12-21得票数 5
回答已采纳
我想使用formattable在R Shiny上显示数据框。然而，这里的解决方案不起作用。
scores <- data.frame(id = 1:5,
prev_score = c(10, 8, 6, 8, 8),
cur_score = c(8, 9, 7, 8, 9),
change = c(-2, 1, 1, 0, 1))
width_formatter <- formatter("span",
浏览 0提问于2017-10-27得票数 0
1回答
我为这样的任务奋斗了几个小时:在R闪亮中，我需要显示一个表，其中包含一个带有的单列整数，行之间有明确的(相对较大的)间距。
spacing函数中有renderTable()参数，但即使将其设置为最大值'l'也不足以满足我的需要。
我尝试使用xtable并考虑到来自的示例，但是没有结果(我不知道CSS)。
我在web中发现的最自然的方法是将DT包与Scroller扩展一起使用，但是下面的代码仍然没有给出结果
ui.R：
fluidPage(
sidebarLayout(
sidebarPanel(
dataTableOutput('dtable
浏览 3提问于2017-02-23得票数 0
回答已采纳
1回答
我的data.frame有一个逻辑列。我希望使用DT::renderDataTable显示数据，并且希望在单击行时切换逻辑列中的值。 我找到了一个working example，但我尝试使用reactive而不是reactiveValues/observeEvent。 现在，当单击行时，将显示DT并执行一些处理，但是，值不会改变。示例如下： library(shiny)
library(DT)
ui <- shiny::fluidPage(
DT::dataTableOutput("myTable")
)
server <- function(input
浏览 8提问于2021-09-10得票数 0
回答已采纳
1回答
我已经使用R shiny和canada.cities数据集创建了以下应用程序
library(DT)
library(shiny)
ui <- basicPage(
h2("canada.cities"),
DT::dataTableOutput("mytable")
)
server <- function(input, output) {
output$mytable = DT::renderDataTable({
canada.cities[,c(1,2)]
})
}
shinyApp(ui, server)
我想
浏览 1提问于2018-09-24得票数 1
1回答
具有数字输入和反应列的闪亮数据表
、、、、
我正在构建一个闪亮的datatable，其中一个列用于数字输入，另一个列用于响应输入。它类似于在excel中嵌入单元格中的等式。下面我给出了虹膜的例子，并试图计算花瓣面积。所以peal面积等于Petal.Length*peal.宽度/调整。调整参数将由用户输入以调整区域。这里也提出了一个类似的问题，但没有得到直接的答复。
library(shiny)
library(DT)
library(dplyr)
ui <- basicPage(
DT::dataTableOutput('x1')
)
server <- function(input, output
浏览 1提问于2018-05-27得票数 0
3回答
我正在尝试将数据从Excel模板导入到R中。下面您可以看到该表的样子： ? 此表包含两个列的标题(例如，2021-2017，用于男性和女性)，这会在我尝试将数据导入R时导致问题。为了上传，我运行以下代码行： Export_I01 <- data.table(
read.xlsx("Export_I01.xlsx", startRow = 2, endRow = 4, sheetIndex = 1, header = TRUE)
) 输出如下图所示： ? 这不是一个好的输入，因为有一个后缀:例如，Male是第一列，但第三列是Male.1。那么，是否
浏览 65提问于2021-10-21得票数 1
我在Shiny中使用renderTable来显示一个数据集，并且我想对表格进行一些格式化。例如，如果我的代码如下所示：
ui.R：
shinyUI(fluidPage(
titlePanel("Hello Shiny!"),
fluidRow(
column(4,
... ...
)
),
column(8,
tableOutput("mydata")
)
)
))
server.R：
shinyServer(function(input, output) {
df
浏览 3提问于2015-12-01得票数 4
回答已采纳
2回答
在选项卡上显示表格
、、、
我有两个包含不同数据集的表。我希望表格显示在不同的选项卡上。当我只显示一个表时，我的代码工作得很好，但是每当我试图同时显示两个表时，值就不再显示，只显示不同的标题。任何帮助都是非常感谢的。下面是我的代码。我使用的是拉曼数据库和DT包。
server.R：
library(shiny)
library(ggplot2)
# Define a server for the Shiny app
shinyServer(function(input, output) {
# Filter data based on selections
output$table <- DT::rende
浏览 0提问于2016-08-25得票数 0
1回答
我有一个正在shiny中显示的输出表。我想有一个附加到表中的列，这将在每一行从用户的文本输入(评论)。
这在R shiny中能做到吗？
浏览 4提问于2018-01-15得票数 0
在一个闪亮的应用程序中，我在datatable中有一列数字，出于安全原因，一些值被抑制了，我们希望用一个特定的字符串来替换这些值，这里我称之为"my_string"。在对该列进行排序时，这些被抑制的值需要排序，好像它们小于所有实际数字一样。在本列中，除已编码为-1的被抑制值外，所有值均为正值。
我尝试过将-1重新编码为"my_string" (强制将列强制为character)，并使用正确地对字符编码的数字进行排序，但是"my_string"正在排序，好像它比所有的数值都要大。
处理此问题的另一种可能方法是使用JavaScript回调将-1替换为
浏览 2提问于2017-10-11得票数 0
回答已采纳
对于使用{rmarkdown}将表呈现为无服务器状态，有任何建议吗？我需要这样做，这样就可以在{ page }的帮助下将呈现的HTML推送到汇合性页面。
当我在RMD文件中呈现类似下面的内容，然后尝试使用conflr:::confl_create_post_from_Rmd_addin()发送到Confluence时，我得到以下错误：
output file: serverless_test.knit.md
Error: Functions that produce HTML output found in document targeting commonmark-yaml_metadat
浏览 5提问于2022-08-17得票数 3
我正在见证一个奇怪的现象，一个R闪亮的演示应用程序(“已用空间”)我一起黑。它只由一个数据表组成，其中填充了一些随机数据。代码如下：
ui.R：
library(shiny)
shinyUI(fluidPage(
dataTableOutput("foobar")
)
)
server.R：
library(shiny)
library(DT)
source("data-generator.R")
data <- randomEntries(100) # function from data-generator.R
shiny
浏览 11提问于2017-08-09得票数 2
回答已采纳
作为一个最小的工作示例，
# An app with a datatable whose pagination option we can toggle with a button
library(shiny)
runApp(list(
ui = basicPage(
actionButton("button", label = "Toggle paginate"),
dataTableOutput("table")
),
server = function(input, output) {
浏览 1提问于2014-04-28得票数 3
当在闪亮服务器上运行时，我遇到了R闪亮DataTable中的大表的问题。呈现后，页面会闪烁“试图重新连接”，然后最终超时并失去连接。这种行为发生在在闪亮服务器上发布时，而不是在使用shiny::runApp()在本地启动时。
对50万条记录进行测试，结果只有3列，就会产生这些问题。用小桌子，它工作得很好。
我将问题隔离到DT::包中。如果我将shiny::用于dataTableOutput和renderDataTable，它可以正常工作。但这忽略了DT提供的所有有用的特性。当问题发生时，DataTable的过滤机制仍然在服务器上工作和处理，但是其他闪亮的函数将无法工作。
下面的代码可以再现错误
浏览 1提问于2017-12-13得票数 1
回答已采纳
1回答
闪亮数据表超链接列
、、、
我试图在一个闪亮的datatable的一个/多个列中添加一个交互功能。基本上，我试图为选项卡1中的datatable创建一个指向列的所有值(例如mpg)的超链接，并将该行数据显示在选项卡2上。例如，对于datatable的第一行，mpg值( 21 )将是一个超链接，当您单击21时，它将重定向到选项卡2，该选项卡将显示与该行相对应的所有其他列值。这是我的代码的一个工作版本。
library(shiny)
library(DT)
ui <- fluidPage(
titlePanel("reprex1")
,fluidRow(tabBox(
浏览 2提问于2022-08-22得票数 1
给出了以下闪亮的应用程序：
library(shiny)
library(tidyverse)
library(DT)
ui <- fluidPage(
br(),
DTOutput("DT")
)
server <- function(input, output) {
output$DT <- renderDataTable({
mtcars %>%
datatable(.,extensions = 'Buttons',
options = list(dom = &
浏览 2提问于2019-09-11得票数 2
回答已采纳
我正在尝试创建一个表(使用DT，请不要使用rhandsontable)，它有几个现有的列，一个selectinput列(其中每行都有选项可供选择)，最后是另一个列，它将根据用户从selectinput下拉列表中为每行选择的内容进行填充。 在我的示例中，“Feedback”列是用户下拉选择列。我无法更新“分数”列，它将基于“反馈”列下拉列表中的选择。 if(interactive()){
library(DT)
library(shiny)
tbl1 <- data.frame(A = c(1:10), B = LETTERS[1:10], C = c(11:20), D =
浏览 23提问于2021-09-27得票数 3
回答已采纳
1回答
DT软件包PDF扩展按钮
、、、、
我有一个相当大的表，如果我将它放入DT表并在其上进行PDF打印，那么列的一部分将被切断。另外，我还想在导出到PDF时调整标题的大小。我该怎么做？
下面是一个例子，说明当所有的列都不适合一个页面时，我要说的是什么。如何调整表的大小和DT 表中的标题？
library("shiny")
library("DT")
data <- cbind(iris,iris,iris)
shinyApp(
ui = fluidPage(DT::dataTableOutput('tbl')),
server = function(input, out
浏览 2提问于2022-08-25得票数 2
回答已采纳
1回答
shiny中表格标题居中的问题，当我的表格居中时，第一列保持左对齐。我该如何解决这个问题？就在下面，我提供了我的CSS代码。我不知道如何对齐我的表的第一列。如果我在我的代码中正确地调用了CSS，我也有疑问。
library(shiny)
library(dplyr)
bd= read.csv("bd.csv", sep = ";")
ui = fluidPage(
fixedRow(
column(12,
titlePanel("Tabelas"),
side
浏览 0提问于2021-04-23得票数 0
2回答
datatable不在Shinydashboard中呈现。它只是为长方体渲染了一个细小的白色条带。仅在RStudio中运行datatable函数会在RStudio查看器中呈现datatable。那么，在一个漂亮的应用程序中呈现DT数据表的正确方法是什么呢？
## app.R ##
library(shiny)
library(shinydashboard)
library(htmlwidgets)
library(DT)
library(xtable)
source('../ts01/db.R')
ui <- dashboardPage(
dashboardHead
浏览 2提问于2015-06-30得票数 7
1回答
是否可以调整Excel输出的输出？我希望能够紧急地做以下几件事。
在表中添加一个标题，其中包含一些文本：“此表基于虹膜数据集，并使用输入$宽度作为最小值”
在列名标题中添加粗大的底部边框。
在第一列之后添加左边框
在标题上方添加一个空行
在这里，我可以把东西写进一些合并的单元格中，也就是我想在长度，宽度，……的四列上面写“花瓣大小”。
这是一个使用按钮扩展的MWE。我为原始的javascrtip 找到了一些信息，但这对我来说太难了，无法转移到R中。
rm(list=ls())
library(shiny)
library(dataset
浏览 2提问于2016-08-24得票数 0
2回答
我正在尝试将三列的数据框架(StockCode，Price，label)进行子集。
但是我不得不使用反应性，我的问题是如何渲染标签
我需要一些像renderText(dataset()$label)这样的想法
ui.R
library(shiny)
# Define UI for app that draws a histogram ----
ui <- fluidPage(
# App title ----
titlePanel("Hello Shiny!"),
# Sidebar layout with input and output defini
浏览 0提问于2018-01-31得票数 0
回答已采纳
有没有办法对r shiny的dataTableOutput中的特定行进行着色？
我所发现的是，我可以将orderClasses = TRUE设置为彩色有序列，但我希望始终为输出数据表的第2列和第2行着色。我已经通读了选项手册，但没有找到任何东西。
-编辑
好了，根据艺惠和user5029763的建议，我现在可以使用DT来突出显示列了，但是我仍然无法突出显示行。下面是我的代码，以虹膜数据集为例-如果物种是setosa，我将尝试突出显示整个行，然而，在我的计算机上，它只突出显示了setosa的单元格：
datatable(iris) %>% formatStyle(
'Speci
浏览 0提问于2015-08-20得票数 3
我在Shiny中创建了一个数据表，它使用DT根据一组隐藏列中的值设置值的样式。该表显示了一家公司的部门是否达到了电话和电子邮件的目标。 问题是，当我隐藏列时(使用columnDefs = list(list(targets = c(4, 5), visible = FALSE)))，我不能再在datatable()调用下使用rownames = FALSE：表显示时没有数据。有人知道如何让这两个选项协同工作吗？ 我使用了以下文章： https://rstudio.github.io/DT/010-style.html How do I suppress row names when usin
浏览 28提问于2019-02-26得票数 3
回答已采纳
下面我有一个闪亮的应用程序，我想在其中单击某一列--单列--并创建一个只有这个单元格的第二个数据表。问题是，我无法实现这一点，因为我使用行选择来返回用于子集的行索引。在本例中，我使用了第1行-第3列示例。
library(shiny)
fluidPage(
title = 'Select Table Rows',
h1('A Server-side Table'),
fluidRow(
column(9, DT::dataTableOutput('x3')),
column(3, DT::dataTableO
浏览 2提问于2018-11-28得票数 0
回答已采纳
如何在Shiny中定义datatable的数字格式？我只想为一些列显示2个小数位，但不知道它应该在我的应用程序中定义在哪里。在server.R还是ui.R？在server.R中，这就是我在renderDataTable中拥有的
output$woeTable <- renderDataTable({
input$tryTree
input$threshold
# The following returns data frame with numeric columns
get(input$dfDescr)[['variables']][
浏览 0提问于2015-01-22得票数 8
回答已采纳
1回答
我有一个较大的datatable输出，其中包含不同数量的列，这是我在小部件中选择的。我想要动态右对齐我的列，但只有在列数固定的情况下才能找到解决方案。我希望我可以调整target=命令中的引用，使其成为动态的。不知怎么的，这不起作用，当列数小于默认引用时，我得不到输出。我在某处读到，反应式语句不适用于datatable选项。我附加了一个MWE。
rm(list=ls())
library(shiny)
library(datasets)
library(datatable)
DT<-data.table(matrix(abs(rnorm(100,sd=100000)),nrow=10)
浏览 0提问于2016-08-24得票数 0
回答已采纳
我已经在的shiny中读取并实现了表中的复选框。但是当我在R中运行时，列中的输出在每个"pick“单元格中都是<input type="checkbox" name="row1" value="1"> , <input type="checkbox" name="row2" value="2">，依此类推，我希望"pick”列中的输出是checkbox，那么我的问题的解决方案是什么？谢谢，这是代码
library(shiny)
mymtcars = mtcar
浏览 0提问于2016-06-17得票数 4
回答已采纳
1回答
亲爱的闪亮和DT大师！我试图在我闪亮的应用程序中使用自然排序插件，但它似乎不起作用。我认为这是与以前版本的闪亮或/和之前的DT包。有人能帮我吗？参见下面的示例(我正在对最后一列进行排序)：
server.R
library(shiny)
require(DT)
shinyServer(function(input, output) {
output$example <- DT::renderDataTable({
table = cbind(LETTERS[1:5],matrix(1:20,nrow=5),c(1,2,3,10,"a"))
浏览 1提问于2015-07-09得票数 1
回答已采纳
我对DT在闪亮中相当陌生，并且希望在表中的特定列中添加文本颜色，我可以使用formatStyle来实现这一点，如下例代码块所示。但是，我也想在相应的列名(标题)中添加相同的文本颜色，这样做简单吗？
library(shiny)
library(DT)
ui = fluidPage(DT::dataTableOutput('fDataTable'))
server = function(input, output) {
output$fDataTable = DT::renderDataTable({
DT::datatable(iris) %>%
浏览 1提问于2016-01-28得票数 4
回答已采纳
2回答
我正在尝试使用DT包为我的闪亮应用程序创建一个响应性数据表。我想提前隐藏某些专栏。例如：
library("shiny")
library("DT")
shinyApp(
ui = fluidPage(DT::dataTableOutput('tbl')),
server = function(input, output) {
output$tbl = DT::renderDataTable(
iris,extensions="Responsive"
)
}
)
这个输出给了我5列。它只在我
浏览 1提问于2015-09-05得票数 26
回答已采纳
我的闪亮应用程序有一个分页系统，允许来回切换。下面是我整个应用程序的小型化版本。我希望调整数据表中包含复选框的第一列的大小，使其至少是当前大小的一半，以便为第二列中的实际文本留出更多的空间。如何正确调整第一列？
我用：columnDefs = list(list(targets= 0, width= '30px')在可还原的命令中尝试了这个方法。不起作用。
不过，我还按照建议在options=list()中添加了options=list()和，这使得整个表更小。下面，您可以看到我是如何在代码中包含这些内容的。
output$table_p2 <- DT::renderDa
浏览 0提问于2018-03-26得票数 1
回答已采纳
有没有办法在r shiny中为数据表中的每个单元格获取工具提示？有很多方法可以获得悬停的行或列。但我找不到一种方法来同时获得行和列索引，并为每个单元格显示不同的悬停工具提示。任何人都可以修改以下代码吗？
library(shiny)
library(DT)
shinyApp(
ui = fluidPage(
dataTableOutput('table'),
verbatimTextOutput('hoverIndex'),
),
server = function(server, input, output) {
ou
浏览 0提问于2018-02-21得票数 5
当启用ScrollX时，我只想保持最左边的列是固定的，只是无法让它正常工作。你知道我需要做些什么吗？
library(shiny)
library(DT)
ui <- fluidPage(
fluidRow(mainPanel(DT::dataTableOutput('mtcars'), width = 12))
)
server <- server <- function(input, output, session) {
output$mtcars <- DT::renderDataTable({
mtcars %>%
浏览 0提问于2018-07-31得票数 9
回答已采纳
我有一个简单的应用程序，当从RStudio服务器/闪亮服务器运行时，它不会渲染闪亮的数据表，但当运行在桌面RStudio上时，它工作得很好：
library(shiny)
library(DT)
ui <- fluidPage(
dataTableOutput('table1'),
plotOutput('plot1')
)
server <- function(input, output) {
output$table1 <- renderDataTable({
datatable(mtcars)
})
out
浏览 0提问于2016-06-23得票数 1
我有想要用列均值替换的缺失数据。如果有人能提供关于如何使用R做这件事的命令，这个主题已经出现在网站上，但说明还不够通用，我无法完成命令。任何帮助都将不胜感激。
浏览 0提问于2014-01-17得票数 4
1回答
如何向datatable的单元格中添加工具提示(或鼠标上方弹出)，从而从另一列中提取数据？
例如，如果我在可数据中显示mtcar的前三列，如何用我当前鼠标悬停在上面的hp (马力)数据显示工具提示？
有，但我找不到一种方法将来自另一列的数据显示为工具提示。
#ui.R
library(shiny)
library(DT)
shinyUI(
mainPanel(
DT::dataTableOutput("tbl")
)
)
#server.R
library(shiny)
library(DT)
shinyServer(function(inpu
浏览 3提问于2017-09-12得票数 1
回答已采纳
我正在尝试在一个闪亮的应用程序的数据表中使用“智能”搜索，这样多个关键字在表中出现的任何地方都可以被搜索到。根据的说法，这是数据表的默认功能，当数据表在闪亮的应用程序之外的R中运行时，它肯定会起作用。但是当我在一个闪亮的应用程序中嵌入一个datatable时，这个功能就不起作用了。是否有启用它的选项或解决方法？
我的表有一个包含长文本的列，用户可以在其中搜索不同的(随机)关键字。
下面是一个可以测试的代码。搜索“紧凑型本田”在R渲染表中给出多个结果，但在闪亮中没有结果。
####### shiny basic script
library(ggplot2) #to load mpg
浏览 1提问于2017-08-28得票数 2
1回答
我正在创建一个闪亮的应用程序，其中的数据表包含一个列，其中包含一个没有空格(序列)的长字符串。该列不对封闭字符串进行换行，并扩展到表的整个宽度，隐藏其他连续列(例如extra_column)。请指导我如何修复有问题的列的宽度。
下面是一个很小的例子：
library(shiny)
library(DT)
ui <- fluidPage(
DT::DTOutput("table")
)
server <- function(input, output, session) {
df <- data.frame(chr=c(1, 2, 3), seque
浏览 3提问于2022-08-30得票数 1
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
即时通信 IM
对象存储活动推荐
腾讯云开发者
