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