jonocarroll

## Medical Term Fuzzy Grouping
## J. Carroll 2024
## 
## Uses the {zoomerjoin} package: https://github.com/beniaminogreen/zoomerjoin

## read in a set of medical terms, lowercased
terms <- tolower(readLines("https://raw.githubusercontent.com/socd06/medical-nlp/master/data/vocab.txt"))

## example data with typos and inserted words
gi <- c("gastrointestinal disorders", "gastrointestinal tract disorders", "gastreinstestinal disorder")

jonocarroll

#!/bin/bash

LOG_FILE="/Users/username/output.log"
NOTIFIED_FILE="/Users/username/notified.txt"
EMAIL="username@example.com"

# Read the contents of the notified file, if it exists
notified=$(cat "$NOTIFIED_FILE" 2>/dev/null)

# If the notified file doesn't exist, assume no previous notification

jonocarroll

library(rextendr)

rust_function("
fn rowmin(m: RMatrix::<i32>) -> Vec<i32> {

    // convert to an ndarray
    let matrix = <ArrayView2<i32>>::from_robj(&m).unwrap();

    // store results
    let mut min_values = Vec::with_capacity(matrix.len());

jonocarroll

## Modify a vector in the workspace; x is a user-accessible symbol
x <- 42
.Internal(inspect(x))
# @5631a3a19e20 14 REALSXP g0c1 [REF(5)] (len=1, tl=0) 42
x[1] <- 43 # modification causes a copy (address changes)
.Internal(inspect(x))
# @5631a36c1cb8 14 REALSXP g0c1 [REF(4)] (len=1, tl=0) 43

## Modify a vector inside a function; user cannot access y
f <- function() {

jonocarroll

module Change (findFewestCoins) where

import Data.List (find)
import Data.List (minimumBy)
import Data.Function (on)
import Debug.Trace

smallestLengthList :: [[Integer]] -> [Integer]
smallestLengthList = minimumBy (compare `on` length)

jonocarroll

library(Microsoft365R)
library(jsTree) # for viewing results

sp_url <- "https://org.sharepoint.com/sites/SITENAME/"

# sharepoint site
site <- get_sharepoint_site(site_url = sp_url)

# default document library
drv <- site$get_drive()

jonocarroll

library(shiny)

ui <- fluidPage(
  titlePanel("Expand/Collapse DataTable"),
  mainPanel(
    fluidRow(
      column(6, DT::dataTableOutput("tbl")),
      column(6, DT::dataTableOutput("tbl2"))
    )
  )

jonocarroll

dbg <- function(x) {
  ex <- rlang::f_text(rlang::enquos(x)[[1]])
  ret <- rlang::eval_bare(x)
  message(glue::glue("DEBUG: {ex} = {ret}"))
  ret
}

a <- 1
b <- 3
x <- dbg(a + b)

jonocarroll

# https://notstatschat.rbind.io/2022/11/03/improving-a-graph/

d <- read.table(
  "https://gist.githubusercontent.com/tslumley/9ac8df14309ecc5936183de84b57c987/raw/9ebf665b2ff9a93c1dbc73caf5ff346909899827/busdata.txt",
  header = TRUE
)

d$date <- as.Date(paste(2022, d$mo, d$d, sep = "-"))
d$weekend <- with(d, weekdays(d$date) %in% c("Saturday", "Sunday"))
d$workday <- with(d, !(weekdays(date) %in% c("Saturday", "Sunday")))

jonocarroll

splt <- function(s) {
  x <- strsplit(s, "-")
  s[order(sapply(x, `[[`, 1), as.integer(sapply(x, `[[`, 2)))]
}

splt_radix <- function(s) {
  x <- strsplit(s, "-")
  s[order(sapply(x, `[[`, 1), as.integer(sapply(x, `[[`, 2)), method = "radix")]
}