tests/ePie.R

library(ECShiny)

d <- data.frame(
  #"Tempo" = factor(c(seq(2012,2016,1),seq(2012,2016,1))),
  "Category" = runif(3, min = 0, max = 10)*1e+03,
  "Label" = c("label 1","label 2","label 3"),
  stringsAsFactors = FALSE
)

d <- data.frame(
  "Id" = runif(3, min = 0, max = 10)*1e+03,
  "Category" = runif(3, min = 0, max = 10)*1e+03,
  "Label" = c("label 1","label 2","label 3"),
  stringsAsFactors = FALSE
)

ePie(data=d,id="Id",size='Category',group='Label',print.json = TRUE)




ePie(data=d,size='Category',group='Label',print.json = TRUE,id.visualizar = 'teste',
     title="TEste")

ePie(data=d,size='Category',group='Label',print.json = TRUE,id.visualizar = 'teste',
     id.opcoes = "teste",
     title="TEste")

ePie(data=d,size='Category',group='Label',print.json = TRUE,
     id.opcoes = "teste",
     title="TEste")

ePie(data=d,size='Category',group='Label',print.json = TRUE,
     id.opcoes = "teste", id.limpar = "tese",
     title="TEste")

ePie(data=d,size='Category',group='Label',print.json = TRUE,
     id.opcoes = "teste", id.visualizar = "tese",
     title="TEste")

ePie(data=d,size='Category',group='Label',print.json = TRUE,
     id.limpar = "teste",
     title="TEste")

ePie(data=d,size='Category',group='Label',print.json = TRUE,
     id.limpar = "teste", id.visualizar = "v",id.opcoes  = "b",
     title="TEste")

ePie(data=d,size='Category',group='Label',print.json = TRUE,id.visualizar = 'teste',
     title="TEste")

ePie(data=d,size='Category',group='Label',print.json = TRUE,id.visualizar = 'teste',
     title="TEste",donut = TRUE)

ePie(data=d,size='Category',group='Label',print.json = TRUE,id.visualizar = 'teste',
     id.limpar = "teste",id.baixar = "tes",
     title="TEste",donut = TRUE)

d <- data.frame(
  #"Tempo" = factor(c(seq(2012,2016,1),seq(2012,2016,1))),
  "Despesa" = runif(3, min = 0, max = 10)*1e+03,
  "Categoria" = c("Alimentação","Vestuário","Lazer"),
  stringsAsFactors = FALSE
)

ePie(data=d,size='Despesa',group='Categoria',print.json = TRUE)

ePie(data=d,size='Despesa',group='Categoria',print.json = TRUE,click = TRUE)

ePie(data=d,size='Despesa',group='Categoria',donut=TRUE,print.json = TRUE)

ePie(data=d,size='Despesa',group='Categoria',rose=TRUE,print.json = TRUE)

d <- data.frame(
  "Tempo" = factor(c(seq(2012,2013,1))),
  "Despesa" = runif(6, min = 0, max = 10)*1e+03,
  "Categoria" = c(c("Alimentação","Vestuário","Lazer"),c("Alimentação","Vestuário","Lazer")),
  stringsAsFactors = FALSE
)

ePie(data=d,size='Despesa',group='Categoria',time="Tempo",print.json = TRUE)

ePie(data=d,size='Despesa',group='Categoria',time="Tempo",donut=TRUE,print.json = TRUE)

ePie(data=d,size='Despesa',group='Categoria',time="Tempo",rose=TRUE,print.json = TRUE)
lemaufpb/ECShiny documentation built on July 20, 2018, 3:37 p.m.