timelyportfolio

# 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",

timelyportfolio

library(tidycensus)
library(leaflet)
library(tidyr)
library(dplyr)
library(purrr)
library(sf)
library(htmlwidgets)
library(svglite)

ny_counties <- get_acs(

timelyportfolio

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

library(shiny)
library(htmltools)
library(rhandsontable)
library(dplyr)

rht <- rhandsontable(
  head(mtcars) %>%
    mutate(name = rownames(.)) %>%
    select(name, everything()),
  rowHeaders = NULL

timelyportfolio

---
title: "Example of filtered values boxes"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
    mathjax: null
---

```{r setup, include=FALSE}

timelyportfolio

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(

timelyportfolio

license: mit

timelyportfolio

license: mit

timelyportfolio

license: mit

timelyportfolio

license: mit