fidadoma

# the following script worked Feb-2024, not sure, whether the API wont change
# it is pretty cheap - 1CZK per message (again, this could be cheaper with better pricing plan)
library(tidyverse)
library(httr2)

# you need to register for gosms.eu
# you will need your client_id, client_secret and channel_id

# store those in variables
client_id     <- "your client id"

fidadoma

# when data are in private repo on osf, we want to download them prior to the analysis

# load tidyverse
library(tidyverse)

# install package to communicate with osf.io. Check the github repo for guidelines
library(osfr)

# function to download data using dplyr do() function
download_files <- function(df, local_data_pth, should_overwrite = T) {