David Ranzolin daranzolin

	library(quantarcticR)
	library(rvest)
	library(tidyverse)
	library(stringr)

	## Get paths from quantarcticR datasets
	quantarcticR_datasets <- qa_datasets()
	unique_file_paths <- quantarcticR_datasets$datasource %>%
	map(function(x) {
	x <- sapply(strsplit(x, "quantarcticR-cache/"), `[[`, 2)

	library(dplyr)
	library(assertr)

	set.seed(13)
	df <- data.frame(x = sample(0:1, 10,replace = TRUE),
	y = sample(0:1, 10, replace = TRUE))

	df %>%
	rowwise() %>%
	mutate(total = sum(x:y)) %>%

	library(tidyverse)
	my_summarise <- function(df, group_var) {
	group_var <- rlang::enquo(group_var)

	df %>%
	group_by(!! group_var) %>%
	summarise(a = mean(Petal.Length))
	}

	### Run ViewPipeSteps addin