Alex Hallam alexhallam

Shiny == good & Vue == good | Shiny + Vue == good?

Shiny Shiny.shinyapp.$inputValues acts like a store of state. I thought it would be fun to let vuejs react to changes in Shiny input values. This example is intentionally very simple to hopefully self-explain.

vueR

I have assembled vueR package, like d3r and reactR, to offer helpers for vuejs. For this example please install vueR, or just add tags$script(src = "https://unpkg.com/[email protected]") to the tagList().

devtools::install_github("timelyportfolio/vueR")`

Mini-HowTo submit RMarkdown articles to ArXiV

ArXiV is a place for publishing scientific technical reports and drafts which is tightly tied to LaTeX. That is why if you generate a PDF from your RMarkdown article it will tell you, hey, this has been generated using LaTeX, I want the LaTeX source. In principle, RStudio does not admit LaTeX as a final format, only .doc, .pdf or HTML. But it is no big deal.

You only need to add this to the metadata in the RMarkdown document

output: 
  pdf_document:
    keep_tex: true

People

`:bowtie:`	😄 `:smile:`	😆 `:laughing:`
😊 `:blush:`	😃 `:smiley:`	☺️ `:relaxed:`
😏 `:smirk:`	😍 `:heart_eyes:`	😘 `:kissing_heart:`
😚 `:kissing_closed_eyes:`	😳 `:flushed:`	😌 `:relieved:`
😆 `:satisfied:`	😁 `:grin:`	😉 `:wink:`
😜 `:stuck_out_tongue_winking_eye:`	😝 `:stuck_out_tongue_closed_eyes:`	😀 `:grinning:`
😗 `:kissing:`	😙 `:kissing_smiling_eyes:`	😛 `:stuck_out_tongue:`

	WITH generate_date AS (
	SELECT CAST(RANGE AS DATE) AS date_key
	FROM RANGE(DATE '2009-01-01', DATE '2013-12-31', INTERVAL 1 DAY)
	)
	SELECT date_key AS date_key,
	DAYOFYEAR(date_key) AS day_of_year,
	YEARWEEK(date_key) AS week_key,
	WEEKOFYEAR(date_key) AS week_of_year,
	DAYOFWEEK(date_key) AS day_of_week,
	ISODOW(date_key) AS iso_day_of_week,

	# Install R
	sudo apt-get update
	sudo apt-get install gdebi libxml2-dev libssl-dev libcurl4-openssl-dev libopenblas-dev r-base r-base-dev

	# Install RStudio
	cd ~/Downloads
	wget https://download1.rstudio.org/rstudio-xenial-1.1.383-amd64.deb
	sudo gdebi rstudio-xenial-1.1.383-amd64.deb
	printf '\nexport QT_STYLE_OVERRIDE=gtk\n' \| sudo tee -a ~/.profile

	set ssl_starttls=yes
	set ssl_force_tls=yes

	set imap_user = '[email protected]'
	set imap_pass = 'password_here'
	set from= $imap_user
	set use_from=yes
	set realname='Your_Name'
	set folder = imaps://imap-mail.outlook.com:993
	set spoolfile = "+INBOX"

	library(tweenr) # Available on CRAN
	library(ggforce) # Install from thomasp85/ggforce
	library(gganimate) # Install from dgrtwo/gganimate
	set.seed(2)
	x <- sample(9,20, prob=c(1,2,3,4,5,4,3,2,1), replace=T)
	df <- data.frame(x = x, y = 15)
	dfs <- list(df)
	for(i in seq_len(nrow(df))) {
	dftemp <- tail(dfs, 1)
	dftemp[[1]]$y[i] <- sum(dftemp[[1]]$x[seq_len(i)] == dftemp[[1]]$x[i])


	library(shiny)
	library(dplyr)
	library(lubridate)

	# Load libraries and functions needed to create SQLite databases.
	library(RSQLite)
	library(RSQLite.extfuns)
	saveSQLite <- function(data, name){
	path <- dplyr:::db_location(filename=paste0(name, ".sqlite"))