Question

不幸的是，我无法使用我的实际数据框架，因为它不是我的，并且受版权保护，但我会尽力解释

我有一个data.frame，其中包含一个包含唯一字符串的列。当我在Rstudio控制台中执行datatable（mydf）时，它会在查看器中显示正确的表格。然而，当我在闪亮的情况下做同样的事情时，我得到了这个警告：

[<-.data.frame中的警告（*tmp* ,, j，值=列表（＆＃34; ECDTM-12修剪的eTAG在Fn F232C无法停止后截断CRLF2转录变体1 NM_022148_3＆＃34;，：提供了10个变量来替换1个变量

它的作用基本上是它需要该列中的第一个字符串＆＃34; ECDTM-12修剪的eTAG在Fn F232C之后被截短没有停止CRLF2转录变体1 NM_022148_3＆＃34;并使用此字符串覆盖该行中的每个其他字符串，而不是显示这些行实际包含的内容

一些可能有用的代码：

library(shiny)
library(shinythemes)
library(shinycssloaders)
library(dplyr)
library(readr)
library(xlsx)
library(openxlsx)
library(ggplot2)
library(reshape2)
library(ggthemes)
library(DT)
set.seed(1)

UI函数中的

代码：

fluidRow(column(12, align="center", withSpinner(dataTableOutput("partTables")

服务器功能中的代码：

Lib_P1_P2 <- reactive(if(LibName() == "1.1A" | LibName() == "1.1B" | LibName() == "2.1"){readRDS(paste0("data/",input$library," P1_P2.rds"))})    
output$partTables <- renderDataTable({
    datatable(Lib_P1_P2(),options=list(pagelength=10), rownames = FALSE, escape = FALSE) 
})

我在看到这个问题后添加了set.seed（1）和escape = FALSE： R Shiny renderDataTable issue但是那也不起作用..

如果我遗漏了任何重要信息，请告诉我，我很乐意提供。我是stackoverflow的新手，请原谅我的新手。

Answer 1

我想出了原因!!整个表格是一个数据框，除了最后一列显然是一个列表，我不得不将其取消并在之后工作

闪亮错误：提供10个变量来替换1个变量

1 个答案: