r - as.formula 函数调用,其中公式输入是闪亮的反应对象
问题描述
这一直困扰着我多年。
我有一个函数,其中第一个参数需要是形式
function(data~ group_variable)
或形式function(data, group = data$group_variable)
。
我有这个功能在控制台中运行顺利,但它是我闪亮的应用程序不可或缺的一部分,它一直困扰着我很长时间,因为数据和组都是用户选择的反应对象,所以它需要采用以下形式:
function(datasetInput() ~ !!input$group_variable)
或其某个版本。
我还没有找到!!
s, enquo()
, substitute()
,as.function(substitute())
等的任何组合来使这个在闪亮的应用程序中工作。as.Formula(substitute(data ~ group))
在控制台中工作。
这是我可以做的尽可能少的代表:
library(shiny)
library(shinyWidgets)
library(psych)
library(dplyr)
library(gt)
use <- function(name) {
# consider future support for .json?
if (grepl(".csv", name)) {
readr::read_csv(name)
} else if (grepl(".xlsx", name)) {
readxl::read_xlsx(name)
} else if (grepl(".dta", name)) {
haven::read_dta(name)
} else if (grepl(".sav", name)) {
haven::read_spss(name)
} else if (grepl(".rda", name)) {
load(name)
} else {
stop("unknown data type.")
}
}
ui <- fluidPage(
mainPanel(
fileInput("FileInput", "Input Your Data Set"),
helpText("Dataset must be one of: .csv, .sav, .dta, .xlsx, or .rda"),
materialSwitch(
inputId = "ext_desc",
label = "Extended Description",
value = FALSE,
status = "primary"
),
materialSwitch(
inputId = "desc_by_group_bool",
label = "Describe By A Group",
value = FALSE,
status = "primary"
),
varSelectInput(
inputId = "desc_group",
label = "Select A Group",
data = NULL,
width = "400px"
),
gt::gt_output("description")
)
)
server <- function(input,output, session){
datasetInput <- reactive({
infile <- input$FileInput
if (is.null(infile))
return(NULL)
dat<-use(infile$datapath)
names(dat) <- gsub(" ", "_", names(dat), fixed = TRUE)
return(dat)
})
observeEvent(datasetInput(), {
updateVarSelectInput(session, "desc_group", data = datasetInput())
})
desc <- reactive({
req(datasetInput())
if (input$desc_by_group_bool == FALSE) {
datasetInput() %>%
#select_if(is_numeric) %>%
psych::describe(., fast = !(input$ext_desc),
omit = TRUE) %>%
add_rownames(var = "Variable") %>%
dplyr::select(-c(vars)) %>%
dplyr::mutate(dplyr::across(is.numeric, round, 2)) %>%
gt::gt() %>%
gt::tab_options(
column_labels.font.size = "small",
table.font.size = "small",
row_group.font.size = "small",
data_row.padding = px(3)
) %>%
gt::tab_header(title = paste0("Data Description"))
} else {
# datasetInput() %>%
# select_if(is.numeric) %>%
psych::describeBy( datasetInput() ~ !!input$desc_group,
# here we get "invalid argument type" error
fast = !(input$ext_desc),
mat = TRUE) %>%
tibble::rownames_to_column() %>%
select(-c(item, vars)) %>%
dplyr::mutate(dplyr::across(is.numeric, round, 2)) %>%
arrange(group1) %>%
group_by(group1) %>%
gt() %>%
gt::tab_options(
column_labels.font.size = "small",
table.font.size = "small",
row_group.font.size = "small",
data_row.padding = px(3)
) %>%
tab_header(title = paste0("Data Description") ,
subtitle = paste0("Grouped by: ", input$desc_group)
)
}
})
output$description = gt::render_gt(desc())
}
shinyApp(ui = ui, server = server)
导致错误的行——也是我问题的来源,请原谅我,上面的第 85 行。
解决方案
我们有多种方法可以解决这个问题。一种方法是使用[[]]
对特定列进行子集化。所以将describeBy
行更改为:
psych::describeBy( datasetInput(), group = datasetInput()[[input$desc_group]]
也加where
进去dplyr::across
dplyr::mutate(dplyr::across(where(is.numeric), round, 2))
推荐阅读
- r - 在堆积条形图ggplot上粘贴%标签
- algorithm - 聚集病房联系标准
- python - 类型错误:没有名为“kivy._clock”的模块
- flask - 子进程在烧瓶应用程序中调用 sh 脚本文件以运行
- javascript - 向 React Map 添加多个标记
- windows - 将 MinGW-w64 与 Visual Studio Code 一起使用而不将其添加到 PATH
- python - 有没有办法从 python 脚本中获取不断变化的数据,并在 Vue 组件中显示和更新?
- android - BottomNavigationView 后面的片段中的底部工作表
- java - 在 gradle 中创建一个 pom.xml 文件,其范围不是运行时
- firebase - 为什么我的(当前)私人 Firebase 应用程序上会有这么多随机用户?