r - 如何在流体页面中呈现数据

Question

我有以下概念性问题：如何在流体页面中呈现数据。这是恢复问题的代码：

---
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)
})

到目前为止，查询运行良好，我想将查询的一些结果放在一个流体页面中：

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))

你能帮我一些建议吗？谢谢你。

标签： rshinyflexdashboard