2

这是一个汇总块的模型,显示了在其他地方绘制的值的前 10 位或后 10 位。

问题

更改变量名称或排序方向可以正常工作,但是更改limit1要显示多少数据的限制(更改为更高的值有时会起作用,但并非总是如此。这很奇怪!

那么好吧

启动时默认应用程序

不好

选择 5 时的应用

代码

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 设置为。

谜底解释!

4

2 回答 2

4

更新您的子集:

row.limit <- min(nrow(dataset1), as.numeric(input$limit1))

编辑:

1)由于min需要一个numeric变量来min正确计算您需要cast更正数据类型:as.numeric(input$limit1),否则它将采用其他数字变量

2) 默认情况下selectinput是 type string, asselectInput()selectizeInput()使用JavaScriptselectize.js

3)如果您阅读selectize 文档,您会发现"Selectize is instantiated from a <input type="text"> element"

在你的开发中,我建议你尽可能多地使用,你可以在这里找到validate一些文档。也尝试尽可能多地使用needprint

为了澄清需要最少的字符串:

如果您键入?min,您会发现对于字符串,评估如下:

  • 如果集合中存在一个字符串,它将强制整个集合输入character
  • 当使用Lexicographical ordermin对字符串进行排序时,即按字母顺序,这意味着如果您使用,它将按原样返回一次进入字符串min(c("10",2))"10"122coerced
于 2016-07-07T15:35:24.160 回答
1

你可以试试这个:

# choose subset of rows  
  #row.limit <- min(nrow(dataset1), input$limit1) 
  dt <- dt[1:input$limit1, ]

不必“计算” row.limit. 作为一个数字,您可以直接包含它。就像是dt[1:5, ]

于 2016-07-07T15:34:12.683 回答