R: После добавления rpivotTable Dashboard не UI не работает flexdashboard - PullRequest
Новая
       16

R: После добавления rpivotTable Dashboard не UI не работает flexdashboard

1 голос
/ 02 марта 2020

R: После добавления пользовательского интерфейса rpivotTable Dashboard, не работающего во flexdashboard

Здесь вы хотите отобразить тепловую карту пользователя против Late_bin на новой странице flexdashboard,

Но это не работает.

Вместо rpivotTable добавлен другой график, например, график p ie, и он работает нормально. Набор данных подобен: 

User               Late_Bin

a                   early             
b                   >50
a                   >50
c                   >50
a                   >50
s                   <=50
c                   early
s                   early
b                   <50
c                   <=5
a                   <=30
s                   early
c                   >50
s                   <=30                    
b                   <=10
s                   <=10
c                   <=10

Хотите использовать тепловую карту, используя rpivotTable 

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

` ` `{css, Pivot Table CSS, echo = FALSE}
.rpivotTable{overflow:scroll}

` ` `

` ` `{r setup, include=FALSE}

# Check Work Directory Path
getwd()
# Check and Install missing Packeges & Import Libraries of it.

ipak <- function(pkg) {
  new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
  if (length(new.pkg))
    install.packages(new.pkg, dependencies = TRUE)
  sapply(pkg, require, character.only = TRUE)}

# usage
packages <-
  c("flexdashboard",
    "xlsx",
    "dplyr",
    "knitr",
    "DT",
    "shiny",
    "rpivotTable",
    "ggplot2",
    "plotly",
    "openintro",
    "reshape2",
    "highcharter",
    "ggvis",
    "rstudioapi",
    "lubridate",
    "hrbrthemes",
    "tidyr",
   )
ipak(packages)

#install.packages('devtools')  # if you don't already have devtools installed
#devtools::install_github('shiny', 'rstudio')
#library(shiny)
` ` `

` ` `{r}

# Read Dara
Raw_data <- read.xlsx("Supplier.xlsx",sheetIndex = 1)
` ` `

Sum OTD by Supplier 
=====================================

### Header

` ` `{r}
rpivotTable(Raw_data , rows = "User", cols = "Late_Bin", aggregatorName = "Count", rendererName = "Heatmap", width = "100%",height = "600px",overflow = "scroll")

` ` `
...