davidgohel

# install.packages("flextable")

library(ggplot2)
library(flextable)
library(officer)
library(patchwork)
library(magrittr)

stopifnot(packageVersion("flextable") <= numeric_version("0.8") )

davidgohel

#remotes::install_github("davidgohel/officer")
#remotes::install_github("davidgohel/flextable")
library(ggplot2)
library(flextable)
library(patchwork)
library(tidyverse)

main <- ggplot(data = diamonds, aes(x= price, y = x, color = color)) + 
  geom_point() + 
  theme_minimal()

davidgohel

library(purrr)
library(charlatan)
library(microbenchmark)


create_fake_data <- function(n){
  data <- ch_generate('job', 'color_name', 'phone_number', n = n)
  
  data$color_name[sample.int(nrow(data), n/10 )] <- NA_character_
  data$x <- rnorm(n)

davidgohel

Keybase proof

I hereby claim:

• I am davidgohel on github.
• I am davidgohel (https://keybase.io/davidgohel) on keybase.
• I have a public key ASAmdgDIl3yKhvBHX5VqEMaAZq21ZT6E_qS1IsF_wimZcAo

To claim this, I am signing this object:

davidgohel

ft <- flextable( head( iris ),
                 col_keys = c("Species", "Sepal.Length", "Petal.Length", "Sepal.Width", "Petal.Width") )
ft <- add_header(x = ft, Sepal.Length = "length",
                 Sepal.Width = "width", Petal.Length = "length",
                 Petal.Width = "width", Species = "Species", top = FALSE )
ft <- add_header(ft, Sepal.Length = "Inches",
                 Sepal.Width = "Inches", Petal.Length = "Inches",
                 Petal.Width = "Inches", Species = "Species", top = TRUE )
ft <- merge_h(ft, part = "header")

davidgohel

library(officer)
doc <- read_docx()
print(doc, target = "test.docx")

davidgohel

library(ReporteRs)

test <-
  structure(list(Grade1 = c(20, 30, 20, 10),
                 Grade2 = c(10, 5, 10, 20),
                 Grade3 = c(5, 2, 4, 5),
                 Grade4 = c(0, 0, 3, 0),
                 Grade5 = c(0, 0, 0, 1)),
            .Names = c("1","20","300","4000","50000"),
            row.names = c("A","B","C","D"),

davidgohel

library(ReporteRs)
require( ggplot2 )
myplot <- qplot(Sepal.Length, Petal.Length, 
                data = iris, color = Species,
                size = Petal.Width, alpha = I(0.7) )
xx <- pptx()
xx <- addSlide(xx, "Title and Content")

# get slide dimensions
slide_dims <- dim(xx)$slide.dim

davidgohel

library(ggiraph)
library(maps)


shinyServer(function(input, output, session) {

  selected_car <- reactive({
    if( is.null(input$plot_selected)){
      character(0)
    } else input$plot_selected

davidgohel

library(boot)
library(dplyr)
library(magrittr)
library(purrr)
library(ReporteRs)

# get some data -----
data(melanoma)

melanoma$Status = c( 'Melanoma', 'Alive' , 'Non-melanoma' )[melanoma$status]