Visualization for 'diffrprojects'

Status

R code: 310 C++ code: 0 test code: 0

Version

0.1.4.90000

Description

Interactive visualizations and tabulations for diffrprojects. All presentations are based on the htmlwidgets framework allowing for interactivity via HTML and Javascript, Rstudio viewer integration, RMarkdown integration, as well as Shiny compatibility.

Funding

This software was created as part of the "Institutional Design in Western European Democracies" research project, funded by DFG (Deutsche Forschungsgemeinschaft), lead by Ulrich Sieberer and based at University Konstanz.

License

MIT + file LICENSE Peter Meissner retep.meissner@gmail.com [aut, cre] Ulrich Sieberer ulrich.sieberer@uni-bamberg.de [cph] University of Konstanz willkommen@uni-konstanz.de [cph]

Citation

To cite package 'diffrprojectswidget' in publications use:

Peter Meissner (2016). diffrprojectswidget: Visualization for 'diffrprojects'. R package version 0.1.4.90000. https://github.com/petermeissner/diffrprojects

A BibTeX entry for LaTeX users is

@Manual{, title = {diffrprojectswidget: Visualization for 'diffrprojects'}, author = {Peter Meissner}, year = {2016}, note = {R package version 0.1.4.90000}, url = {https://github.com/petermeissner/diffrprojects}, }

BibTex for citing

toBibtex(citation("diffrprojectswidget"))

Installation

devtools::install_github("petermeissner/stringb")
devtools::install_github("petermeissner/rtext")
devtools::install_github("petermeissner/diffrprojects")
devtools::install_github("petermeissner/diffrprojectswidget")

... or, alternatively from my private R package repository ...

options( "repos" = 
  c(
    options("repos")$repos, 
    petermeissner="https://petermeissner.github.io/drat"
  ) 
)
install.packages("diffrprojectswidget")

Example usage

library(diffrprojects)
library(diffrprojectswidget)

dp <-
  diffrproject$new()$
  text_add(list(text_version_1, text_version_2))$
  text_link()$
  text_align( maxDist = 1 )

dp$text_code_regex(
  text    = 1, 
  x       = "change",    
  pattern = "change", 
  val     = "change"
)
dp$text_code_regex(
  text    = 1, 
  x       = "change",    
  pattern = "add", 
  val     = "add"
)
dp$text_code_regex(
  text    = 1, 
  x       = "change",    
  pattern = "modif", 
  val     = "modif"
)
dp$text_code_regex(
  text    = 1, 
  x       = "change",    
  pattern = "delete", 
  val     = "delete"
)
dp$text_code_regex(text=1, x="stability", pattern="same", val=TRUE)

dp$alignment_code(1, sample(1:6)*2,"alignment_code", TRUE)

dpv <- dp_vis(dp, 1, align_var = TRUE, text_var = TRUE)
dpv

dpt <- dp_table(dp, 1, align_var = TRUE, text_var = TRUE)
dpt