ColinFay

library(shiny)

ui <- fluidPage()

server <- function(input, output, session) { 
}

# Creating the shiny object
res <- shinyApp(ui, server)

ColinFay

# To do the first time
# git remote add upstream https://github.com/original-repo/goes-here.git
git fetch upstream
git rebase upstream/master
git push origin master --force

ColinFay

@import url('https://fonts.googleapis.com/css2?family=Ubuntu:wght@500&display=swap');

body {
 background-color:  #EBBE9B;
 font-family: 'Ubuntu', sans-serif;
}

h1{
  text-transform: uppercase;
  color: #502419;

ColinFay

See examples at

• https://connect.thinkr.fr/shiny-whereami/

• https://colinfay.shinyapps.io/shiny-whereami/

ColinFay

library(shiny)
ui <- function(request){
  tagList(
    tags$button(
      "glop", 
      onclick = "Shiny.setInputValue('cont', document.documentElement.innerHTML)"
    )
  )
}

ColinFay

library(future)
plan(multisession)

checks <- function(x){
  
  if(resolved(x)){
    print(value(x))
  } else {
    later::later(~ checks(x), 2)
  }

ColinFay

library(shiny)

# MODULE UI
customInputUI <- function(id) {
  ns <- NS(id)
  verbatimTextOutput(ns("debug"))
}

# MODULE SERVER 
# Render the custom shiny input binding

ColinFay

```{r}
xml2::read_html("https://github.com/ThinkR-open/golem") %>%
  rvest::html_nodes(".overall-summary-bottomless") %>%
  as.character() %>%
  htmltools::HTML()
```

ColinFay

browser_n <- function(n){
  i <- 0
  function(...){
    i <<- i + 1
    if (n >= i){
      browser(...)
    } else {
      invisible(NULL)
    }
  }

ColinFay

Install R from source

Set R version and dl it

(you can modify the cran mirror)

R_VERSION='3.6.1'
wget https://cran.univ-paris1.fr/src/base/R-3/R-${R_VERSION}.tar.gz