smach

# This is a sample R Shiny app chatbot that runs local models with an Ollama server.
# You also need Ollama installed and a ollama server running, plus at least one local model pulled.
# I hard-coded a few local models,
# If you use this, you'll want to hard code yours (including descriptions, or take those out)

# Coded with lots of LLM help + Posit's Shiny Assistant.

library(shiny)
library(shinychat)
library(bslib)

smach

options(shiny.maxRequestSize = 5 * 1024^2)  # Limit uploads to 5 MB

library(shiny)
library(magick)
library(base64enc)
library(bslib)

# Helper function to sanitize file names
safeFileName <- function(filename) {
  gsub("[^a-zA-Z0-9_.-]", "_", filename)

smach

# Uses httr and jsonlite packages and optional DT to display results

library(httr)
library(jsonlite)

search_loc_images <- function(query, max_results = 10) {


  # Base URL
  base_url <- "https://www.loc.gov/photos/"

smach

# This code is a slight modification from the code at
# https://docs.chainlit.io/examples/qa
# that adds handling PDF and Word doc files in addition to text files

# Load all necessary libraries and modules
import chainlit as cl
from langchain.memory import ChatMessageHistory, ConversationBufferMemory
from langchain.docstore.document import Document
from langchain.prompts.chat import (
    ChatPromptTemplate,

smach

image: rocker/tidyverse:latest

pipelines:
  default:
    - step:
        script:
          - cd /opt/atlassian/pipelines/agent/build
          - Rscript -e 'devtools::install_deps(".", dependencies=TRUE, upgrade=FALSE)'
          - Rscript -e 'devtools::build()'
          - Rscript -e 'devtools::install(upgrade_dependencies = FALSE)'

smach

# get all people you follow on Mastodon and which lists you've assigned them to. Inspired by Jon Udell doing this with Steampipe, his blog post: https://blog.jonudell.net/2022/12/22/lists-and-people-on-mastodon/

library(rtoot) # need the dev version, and you need to have gotten and stored a user token
library(dplyr) 
library(purrr)
library(magrittr)
library(glue)

# If you don't know your Mastodon account ID
my_display_name <- "YOUR DISPLAY NAME HERE" 

smach

smach

get_forecast_data <- function(city, forecast_url) {
  req<-httr::GET(forecast_url)
  json <- httr::content(req, as = "text")
  weather_data <- jsonlite::fromJSON(json)
  forecast_df <- weather_data$properties$periods
  forecast_df <- forecast_df %>%
    dplyr::mutate(
      City = city,
      Temp = if_else(isDaytime == TRUE, "High", "Low"),
      Date = as.Date(substr(startTime,1,10)),

smach

# Function to set all vector items to blank except for every nth item

everyn <- function(myvec, n){
  myvec <- sort(unique(myvec))
  for(i in 1:length(myvec)) {
    if( i %% n != 1) {
      myvec[i] <- ""
    }
  }
  return(myvec)

smach

library(rvest)
library(rio)
library(dplyr)
library(xml2)

# If your spreadsheet is named "data.xlsx" and the column with submitter names is named "submitting_lab"
data <- rio::import("data.xlsx") %>%
  dplyr::pull(submitting_lab) %>%
  unique()