View example.R
# remotes::install_github("juba/robservable") | |
library(robservable) | |
# see entire notebook | |
robservable("@timelyportfolio/a-github-inspired-calendar") | |
# only see the chart | |
robservable( | |
"@timelyportfolio/a-github-inspired-calendar", |
View nymap.R
library(tidycensus) | |
library(leaflet) | |
library(tidyr) | |
library(dplyr) | |
library(purrr) | |
library(sf) | |
library(htmlwidgets) | |
library(svglite) | |
ny_counties <- get_acs( |
View example.R
library(rhandsontable) | |
library(htmltools) | |
browsable(tagList( | |
rhandsontable( | |
data = mtcars, | |
rowHeaders = NULL, | |
# see http://jsfiddle.net/pn3rv48p/ for another example with afterGetColHeader | |
afterGetColHeader = htmlwidgets::JS(htmltools::HTML( | |
sprintf( |
View example.R
library(shiny) | |
library(htmltools) | |
library(rhandsontable) | |
library(dplyr) | |
rht <- rhandsontable( | |
head(mtcars) %>% | |
mutate(name = rownames(.)) %>% | |
select(name, everything()), | |
rowHeaders = NULL |
View example.Rmd
--- | |
title: "Example of filtered values boxes" | |
output: | |
flexdashboard::flex_dashboard: | |
orientation: rows | |
vertical_layout: fill | |
mathjax: null | |
--- | |
```{r setup, include=FALSE} |
View code.R
library(htmltools) | |
library(scatterD3) | |
sd3 <- scatterD3(x = mtcars$wt, y = mtcars$mpg, data=NULL, lab = rownames(mtcars), | |
col_var = mtcars$cyl, symbol_var = mtcars$am, | |
xlab = "Weight", ylab = "Mpg", col_lab = "Cylinders", | |
symbol_lab = "Manual transmission", html_id = NULL, height = 300, width = 500) | |
browsable( | |
tags$div( |
View .block
license: mit |
View .block
license: mit |
View .block
license: mit |
View .block
license: mit |
NewerOlder