kenjisato

library(dplyr)
library(sf)
library(tmap)
library(rmapshaper)

#' Install googlesheets4 with
#' remotes::install_github("tidyverse/googlesheets4")
#' devtools::install_github("tidyverse/googlesheets4")

library(googlesheets4)

kenjisato

# This function assumes that the 'Full name' column in Grading Worksheet 
# has the following form: "Name registration_number".
# This assumption may fail for other instances of moodle, in which case 
# we have to use different logic to merge 'Grading Worksheet' and 
# regiatraion.csv and/or nops_eval.csv.

rewrite_for_moodle <- function(nops_zip,       
                               worksheet_csv,  # Downloaded from Moodle 
                               nops_csv = NULL, 
                               worksheet_points_col = "Grade", 

kenjisato

#listview li {
  line-height: 150%;
}

#Data {float: left; }

#ExamResults {}
#Evaluation {}

#ExamSheet { float: right; }

kenjisato

from itertools import permutations

def find_a_cycle(x, start):
    cycle = [start]
    s = start
    while x[s] != start:
        cycle.append(x[s])
        s = x[s]
        
    return cycle 

kenjisato

def find_a_cycle(x, start):
    cycle = [start]
    s = start
    while x[s] != start:
        cycle.append(x[s])
        s = x[s]
        
    return cycle 

def find_cycles(x):

kenjisato

on sansExt(theFileName)
  do shell script "file=" & theFileName & ";" & "echo ${file%.*}"
end sansExt

on getExt(theFileName)
  do shell script "file=" & theFileName & ";" & "echo ${file##*.}"
end getExt

on run argv
  set keynote_path to (item 1 of argv)

kenjisato

---
title: title
author: author
output: html_document
---

# Section header

Body text goes here.

kenjisato

.beginMath = c(
  "\\begin{equation}",
  "\\begin{equation*}",
  "\\begin{align}",
  "\\begin{align*}"
)

.endMath = c(
  "\\end{equation}",
  "\\end{equation*}",

kenjisato

kenjisato