thisisnic

library(shinyjs)
library(shiny)
library(purrr)
library(stringr)
library(glue)

#' Remove element named "id" from a list
remove_id_element <- function(x){
  x$id = NULL
  x

thisisnic

library(shiny)
library(DT)
library(dplyr)

ui <- fluidPage(
  fluidRow(
    textOutput("processStatus")
  ),
  fluidRow(DTOutput("myTable"))
)

thisisnic

library(shiny)
library(DT)
library(dplyr)


ui <- fluidPage(
  DTOutput("myTable")
)

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

thisisnic

library(shiny)
library(DT)
library(dplyr)

ui <- fluidPage(
  DTOutput("myTable")
)

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

thisisnic

/*
The div we've manually created, with a class of 'outerDivClassName'
which contains the scrollbar we want to watch.  In the CSS, give
this class the property "overflow: auto;", so that a scrollbar appears 
when its contents are too large to fit inside.
*/
const scrollBox = document.querySelector('.outerDivClassName');

function scrollHeaderFunc(){

thisisnic

# Nested modules - note that when something in the parent module is updated, 
# only the elements of the child module which had reactive dependencies will 
# update.
# 
# * Examine what is updated when we click the "show row numbers" checkbox
# * Now examine when the data_count output is updated.

library(shiny)
library(DT)

thisisnic

# Adapted from https://stackoverflow.com/questions/48592056/shiny-reactivity-not-working-in-submodules

library(shiny)
library(DT)

filtersUI <- function(id) {
  ns <- NS(id)
  
  selectizeInput(
    ns("Species"),

thisisnic

# Adapted from https://stackoverflow.com/questions/45739303/r-shiny-handle-action-buttons-in-data-table

library(shiny)
library(DT)
library(tibble)

#' Programmatically create a Shiny input
#' 
#' @param FUN function to create the input
#' @param n number of inputs to be created

thisisnic

history.pushState(null, null, null);
window.addEventListener('popstate', function () {

  const endProgress = confirm('This will end your session, are you sure you want to go back?');

  if (endProgress) {
    window.onpopstate = null;
    history.back();
  } else {

thisisnic

$(document).keyup(function(event) {
  if ((event.keyCode == 13) && (document.activeElement.id == "login_password")) {
    $("#login_button").click(); 
  }
});