jcheng5

Accepting POST requests from Shiny

(This post was motivated by a talk by @jnolis at CascadiaRConf 2021)

Recent versions of Shiny have an undocumented feature for handling POST requests that are not associated with any specific Shiny session. (Note that this functionality is missing our normal level of polish; it's a fairly low-level hook that I needed to make some things possible, but doesn't make anything easy.)

In a nutshell, it works by replacing your traditional ui object with a function(req), and then marking that function with an attribute indicating that it knows how to handle both GET and POST:

library(shiny)

dantonnoriega

# cool bash codes

# search a directory for all lines that match a pattern (not perfect but useful) ------
## e.g. grep is searching for all lines matching "::" in `R/` to determine package calls
## -h hides the file names; -i ignores case
## sed -E uses regular expressions to search and match groups;
## we then sort and use -u
grep -hi :: -R R/* | sed -E 's/(.*)([ ]+[a-z]+::)(.*)/\2/g' | sort -u

# COUNT COLUMNS -----------------

abresler

devtools::install_github("abresler/markovifyR")

library(dplyr)
library(markovifyR)

df_yc <- fundManageR::get_data_ycombinator_alumni()

companies <- df_yc %>% pull(descriptionCompany)

noamross

library(dplyr)
library(tidyr)
library(ggplot2)
library(gridExtra)

df = data_frame(a = rnorm(100, mean=1), b=rnorm(100, mean=2),  c=rnorm(100, mean=0)) %>% 
  gather("var", "value", a,b,c)

ggplot(df, aes(x=value)) +
  geom_density(fill="black", col="white", lwd=1) +

jkeirstead

abresler

library(dplyr)
library(tidyr)
library(magrittr)
library(ggplot2)
"http://academic.udayton.edu/kissock/http/Weather/gsod95-current/NYNEWYOR.txt" %>%
	read.table() %>% data.frame %>% tbl_df -> data
names(data) <- c("month", "day", "year", "temp")

data %>%
	group_by(year, month) %>%

SachaEpskamp

library("shiny")
library("foreign")