Josiah Parry JosiahParry

## attachments.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                JosiahParry
                / attachments.md
            
            
              Created
              July 3, 2024 18:28
            
              
                working with attachments in arcgislayers
              
          
    # install the development version
# install.packages("pak")
# pak::pak("r-arcgis/arcgislayers")
library(pillar)

# for authorizing to your portal
library(arcgisutils)
#> 
#> Attaching package: 'arcgisutils'

  
## keybindings.json
// Place your key bindings in this file to override the defaults
[
    {
        "key": "shift+cmd+b",
        "command": "workbench.action.tasks.runTask",
        "args": "Build R package",
        "when": "isRPackage"
    },
    {
        "key": "shift+cmd+enter",

## shrink.R
#!/usr/bin/env Rscript
# we need to vendor the dependencies and then store the checksum
rextendr::vendor_pkgs()

# make the checksum
# writeLines(
#   tools::md5sum("src/rust/vendor.tar.xz"),
#   "./tools/vendor.md5"
# )

## Cargo.toml
[package]
name = "json-parser"
version = "0.1.0"
edition = "2021"

# See more keys and their definitions at https://doc.rust-lang.org/cargo/reference/manifest.html

[dependencies]
serde = { version = "1.0.199", features = ["derive"] }
serde_json = "1.0.116"

## Dockerfile
FROM python:3.9-bookworm

ENV R_VERSION=4.3.3

# Install from Posit binaries
# https://docs.posit.co/resources/install-r/#verify-r-installation
RUN apt-get update && \
    apt-get install -y gdebi-core curl && \
    curl -O https://cdn.rstudio.com/r/debian-12/pkgs/r-${R_VERSION}_1_amd64.deb && \
    gdebi -n r-${R_VERSION}_1_amd64.deb && \

## single-page-pkg-doc.R
# Current limitation is that the images that are used are relative to the
# package lib.loc / help so what might be idea lis to extract the image
# and base64 encode them using {b64}
pkg_to_quarto_doc <- function(pkg, out_path = paste0(pkg, ".qmd"), ...) {
  tmp <- tempfile()
  base_doc <- tools::pkg2HTML(pkg, out = tmp, ...)

  # read in html
  og <- rvest::read_html(tmp)

## lib.rs
[package]
name = 'tst2'
publish = false
version = '0.1.0'
edition = '2021'

[lib]
crate-type = [ 'staticlib' ]
name = 'tst2'

## app.R
library(shiny)
library(calcite)

# Custom script and style ------------------------------------------------


custom_style <- "
.card-container {
  margin: 0.75rem;
  display: grid;

## vacc-simd.rs
#![feature(portable_simd)]
#![feature(array_chunks)]

#[extendr]
fn vacc(age: &[f64], female: &[u8], ily: &[f64]) -> Vec<f64> {
    age.array_chunks::<4>()
        .map(|&a| f64x4::from_array(a))
        .zip(female.array_chunks::<4>().map(|&f| u8x4::from_array(f)))
        .zip(ily.array_chunks::<4>().map(|&i| f64x4::from_array(i)))
        .map(|((a, f), i)| {

## send-text.R
send_text <- function(message, buddy){

  for(i in buddy){
    system(paste('osascript -e \'tell application "Messages"\' -e \'send "', message, '" to buddy', i,  'of (service 1 whose service type is iMessage)\' -e \'end tell\''))
  }

}
	// Place your key bindings in this file to override the defaults
	[
	{
	"key": "shift+cmd+b",
	"command": "workbench.action.tasks.runTask",
	"args": "Build R package",
	"when": "isRPackage"
	},
	{
	"key": "shift+cmd+enter",
	#!/usr/bin/env Rscript
	# we need to vendor the dependencies and then store the checksum
	rextendr::vendor_pkgs()

	# make the checksum
	# writeLines(
	# tools::md5sum("src/rust/vendor.tar.xz"),
	# "./tools/vendor.md5"
	# )
	[package]
	name = "json-parser"
	version = "0.1.0"
	edition = "2021"

	# See more keys and their definitions at https://doc.rust-lang.org/cargo/reference/manifest.html

	[dependencies]
	serde = { version = "1.0.199", features = ["derive"] }
	serde_json = "1.0.116"
	FROM python:3.9-bookworm

	ENV R_VERSION=4.3.3

	# Install from Posit binaries
	# https://docs.posit.co/resources/install-r/#verify-r-installation
	RUN apt-get update && \
	apt-get install -y gdebi-core curl && \
	curl -O https://cdn.rstudio.com/r/debian-12/pkgs/r-${R_VERSION}_1_amd64.deb && \
	gdebi -n r-${R_VERSION}_1_amd64.deb && \
	# Current limitation is that the images that are used are relative to the
	# package lib.loc / help so what might be idea lis to extract the image
	# and base64 encode them using {b64}
	pkg_to_quarto_doc <- function(pkg, out_path = paste0(pkg, ".qmd"), ...) {
	tmp <- tempfile()
	base_doc <- tools::pkg2HTML(pkg, out = tmp, ...)

	# read in html
	og <- rvest::read_html(tmp)
	[package]
	name = 'tst2'
	publish = false
	version = '0.1.0'
	edition = '2021'

	[lib]
	crate-type = [ 'staticlib' ]
	name = 'tst2'
	library(shiny)
	library(calcite)

	# Custom script and style ------------------------------------------------


	custom_style <- "
	.card-container {
	margin: 0.75rem;
	display: grid;
	#![feature(portable_simd)]
	#![feature(array_chunks)]

	#[extendr]
	fn vacc(age: &[f64], female: &[u8], ily: &[f64]) -> Vec<f64> {
	age.array_chunks::<4>()
	.map(\|&a\| f64x4::from_array(a))
	.zip(female.array_chunks::<4>().map(\|&f\| u8x4::from_array(f)))
	.zip(ily.array_chunks::<4>().map(\|&i\| f64x4::from_array(i)))
	.map(\|((a, f), i)\| {
	send_text <- function(message, buddy){

	for(i in buddy){
	system(paste('osascript -e \'tell application "Messages"\' -e \'send "', message, '" to buddy', i, 'of (service 1 whose service type is iMessage)\' -e \'end tell\''))
	}

	}