defuneste

touch AMF_AR-CCG_FLUXNET_ERA5_MM_1981-2024_v1.3_r1.csv
echo "bob" >> AMF_AR-CCG_FLUXNET_ERA5_MM_1981-2024_v1.3_r1.csv
echo "42" >> AMF_AR-CCG_FLUXNET_ERA5_MM_1981-2024_v1.3_r1.csv

 select 
 split_part(filename, '_', 1 ) as data_hub, 

defuneste

# Assumption is that you run it at the root of the project 
# waiting https://github.com/quarto-dev/quarto-cli/issues/3917 to ditch 

new_post <- function(title, author = "default") {

  t <- tolower(gsub(" ", "_", title, fixed = TRUE))
  
  dir_path <- paste("posts",
                    paste(Sys.Date(), t, sep = "_"), 
                    sep = "/")

defuneste

Mastodon users from posit conf

https://fosstodon.org/@HeathrTurnr ; Heather Turner
https://fosstodon.org/@trevin_flick ; Trevin Flickinger
https://fosstodon.org/@jonthegeek ; Jon Harmon
https://fosstodon.org/@samherniman ; Sam Herniman
https://mastodon.social/@SagePhoenixDM ; Alan Jackson
https://fosstodon.org/@ivelasq3 ; Isabella Velásquez
https://mastodon.social/@bhogale ; Prasanna Bhogale
https://fosstodon.org/@Drmowinckels ; Mo - Athanasia Mowinckel

defuneste

# copy paste from wiki https://en.wikipedia.org/wiki/List_of_U.S._state_and_territory_abbreviations

US_states <- data.frame(
"United States of America" = c("Alabama", "Alaska","Arizona","Arkansas","California",
                              "Colorado","Connecticut","Delaware","District of Columbia",
                              "Florida","Georgia","Hawaii","Idaho","Illinois","Indiana","Iowa",
                              "Kansas","Kentucky","Louisiana","Maine","Maryland",
                              "Massachusetts","Michigan","Minnesota","Mississippi","Missouri",
                              "Montana","Nebraska","Nevada","New Hampshire","New Jersey",
                              "New Mexico","New York","North Carolina","North Dakota","Ohio",

defuneste

flowchart LR
subgraph one[Initializing package]
direction LR
A("create_package()")-->C("use_git()")
A-->B("use_XX_licence()")
A--> Z("use_testthat()")
end
subgraph two[Developping]
direction LR

defuneste

#loading some libs
library(sf);library(lwgeom)

# a simplified example from sf help page of st_line_sample
ls = st_sfc(st_linestring(rbind(c(.1,0), c(0,0), c(0,1))), crs = 4326) |> 
    st_transform(3857)
    
# st_line_sample give you MULTIPOINT that you convert to POINT
points <-  st_line_sample(ls, density = units::set_units(1, 1/km)) |>
                st_cast("POINT")