这是一个汇总块的模型,显示了在其他地方绘制的值的前 10 位或后 10 位。
问题
更改变量名称或排序方向可以正常工作,但是更改limit1
要显示多少数据的限制(更改为更高的值有时会起作用,但并非总是如此。这很奇怪!
那么好吧
不好
代码
library(shiny)
library(data.table)
dataset1 <- as.data.table(iris)
server <- function(input, output) {
# Top table
datatop1 <- reactive({
dt <- copy(dataset1)
setorderv(dt,input$t1, input$sort1) # -1 is descending
# choose subset of rows
row.limit <- min(nrow(dataset1), input$limit1)
dt <- dt[1:row.limit, ]
# choose columns
dt <- dt[, .(Species, get(input$t1))]
setnames(dt,"V2",input$t1)
return(dt)
})
output$top1 <- renderUI({
if(!is.null(dataset1)) {
fluidRow(inputPanel(
selectInput("limit1", "Limit:",
c("5", "10", "15", "20", "25", "50"),
selected = "10"),
selectInput(("t1"), "Variable:", choices = names(dataset1),
selected = "Sepal.Length"),
selectInput("sort1", "Sort by:",
choices = c('Bottom / Asc.' = +1 , 'Top / Desc.' = -1),
selected = -1)
))
}
})
# Top panel
output$screenTop1 <- renderTable({
# top dataset is in reactive as function
datatop1()
})
output$screenTop <- renderUI({
tagList(
uiOutput("top1"),
uiOutput("screenTop1")
)
})
}
ui <- shinyUI(
fluidPage(tabPanel("Top", uiOutput("screenTop"))
)
)
shinyApp(ui=ui, server = server)
的子集是否有问题data.table
?还是我使用反应式的方式?闪亮的专家 - 我会很感激我做错了什么,以及为什么我还没有完全掌握反应性。抱歉,代码有点复杂,因为主要代码位于不同的文件结构中。
> sessionInfo()
R version 3.2.4 Revised (2016-03-16 r70336)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)
locale:
[1] LC_COLLATE=English_United Kingdom.1252 LC_CTYPE=English_United Kingdom.1252
[3] LC_MONETARY=English_United Kingdom.1252 LC_NUMERIC=C
[5] LC_TIME=English_United Kingdom.1252
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] data.table_1.9.6 shiny_0.13.2
编辑:解释
@Pork Chop 在下面的精彩评论解释说,min
最终可能会迫使所有人成为角色。因此,当面对 226 和“5”时,它变成了对“226”和“5”的测试,并且在逐个元素的基础上,“2”击败了“5”,因此选择“226”作为最小值,并且所有行都显示在其中。
但是对于 10 和 20,它不是例如“226”和“10”第一个数字 1<2。并显示了正确的最小值。课程:观察类型并确保as.numeric
在需要时将 SelectInput input$vars 设置为。
谜底解释!