---
title: "Column Orientation (default)"
output: 
  flexdashboard::flex_dashboard:
    theme: spacelab
    source: embed
    smart: false
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE )
library( dplyr )
library( Lahman )
library( DT )
data( Teams )
```



Column {.tabset .tabset-fade data-width=500}
-------------------------------------
    
### Chart 1
    
```{r, echo=F, fig.width=12, eval=F}
plot( Teams$yearID, Teams$H/Teams$G, pch=19, col=gray(0.5,0.2), bty="n",
      ylab="Ave. Hits Per Game (H/G)", xlab="Year (yearID)", main="AVE HITS PER GAME" )

league <- 
  Teams %>%
  group_by( yearID ) %>%
  summarize( ave.hits =mean( H / G , na.rm=T ) )

points( league$yearID, league$ave.hits, type="o", col="darkblue", pch=19 )
```



```{r, echo=F, eval=T}
library(ggplot2)
library(plotly)

Teams <- mutate( Teams, HG=H/G )

league <- 
  Teams %>%
  group_by( yearID ) %>%
  summarize( ave.hits =mean( H / G , na.rm=T ) )

p <- ggplot( data=Teams, aes( x=yearID, y=HG  ) ) + 
  geom_point( col="gray", alpha=0.3, size=2, aes( text=name ) ) +
  geom_line( data=league, aes(x=yearID,y=ave.hits), col="blue" ) +
  ggtitle( "Ave Hits Per Game" ) +
  theme_bw()

ggplotly(p)
```



### Chart 3

```{r, echo=F}
plot( Teams$yearID, Teams$HR/Teams$G, pch=19, col=gray(0.5,0.2), bty="n",
      ylab="Ave. Home Runs Per Game (HR/G)", 
      xlab="Year (yearID)", main="AVE HOME RUNS PER GAME" )

league <- 
  Teams %>%
  group_by( yearID ) %>%
  summarize( ave.hr =mean( HR / G , na.rm=T ) )

points( league$yearID, league$ave.hr, type="o", col="darkred", pch=19 )
```




Column {data-width=500}
-------------------------------------


### Chart 2
    
```{r, echo=F}

# library( DT )

sub.t <- Teams[ c("name","yearID","SO","H","HR","G") ]

these.buttons <- c( 'copy', 'csv', 'excel', 'pdf', 'print' )

datatable(  sub.t,
           filter='bottom', rownames=FALSE, 
           #options=list( pageLength=5, autoWidth=TRUE ),
           fillContainer=TRUE, 
           style="bootstrap",
           class='table-condensed table-striped',
           extensions = 'Buttons', 
           options=list( dom='Bfrtip', 
                         buttons=these.buttons  )) %>%
  
  formatStyle( "name", "white-space"="nowrap" )

```