test.md

#Sample Dataframe
library(magrittr)
library(dplyr)

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

library(formattable)

sample = data.frame(
  beer_brewerId = c("8481", "8481", "8481"),
  rev_app = c("4","1", "2"),
  beer_name = c("John Harvards Simcoe IPA", "John Harvards Simcoe IPA", "John Harvards American Brown Ale"),
  review_taste =c("6", "7", "6"), stringsAsFactors = FALSE
)

glimpse(sample)

## Observations: 3
## Variables: 4
## $ beer_brewerId <chr> "8481", "8481", "8481"
## $ rev_app       <chr> "4", "1", "2"
## $ beer_name     <chr> "John Harvards Simcoe IPA", "John Harvards Simco...
## $ review_taste  <chr> "6", "7", "6"

formattable(sample, align ="c")

beer\_brewerId	rev\_app	beer\_name	review\_taste
8481	4	John Harvards Simcoe IPA	6
8481	1	John Harvards Simcoe IPA	7
8481	2	John Harvards American Brown Ale	6

test.Rmd

---
title: "Untitled"
output: md_document
---

```{r}
#Sample Dataframe
library(magrittr)
library(dplyr)
library(formattable)

sample = data.frame(
  beer_brewerId = c("8481", "8481", "8481"),
  rev_app = c("4","1", "2"),
  beer_name = c("John Harvards Simcoe IPA", "John Harvards Simcoe IPA", "John Harvards American Brown Ale"),
  review_taste =c("6", "7", "6"), stringsAsFactors = FALSE
)

glimpse(sample)

formattable(sample, align ="c")
```