- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
你好,我正在尝试使用 DT 格式化输出。但是,它显示错误:“数据”必须是二维的(例如数据框或矩阵)。如果有人能提供帮助,我将不胜感激!
下面是从数据结构 (a1) 创建的示例。
data: a1
ind lproof lproofo var1 var2 var3 var4 var5 var6 var7 var8 var9 var10
A001 M G 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
A002 D M 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
A003 D M 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
A004 G M 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
A005 M G 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
A006 M G 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
A007 G D 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
A008 M G 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
A009 D G 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
B001 D G 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
B002 M G 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
B003 M G 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
B004 M D 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
B005 M D 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
B006 M G 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
B007 M G 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
B008 M D 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
B009 M D 2.4 0.5 20.3 0.2 2.4 0.5 2.4 0.5 2.4 0.5
ui <- dashboardPage(
dashboardHeader(disable = TRUE),
dashboardSidebar(disable = TRUE),
dashboardBody(
fluidPage(
selectInput("lproofo",
label = h3("Evaluación Vieja:"),
choices = c ("All", unique(as.character(a1$lproofo))), selected = "All")
),
selectInput("lproof",
label = h3("Evaluación Nueva:"),
choices = c ("All", unique(as.character(a1$lproof))), selected = "All"),
DTOutput('a1'), style = "overflow-y: scroll;overflow-x: scroll;")
)
server = function(input, output) {
a2 <- reactive ({
if (input$lproof=="D" & input$lproofo=="M"){
a3 <- a1[a1$lproof == "D" & a1$lproofo == "M", ]
} else
if (input$lproof=="G" & input$lproofo=="M"){
a3 <- a1[a1$lroof == "G" & a1$lproofo == "M", ]
} else
if (input$lproof=="M" & input$lproofo=="G"){
a3 <- a1[a1$lproof == "M" & a1$lproofo == "G", ]
} else
if (input$lproof=="D" & input$lproofo=="G"){
a3 <- a1[a1$lroof == "D" & a1$lproofo == "G", ]
} else
if (input$lproof=="M" & input$lproofo=="D"){
a3 <- a1[a1$lroof == "M" & a1$lproofo == "D", ]
} else
if (input$lproof=="G" & input$lproofo=="D"){
a3 <- a1[a1$lroof == "G" & a1$lproofo == "D", ]
}
return(a3)
})
output$a1<- renderDataTable ({
DT::datatable(a2)
})
}
shinyApp(ui, server)
最佳答案
你的 react 函数,就是一个函数。因此,当您使用它时,您需要像引用函数一样引用它,因此 a2()
而不是 a2
。查看您的代码,似乎错误源于以下行:
DT::datatable(a2)
应该更改为将 a2
作为函数引用:
DT::datatable(a2())
关于r - “数据”必须是二维的(例如数据框或矩阵)RShiny,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/67222675/
我使用shinyDirChoose保存了用户定义文件夹的路径。现在我想从该用户的文件夹上传文件,但我不知道该怎么做。1)全部在服务器端?2)以某种方式将文件路径提供给fileInput? 这就是我构建
这个问题在这里已经有了答案: Image not showing in Shiny app R (4 个回答) 4年前关闭。 我在 Shiny 应用程序中显示图像时遇到问题。代码保存在桌面中,其中我还
我有一个实时日志文件在运行,它监听数据库并在顶部呈现最近更新的数据表。然而,在花了一些时间之后,我卡在了如何使用 if 语句更改背景颜色上,因为我不熟悉 Javascript。 1) a) 当我的“测
我想在我的 Rshiny 应用程序中加入自定义字体。我有一种预感,代码会放在 tags$style 中,但还没有包含它的实际代码。 示例代码: ui % formatPercentage('a', 0
你好,我正在尝试使用 DT 格式化输出。但是,它显示错误:“数据”必须是二维的(例如数据框或矩阵)。如果有人能提供帮助,我将不胜感激! 下面是从数据结构 (a1) 创建的示例。 data: a1 in
你好,我正在尝试使用 DT 格式化输出。但是,它显示错误:“数据”必须是二维的(例如数据框或矩阵)。如果有人能提供帮助,我将不胜感激! 下面是从数据结构 (a1) 创建的示例。 data: a1 in
我希望在我的应用程序中构建暗模式。我意识到我们可以使用 bs_theme() 实现这一目标,但我的应用程序在外部 css 文件中有更多设置,当我使用 bs_theme() 时无法读取这些设置。 我想要
我有一个输出图,它依赖于名为 datasetInput 的 react 函数。每当我更改输入变量时,输出函数都会更新,但我在客户端上看到的图并没有最终改变。我输出了 ggplot 用来生成绘图的数据,
目前我有一个 R Shiny 的应用程序,运行它我打开 RStudio 并执行 setwd("C:/Users/Me/Desktop/R/ShinyProject2") library(shiny)
我计划在我的 RShiny 仪表板上有几个 verbatimTextOutputs。因此,为了帮助用户,我想通过在它们上面添加标题/名称来使它们与众不同。 但是,verbatimTextOutputs
我已经构建了一个 RShiny 小程序。现在,我希望 friend 们能够使用它,而无需安装 RStudio 或处理代码。 我正在考虑类似于 Java 小程序的东西,它可以包装在 .jar 文件中,并
我需要一些关于如何在 RShiny 中正确地将查询发送到我的数据库的说明... 我构建了一个应用程序,任何人都可以在其中创建一个帐户,然后在将这些行保存到我的数据库之前在数据框中写入一些信息。 该应用
我想在鼠标悬停或单击事件上显示一个放大的弹出图像,该图像显示在 rhandsontable 单元格中,类似于所示 here在 DT 表中。 我想显示在创建的表中显示的图像的弹出图像,如下所示: lib
我读过一些主题,说不可能用 Shiny Package 重置 actionButton 的值,但我找不到任何技巧来解决我的问题。 我想使用以下代码删除主面板中的文本和按钮: library(shiny
我将如何构建响应式 UI 来响应具有不同数据输入的 reactiveFileReader? 我有兴趣将一个 reactiveFileReader 集成到一个应用程序中,该应用程序在数据中绘制组图并逐组
我正在尝试在运行 rCharts 和 Shiny 的应用程序中复制此 ( jsfiddle ) highcharts 功能。我想要一个用户事件(更改文本框中的值)将绘图带添加到已渲染的绘图中(或者理想
正在使用的 R Shiny 代码是: library(shiny) library(shinyBS) ui <- fluidPage( headerPanel( list(tags$head(t
我是 Docker 的新手,我想创建一个图像,以便部署一个 Shiny 的应用程序,该应用程序使用“网状”包获取 python 脚本。 有什么地方可以让我开始构建这个 Docker 镜像或在一些现有镜
我正在学习我想要/正在尝试制作的与篮球相关的数据可视化 Web 应用程序的全栈开发。考虑到我的技术技能,我有一个关于解决我的数据问题的最佳方法的问题。 几个月前,我使用 R 创建了 following
我是一名优秀的程序员,十分优秀!