时间戳

首页 > 解决方案 > dateRangeInput、selectInput 和反应函数 R 闪亮

r - dateRangeInput、selectInput 和反应函数 R 闪亮

问题描述

我真的需要你的帮助。我是 R Shiny 的新手，我必须使用 2 个反应函数。我有一个数据库表，其中列(id_cli, val_cli, date_cli) 示例（1、12、2020-02-01）；(1,30,2020-02-02); (2, 80,2020-02-03) 等我想使用该函数选择 id_cli并从那里使用该函数selectInput选择一个日期范围dateRangeInput

这是我的代码：


date1 <- seq(from = min(clo$date_cli), to = max(clo$date_cli), by= "days")

tweet <- data.frame(date = date1, clo$val_cli, clo$id_cli)

selectInput(inputId="cli", label= "Choose client", choices = tweet$id_cli)

dateRangeInput(inputId ="date", label ="Choose date", start = min(tweet$date_cli)
               end = max(tweet$date_cli),
               min = min(tweet$date_cli),
               max = max(tweet$date_cli)
)


query1 <-reactive({
tweet %>%
select(id_cli, val_cli, date_cli) %>%
filer(id_cli ==input$cli)
})

query2 <-reactive ({
query1()
filter(tweet, between(date, input$date[1] input$date[2])
})

该代码包含所有数据的日期范围，但没有选择id_cli有人input$cli 可以帮助我吗？

标签： rshinyshinydashboardreactiveshiny-reactivity

解决方案

query2在更改后做出反应query1，但没有使用query1. 它仍在使用tweet。尝试：

query2 <-reactive ({
    query1() %>% between(date, input$date[1] input$date[2])
})

推荐阅读