timelyportfolio timelyportfolio
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( |
timelyportfolio
/ example.R
Created Jul 3, 2020
cell in rhansontable trigger modal with additional information
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