我有一个小小的闪亮应用程序,我将变量名称显示为checkboxGroupInput,并根据选择我将数据表子集化为仅这些变量并显示它。
我观察到当选择带有标签的Integer类型变量时,RStudio控制台上会出现一条警告消息:
Warning in formatC(x = c(36L, 29L, 20L, 25L, 48L, 42L, 19L, 26L, 36L, 39L, :
class of 'x' was discarded
如果我在data.table中将变量类型更改为字符(在这种情况下标签已消失),则警告消失 - 这些警告消息是什么意思,如何在不更改列类型的情况下摆脱它们? 这是我的代码:
Server.R
library(shiny)
dft<-data.table(name=c("a","b","c"),age=c(10L,12L,13L))
label(dft$name)<-"Full Name"
label(dft$age)<-"Age of patient"
shinyServer(function(input, output) {
output$x<- renderUI({
checkboxGroupInput("g1","g1label",names(dft))
})
output$y<- renderTable({
if (length(input$g1 > 0))
{subset(dft,select=c(as.vector(input$g1)))}
})
})
ui.R
library(shiny)
shinyUI(fluidPage(
uiOutput("x") ,
tableOutput("y")
))