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

# Detect invalid timezones

all_names <- tzdb::tzdb_names()

bad_names <- c(
  all_names[startsWith(all_names, "US/")],
  all_names[!stringr::str_detect(all_names, "/")]
)

all_names[map_lgl(all_names, ~!.x %in% bad_names)]

thisisnic

library(arrow)
#> Some features are not enabled in this build of Arrow. Run `arrow_info()` for more information.
#> 
#> Attaching package: 'arrow'
#> The following object is masked from 'package:utils':
#> 
#>     timestamp
library(dplyr)
#> 

thisisnic

library(arrow)
#> Some features are not enabled in this build of Arrow. Run `arrow_info()` for more information.
#> 
#> Attaching package: 'arrow'
#> The following object is masked from 'package:utils':
#> 
#>     timestamp
library(dplyr)
#> 

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

``` r
library(arrow)
library(dplyr)
library(stringr)

tf <- tempfile()

# values to save - note the space after the final new line
dodgy_vals <- "x,y\n0,1\n ,4"
cat(dodgy_vals)

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

# query details copied from https://github.com/voltrondata-labs/arrowbench/blob/main/R/tpch-queries.R
query_results <- lineitem_db %>%
      select(l_shipdate, l_returnflag, l_linestatus, l_quantity,
           l_extendedprice, l_discount, l_tax) %>%
    # kludge, should be: filter(l_shipdate <= "1998-12-01" - interval x day) %>%
    # where x is between 60 and 120, 90 is the only one that will validate.
    filter(l_shipdate <= as.Date("1998-09-02")) %>%
    select(l_returnflag, l_linestatus, l_quantity, l_extendedprice, l_discount, l_tax) %>%
    group_by(l_returnflag, l_linestatus) %>%
    summarise(

thisisnic

---
title: "Apache Arrow R Questions on Stack Overflow"
format: html
---

```{r}
#| label: load-packages-and-code
#| include: false
library(httr)
library(dplyr)

thisisnic

#!/bin/bash
set -e

SOURCE_DIR='<path_to_project_root_goes_here>'

# Find all .R files which have been staged via git add
FILES_TO_STYLE=$(git diff --name-only --staged | grep "\.R")

for FILE in ${FILES_TO_STYLE[@]}
do