使用选取器输入 r 闪亮来应用函数

Question

我希望能够将函数应用于RLdata10000数据集中的一组给定列。 我一直在浏览闪亮的教程，并正在尝试学习如何使用observeEvent和actionButton。 但是，我希望能够选择我使用的列，所以我遇到了pickerInput. 简而言之，我希望能够从RLdata10000中选择一组列，并通过actionButton应用该函数。

我的问题是我收到一个错误：Error: unused argument (RLdata10000)。 我的代码如下。 我希望最终能够使用两个数据文件来做到这一点。 任何帮助将不胜感激。

library(shiny)
library(DT)
library(shinyWidgets)
library(plyr)
library(dplyr)
library(RecordLinkage)
data(RLdata10000)
cleanup <- function(x){
x <- as.character(x) # convert to character
x <- tolower(x) # make all lowercase
x <- trimws(x, "both") # trim white space
return(x)
}
ui <- basicPage(
h2("Record Linkage Data"),
actionButton(inputId = "clean", label = "Clean Data")
pickerInput(width = "75%",
inputId = "pick_col1",
label = "Select columns to display",
choices = colnames(RLdata10000),
selected = colnames(RLdata10000),
options = list(
`actions-box` = T,
`selected-text-format` = paste("count > ", length(colnames(RLdata10000)) - 1),
`count-selected-text` = "Alle",
liveSearch = T,
liveSearchPlaceholder = T
),
multiple = T)
DT::dataTableOutput("mytable")
)
server <- function(input, output) {
observeEvent(input$clean, {
output$mytable = DT::renderDataTable({
lapply(input$pick_col1, cleanup)
})
}
}
shinyApp(ui, server)

Answer 1

我实际上无法复制您注意到的错误，但是您遇到了一些问题，这些问题阻止了您获得(我认为(所追求的内容。

首先，UI 中actionButton和pickerInput元素之后缺少逗号。

其次，当你使用input$pick_col1时，你只给lapply列的名称 - 而不是数据 - 所以你的清理函数没有什么可处理的。使用dplyr中的select提供了一种命名列和获取数据的简单方法。

最后，renderDataTable想要表格格式作为输入(即数据框或矩阵(，但lapply生成一个列表。您需要将lapply的输出转换为可行的类。

从这三个更改中，更新的代码将如下所示：

library(shiny)
library(DT)
library(shinyWidgets)
library(plyr)
library(dplyr)
library(RecordLinkage)
data(RLdata10000)
cleanup <- function(x){
x <- as.character(x) # convert to character
x <- tolower(x) # make all lowercase
x <- trimws(x, "both") # trim white space
return(x)
}
ui <- basicPage(
h2("Record Linkage Data"),
actionButton(inputId = "clean", label = "Clean Data"),
pickerInput(width = "75%",
inputId = "pick_col1",
label = "Select columns to display",
choices = colnames(RLdata10000),
selected = colnames(RLdata10000),
options = list(
`actions-box` = T,
`selected-text-format` = paste("count > ", length(colnames(RLdata10000)) - 1),
`count-selected-text` = "Alle",
liveSearch = T,
liveSearchPlaceholder = T
),
multiple = T),
DT::dataTableOutput("mytable")
)
server <- function(input, output) {
observeEvent(input$clean, {
output$mytable = DT::renderDataTable({
data.frame(lapply(select(RLdata10000, input$pick_col1), cleanup))
})
})
}
shinyApp(ui, server)