David Ranzolin daranzolin

## d3raintest.csv

          
            
            ind
            group
            sequence_group

            
              1
              1
              l2
              1

            
              2
              2
              l2
              1

            
              3
              3
              l2
              1

            
              4
              4
              l3
              1

            
              5
              5
              l3
              1

            
              6
              6
              l2
              1

            
              7
              7
              l3
              1

            
              8
              8
              l3
              1

            
              9
              9
              l2
              1

## d3raintest.csv

          
            
            ind
            group
            sequence_group

            
              1
              1
              l1
              1

            
              2
              2
              l1
              1

            
              3
              3
              l2
              1

            
              4
              4
              l2
              1

            
              5
              5
              l2
              1

            
              6
              6
              l2
              1

            
              7
              7
              l1
              1

            
              8
              8
              l1
              1

            
              9
              9
              l1
              1

## d3rain.csv

          
            ind
            group

            
              1
              l1

            
              2
              l3

            
              3
              l2

            
              4
              l1

            
              5
              l1

            
              6
              l3

            
              7
              l3

            
              8
              l1

            
              9
              l3

## quantarcticR_scrape_sizes
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)

## mutate-conditional-test
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)) %>%

## ViewPipeSteps_with_custom_function
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

## widget_data2.csv
var1,F,M
H,63,70
R,30,40
T,97,79
Y,30,20
Z,15,10

## widgetData2.csv
x1,F,M
A,15,10
B,30,20
C,30,40

## widgetData.csv
x1,x2,x3
A,M,10
A,F,15
B,M,20
B,F,30
C,M,40
C,F,30

## RStudio_rcanvas_canvas_course_content_copy.R
library(tidyverse)
source("utils.R")

decrement_section <- function(section_code) {
  old_section_num <- readr::parse_number(section_code) - 1
  section_code <- stringr::str_extract(section_code, "^(\\w+)")
  paste(section_code, old_section_num)
}

create_content_migration <- function(migration_type = "course_copy_importer", course_id = NULL, source_course_id = NULL) {
	ind	group	sequence_group
1	1	l2	1
2	2	l2	1
3	3	l2	1
4	4	l3	1
5	5	l3	1
6	6	l2	1
7	7	l3	1
8	8	l3	1
9	9	l2	1
	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
	library(tidyverse)
	source("utils.R")

	decrement_section <- function(section_code) {
	old_section_num <- readr::parse_number(section_code) - 1
	section_code <- stringr::str_extract(section_code, "^(\\w+)")
	paste(section_code, old_section_num)
	}

	create_content_migration <- function(migration_type = "course_copy_importer", course_id = NULL, source_course_id = NULL) {