37、为仪表盘添加交互性

为仪表盘添加交互性

1. 添加带有共享数据的摘要表

我们将在动态数据表上方添加一个摘要表，该表会根据所选资产进行更新。若直接复制之前处理 EBUB 对象的模式来实现，虽能得到正确结果，但效率低下，因为数据过滤逻辑会重复。

为避免此问题，我们使用 SFBDUJWF 函数在不同响应式函数间共享数据流。将之前创建的所有逻辑移到作为该函数参数的表达式中，并赋值给 EBUB 对象，此时 EBUB 成为一个响应式函数。同时添加代码检查当前资产选择是否为 "MM" ，若不是，则用该值过滤数据，类似于按日期过滤。

实现代码如下：

TFSWFS <- function(JOQVU, PVUQVU) {
    EBUB <- reactive({
        EBUB <- 03*(*/"-@%"5"
        TUBSU <- JOQVU$EBUF@SBOHF[1]
        FOE <- JOQVU$EBUF@SBOHF[2]
        if (JOQVU$BTTFU != "All") {
            EBUB <- EBUB[EBUB$OBNF == JOQVU$BTTFU, ]
        }
        if (UJNF@UP@EBUF@TUSJOH$5JNF4UBNQ(TUBSU) != %5&@.*/ & UJNF@UP@EBUF@TUSJOH$5JNF4UBNQ(FOE