Как визуализировать данные внутри FluidPage - PullRequest
Новая
       6

Как визуализировать данные внутри FluidPage

1 голос
/ 11 февраля 2020

У меня есть следующий концептуальный вопрос: как визуализировать данные в жидкости. Вот код, который возобновляет вопрос: 

---
title: "Dashboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny
---

library(flexdashboard)
library(DBI)
library(RPostgreSQL)
library(tidyverse)
library(DT)

dataset <- eventReactive(input$button_execute, {
# SQL query 
dataset <- dbFetch(rs)
})

Пока запрос выполняется нормально, и я хочу поместить некоторые результаты запроса в liquidPage: 

fluidPage(
  fluidRow(
    column(2,""),
    column(8,variable1, style="text-align: center;")),
    column(2,variable2, style="text-align: center;"))
  )
)

Я хочу, чтобы переменные 1 и 2 были: 

variable1 <- dataset %>% summary(total = sum(sales))
variable2 <- dataset %>% summary(mean = sum(sales))

Не могли бы вы помочь мне с некоторыми советами по этому поводу? Спасибо.

...