我有一個簡單的閃亮，它使用反應式呈現描述性統計資料。但是，我想ifelse在 tidyverse 管道中使用（而不是撰寫大量代碼）。但是，我無法做到這一點。我檢查了以前的帖子，但它不起作用。我想這部分接近我想要的：
students_results <- reactive({
ds %>%
if (input$all_quest == TRUE) { do nothing here!! } else {
filter(domain == input$domain) %>%
group_by(input$quest)
}
summarise(mean(test))
此代碼 100% 有效，
library(shiny)
library(tidyverse)
library(DT)
ds <- data.frame(quest = c(2,4,6,8), domain = c("language", "motor"), test = rnorm(120, 10,1))
ui <- fluidPage(
sidebarLayout(
tabPanel("student",
sidebarPanel(
selectInput("domain", "domain", selected = "language", choices = c("language", "motor")),
selectInput("quest", "Questionnaire", selected = "2", choices = unique(ds$quest)),
checkboxInput("all_quest",
label = "Show all questionnaires",
value = FALSE)
)
),
mainPanel(
dataTableOutput("table")
)
)
)
server <- function(input, output) {
students_results <- reactive({
if (input$all_quest == TRUE) {
ds %>%
group_by(quest, domain) %>%
summarise(mean(test))
}
else {
ds %>%
filter(domain == input$domain) %>%
group_by(input$quest) %>%
summarise(mean(test))
}
})
output$table <- renderDataTable({
students_results()
}
)
}
shinyApp(ui = ui, server = server)
- 請查看下面的 akrun 回復。一切正常。
uj5u.com熱心網友回復：
我們可能需要使用{}來阻止代碼之間的%>%
students_results <- reactive({
ds %>%
{
if (input$all_quest == TRUE) {
.
} else {
{.} %>%
filter(domain == input$domain) %>%
group_by(input$quest)
}
}%>%
summarise(mean(test))
})
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/394816.html
上一篇：如何用預先指定的值替換矩陣中的0
下一篇：在R中設定線性規劃調度問題