R: After adding rpivotTable Dashboard UI not working in flexdashboard
Here want to plot heatmap of User vs Late_bin in new page of flexdashboard,
But its not working.
In place of rpivotTable added some other plot like pie chart then its working fine.
Data Set is Like:
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
Want to ploy heat map using 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 Data
Raw_data <- read.xlsx("Supplier.xlsx",sheetIndex = 1)
` ` `
Sum OTD by Supplier
=====================================
### Header
` ` `{r}
rpivotTable(inventory, rows = "User", cols = "Late_Bin", aggregatorName = "Count", rendererName = "Heatmap", width = "100%",height = "600px",overflow = "scroll")
` ` `