Javascript R闪亮的RenderDataTable显示选项

我用ShinyDash软件包制作了这张桌子。鉴于记录数量较少，我想删除页码，只显示“上一页/下一页”。我还想删除左上角的框来选择每页记录的数量，并将其默认值设置为5

这是我当前的代码，尽管最后一行带有选项应该是最重要的：

output$values <- renderDataTable({ 
}
 df <- data.frame(
Period = c("SP15", "FA14", "SU14", "SP14", "FA13", "SP13"),
StartedApps = c(full$Cum[full$Day == as.numeric(elapsed) & full$Group == "SP15"],
    full$Cum[full$Day == as.numeric(elapsed) & full$Group == "FA14"],
    full$Cum[full$Day == as.numeric(elapsed) & full$Group == "SU14"],
    full$Cum[full$Day == as.numeric(elapsed) & full$Group == "SP14"],
    full$Cum[full$Day == as.numeric(elapsed) & full$Group == "FA13"],
    full$Cum[full$Day == as.numeric(elapsed) & full$Group == "SP13"]),
Pct = c("", 
percent(full$Cum[full$Day == as.numeric(elapsed) & full$Group == "SP15"]/full$Cum[full$Day == as.numeric(elapsed) & full$Group == "FA14"] - 1),
percent(full$Cum[full$Day == as.numeric(elapsed) & full$Group == "SP15"]/full$Cum[full$Day == as.numeric(elapsed) & full$Group == "SU14"] - 1),
percent(full$Cum[full$Day == as.numeric(elapsed) & full$Group == "SP15"]/full$Cum[full$Day == as.numeric(elapsed) & full$Group == "SP14"] - 1),
percent(full$Cum[full$Day == as.numeric(elapsed) & full$Group == "SP15"]/full$Cum[full$Day == as.numeric(elapsed) & full$Group == "FA13"] - 1),
percent(full$Cum[full$Day == as.numeric(elapsed) & full$Group == "SP15"]/full$Cum[full$Day == as.numeric(elapsed) & full$Group == "SP13"] - 1)),
CompletedApps = c(fullcomp$Cum[fullcomp$Day == as.numeric(elapsed) & fullcomp$Group == "SP15"],
    fullcomp$Cum[fullcomp$Day == as.numeric(elapsed) & fullcomp$Group == "FA14"],
    fullcomp$Cum[fullcomp$Day == as.numeric(elapsed) & fullcomp$Group == "SU14"],
    fullcomp$Cum[fullcomp$Day == as.numeric(elapsed) & fullcomp$Group == "SP14"],
    fullcomp$Cum[fullcomp$Day == as.numeric(elapsed) & fullcomp$Group == "FA13"],
    fullcomp$Cum[fullcomp$Day == as.numeric(elapsed) & fullcomp$Group == "SP13"]),
Pct2 = c("", 
percent(fullcomp$Cum[fullcomp$Day == as.numeric(elapsed) & fullcomp$Group == "SP15"]/fullcomp$Cum[fullcomp$Day == as.numeric(elapsed)  & fullcomp$Group == "FA14"] - 1),
percent(fullcomp$Cum[fullcomp$Day == as.numeric(elapsed) & fullcomp$Group == "SP15"]/fullcomp$Cum[fullcomp$Day == as.numeric(elapsed)  & fullcomp$Group == "SU14"] - 1),
percent(fullcomp$Cum[fullcomp$Day == as.numeric(elapsed) & fullcomp$Group == "SP15"]/fullcomp$Cum[fullcomp$Day == as.numeric(elapsed)  & fullcomp$Group == "SP14"] - 1),
percent(fullcomp$Cum[fullcomp$Day == as.numeric(elapsed) & fullcomp$Group == "SP15"]/fullcomp$Cum[fullcomp$Day == as.numeric(elapsed)  & fullcomp$Group == "FA13"] - 1),
percent(fullcomp$Cum[fullcomp$Day == as.numeric(elapsed) & fullcomp$Group == "SP15"]/fullcomp$Cum[fullcomp$Day == as.numeric(elapsed)  & fullcomp$Group == "SP13"] - 1)))

df$Pct <- recode(df$Pct, "'Inf%' = 'NA'")
df$Pct2 <- recode(df$Pct2, "'Inf%' = 'NA'")
df$StartedApps <- as.integer(df$StartedApps)
df$CompletedApps <- as.integer(df$CompletedApps)
names(df) <- c("Period", "Starts", "Pct Change", "Submits", "Pct Change")
df
}, options = list(pagingType = "simple", bFilter = FALSE, aLengthMenu = 5, iDisplayLength = 5)) 

---

output$values您可以使用
sPaginationType
选项。在data.table（1.10）的后一个版本中，
pagingType
具有更大的灵活性：

库（闪亮）
runApp（列表(
服务器=功能（输入、输出、会话）{
输出$dt更新，以防有人正在查看：

library(shiny)
runApp(list(
  ui = fluidPage(
    DT::dataTableOutput("dt")
  )
  ,
  server = function(input, output, session) {
    data = data.frame(setNames(replicate(15, rnorm(100), simplify = FALSE), letters[1:15]))

    output$dt <- DT::renderDataTable({
      DT::datatable(data,
                    options = 
                      list(pagingType = "simple")  
      )
    }
    )
  }
)
)

库（闪亮）
runApp（列表(
ui=fluidPage(
DT:：dataTableOutput（“DT”）
)
,
服务器=功能（输入、输出、会话）{
data=data.frame（集合名（replicate（15，rnorm（100），simplify=FALSE），字母[1:15]））
输出$dt不幸的是，此示例只解决了一个问题-每页记录数下拉列表以及搜索菜单仍然存在。对此有什么想法吗？欢迎两周前访问！您可以使用inf
sDom
将bLengthChange=FALSE和bFilter=FALSE添加到修复剩余选项的选项中来操作显示哪些DOM元素两个问题。
library(shiny)
runApp(list(
  ui = fluidPage(
    DT::dataTableOutput("dt")
  )
  ,
  server = function(input, output, session) {
    data = data.frame(setNames(replicate(15, rnorm(100), simplify = FALSE), letters[1:15]))

    output$dt <- DT::renderDataTable({
      DT::datatable(data,
                    options = 
                      list(pagingType = "simple")  
      )
    }
    )
  }
)
)