Question

我有一个Shiny应用程序，该应用程序具有一个折线图，该折线图可测量多个属性在一段时间内的出色平衡。

 traefik:
    image: traefik
    ports:
      - 80:80
      - 8080:8080
      - 443:443
    volumes:
      - /var/run/docker.sock:/var/run/docker.sock:ro
      - ./traefik/traefik.toml:/etc/traefik/traefik.toml:ro
      - ./traefik/acme:/etc/traefik/acme

  web:
    build: .
    restart: always
    depends_on:
        - db
        - redis
        - traefik
    command: python3 /var/www/html/applications/py-saleor/manage.py makemigrations --noinput
    command: python3 /var/www/html/applications/py-saleor/manage.py migrate --noinput
    command: python3 /var/www/html/applications/py-saleor/manage.py collectstatic --noinput
    command: bash -c "cd /var/www/html/applications/py-saleor/ && gunicorn saleor.wsgi -w 2 -b 0.0.0.0:8000"
    volumes:
      - .:/app
    ports:
      - 127.0.0.1:8000:8000
    labels:
      - "traefik.enable=true"
      - "traefik.backend=web"
      - "traefik.frontend.rule=${TRAEFIK_FRONTEND_RULE}"
    environment:
      - SECRET_KEY=changemeinprod

  redis:
    image: redis

  db:
    image: postgres:latest
    restart: always
    environment:
      POSTGRES_USER: saleoradmin
      POSTGRES_PASSWORD: **
      POSTGRES_DB: **
      PGDATA: /var/lib/postgresql/data/pgdata
    volumes:
      - ~/py-saleor/database:/app

馈入图表的数据框如下所示。基本上，它使用事务分类帐（由日期和属性表示），获取每个属性的余额的累加总和，然后使用用户从仪表板（input $ PropertyInputFinance）输入的过滤器按属性过滤表。

output$money.invested.plot = renderPlot({
  ggplot(daily.transaction.bal.reactive(), 
    aes(Date, cumsum, 
    col=Property)) + 
    geom_line()

我想添加一个单选按钮（或者甚至可以将它添加到属性selectInput语句中），该按钮使用户可以选择将数据框中的所有属性组合为一个。换句话说，与其获取每个资产余额的累加和，然后在图表上为它们创建单独的线，不如获取每个交易的累加和（不考虑财产），然后在图表上显示一条连续的线。

有人知道该怎么做吗？谢谢。

R-闪亮-如何将过滤器的所有元素组合为一个？

0 个答案: