Theme Song

1 Setting

1.1 SCSS Setup

# install.packages("remotes")
library('BBmisc', 'rmsfuns')
#remotes::install_github("rstudio/sass")
lib('sass')

## sass 
## TRUE

/* https://stackoverflow.com/a/66029010/3806250 */
h1 { color: #002C54; }
h2 { color: #2F496E; }
h3 { color: #375E97; }
h4 { color: #556DAC; }
h5 { color: #92AAC7; }

/* ----------------------------------------------------------------- */
/* https://gist.github.com/himynameisdave/c7a7ed14500d29e58149#file-broken-gradient-animation-less */
.hover01 {
  /* color: #FFD64D; */
  background: linear-gradient(155deg, #EDAE01 0%, #FFEB94 100%);
  transition: all 0.45s;
  &:hover{
    background: linear-gradient(155deg, #EDAE01 20%, #FFEB94 80%);
    }
  }

.hover02 {
  color: #FFD64D;
  background: linear-gradient(155deg, #002C54 0%, #4CB5F5 100%);
  transition: all 0.45s;
  &:hover{
    background: linear-gradient(155deg, #002C54 20%, #4CB5F5 80%);
    }
  }

.hover03 {
  color: #FFD64D;
  background: linear-gradient(155deg, #A10115 0%, #FF3C5C 100%);
  transition: all 0.45s;
  &:hover{
    background: linear-gradient(155deg, #A10115 20%, #FF3C5C 80%);
    }
  }

## https://stackoverflow.com/a/36846793/3806250
options(width = 999)
knitr::opts_chunk$set(class.source = 'hover01', class.output = 'hover02', class.error = 'hover03')

1.2 Setup

suppressPackageStartupMessages(library('BBmisc'))

pkgs <- c('knitr', 'kableExtra', 'devtools', 'lubridate', 'data.table', 'tidyquant', 'stringr', 'magrittr', 'tidyverse', 'plyr', 'dplyr', 'broom', 'highcharter', 'formattable', 'DT', 'httr', 'openxlsx')
suppressAll(lib(pkgs))

#funs <- c('')
#l_ply(funs, function(x) source(paste0('./function/', x)))

Sys.setenv(TZ='Asia/Tokyo')
options(warn=-1)
rm(pkgs)

2 Assignment

2.1 受講生によるテスト：Package Evaluation

他の受講生の課題をレビューする

課題の提出、お疲れさまでした！これで、他の受講生がレビューできます。成績を受け取るには、他の受講生の課題もいくつかレビューする必要があります。成績は9月9日 15:59 JSTによるレビュー。

2.1.1 説明

2.1.2 自分の提出物

In this assignment, you will briefly review your some work submitted by your classmates. This is a low-stakes opportunity to get and give some feedback so that everyone can stay on track.

Review criteria

Your package must abide by the following criteria in order to receive full marks on this assignment:

Your package must be hosted on GitHub. You will be providing the URL to your package on GitHub so that other students can evaluate your work.
Your package must at least contain the following directories: R, man, tests, vignettes.
Your package must at least contain the following files: .travis.yml, DESCRIPTION, LICENSE, NAMESPACE, README.md.
Every function in your package must have a corresponding test.
Every function in your package must have at least one example in its documentation.
Your package must have a vignette which provides an explanation of the purpose for your package and how it could be used. The vignette should include examples for every function that is exported in the package’s NAMESPACE file.
A Travis badge that says “build passing” that is linked to your package’s Travis build should appear at the top of your README.md file on GitHub.
Your package must be tested using Travis. There should be no errors, warnings, or notes at the end of your Travis build, and all of your tests should be run on Travis.

2.1.3 ディスカッション

3 My Assignment

4 Peer Review

4.1 Repos

4.2 ルーブリック

Please use this space to provide substantive feedback. Point out the package’s strengths as well as areas that could be improved. Be constructive.

There are four required directories that should be present in this package: R, man, tests, and vignettes. How many of these directories are included in this package?

0点 None out of R, man, tests, and vignettes.
1点 One out of R, man, tests, and vignettes.
2点 Two out of R, man, tests, and vignettes.
3点 Three out of R, man, tests, and vignettes.
4点 Four out of R, man, tests, and vignettes.

There are five required files that should be present in this package: .travis.yml, DESCRIPTION, LICENSE, NAMESPACE, and README.md. How many of these files are included in this package?

0点 None out of .travis.yml, DESCRIPTION, LICENSE, NAMESPACE, and README.md.
1点 One out of .travis.yml, DESCRIPTION, LICENSE, NAMESPACE, and README.md.
2点 Two out of .travis.yml, DESCRIPTION, LICENSE, NAMESPACE, and README.md.
3点 Three out of .travis.yml, DESCRIPTION, LICENSE, NAMESPACE, and README.md.
4点 Four out of .travis.yml, DESCRIPTION, LICENSE, NAMESPACE, and README.md.
5点 Five out of .travis.yml, DESCRIPTION, LICENSE, NAMESPACE, and README.md.

Does every function in the package have a corresponding test?

0点 There are no tests in this package.
1点 There are some tests in this package, but not every function is tested.
3点 Every function in the package has a corresponding test.

Does every function in the package have at least one example in its documentation?

0点 There are no examples in the documentation for any function.
1点 Some functions have examples, but some don’t.
3点 Every function in the package have at least one example in its documentation.

Does the package contain a vignette?

1点 Yes
0点 No

In the vignette is there an explanation of the purpose for the package and how it could be used?

1点 Yes
0点 No

Does the vignette include examples for every function that is exported in the package’s NAMESPACE file?

0点 The vignette does not exist or it does not contain any examples.
1点 The vignette contains some examples but not an example for every function.
3点 The vignette includes examples for every function that is exported in the package’s NAMESPACE file.

Is there a Travis badge that says “build passing” at the top of the README.md file, and when you click on the Travis badge does Travis’ webpage for the package open up in your web browser?

2点 Yes
0点 No

Does the package build on Travis, with all of the tests running, and without any errors, warnings, or notes?

2点 Yes
0点 No

Please use this space to clarify any grading decisions that might need an explanation.

5 Conclusion

5.1 Summary

5.2 Final Conclude

Awarded on 08 Nov 2021

Final Scores : 100/100

Above png file and feel free to download Coursera 05 - Mastering Software Development in R Capstone.pdf.

6 Appendix

6.1 Blooper

6.2 Documenting File Creation

File creation date: 2021-07-28
File latest updated date: 2021-12-17
R version 4.1.2 (2021-11-01)
rmarkdown package version: 2.11
File version: 0.2.1
Author Profile: ®γσ, ξηg Lιαη Ημ
GitHub: Source Code
Additional session information:

suppressMessages(require('formattable', quietly = TRUE))
suppressMessages(require('knitr', quietly = TRUE))
suppressMessages(require('kableExtra', quietly = TRUE))

sys1 <- devtools::session_info()$platform |> 
    unlist() |> 
    {\(.) data.frame(row.names = 1:length(.), 
                     Category = names(.), session_info = .)}()

sys2 <- data.frame(Sys.info()) |> 
    {\(.) data.frame(Category = row.names(.), Sys.info = .[,1])}()

#remarks, dim(sys1), dim(sys2)
if (nrow(sys1) == 11 & nrow(sys2) == 8) {
  sys2 <- sys2 |> 
    {\(.) rbind(., data.frame(
    Category = c('rmarkdown', 'rsconnect', 'Current time'), 
    Sys.info = c(as.character(getwd()), 
                 as.character(packageVersion('rsconnect')), 
                 paste(as.character(lubridate::now('Asia/Tokyo')), 'JST 🌏'))))}()
  
} else if (nrow(sys1) == 10 & nrow(sys2) == 8) {
  sys1 %<>% rbind(., data.frame(Category = '', session_info = ''))
  
  sys2 <- sys2 |> 
    {\(.) rbind(., data.frame(
    Category = c('rmarkdown', 'rsconnect', 'Current time'), 
    Sys.info = c(as.character(getwd()), 
                 as.character(packageVersion('rsconnect')), 
                 paste(as.character(lubridate::now('Asia/Tokyo')), 'JST 🌏'))))}()
}

sys <- cbind(sys1, sys2) |> 
  {\(.) 
    kbl(., caption = 'Additional session information:')}() |> 
  {\(.) 
    kable_styling(., bootstrap_options = c('striped', 'hover', 'condensed', 'responsive'))}() |> 
  {\(.) 
    row_spec(., 0, background = 'DimGrey', color = 'yellow')}() |> 
  {\(.) 
    column_spec(., 1, background = 'CornflowerBlue', color = 'red')}() |> 
  {\(.) 
    column_spec(., 2, background = 'grey', color = 'black')}() |> 
  {\(.) 
    column_spec(., 3, background = 'CornflowerBlue', color = 'blue')}() |> 
  {\(.) 
    column_spec(., 4, background = 'grey', color = 'white')}() |> 
  {\(.) 
    row_spec(., 11, bold = TRUE, color = 'yellow', background = '#D7261E')}()

rm(sys1, sys2)
sys

Additional session information:
Category	session_info	Category	Sys.info
version	R version 4.1.2 (2021-11-01)	sysname	Linux
os	Ubuntu 20.04.3 LTS	release	5.15.7-051507-generic
system	x86_64, linux-gnu	version	#202112081053-Ubuntu SMP Wed Dec 8 11:10:32 UTC 2021
ui	X11	nodename	Scibrokes-Trading
language	en	machine	x86_64
collate	en_US.UTF-8	login	englianhu
ctype	en_US.UTF-8	user	englianhu
tz	Asia/Tokyo	effective_user	englianhu
date	2021-12-17	rmarkdown	/home/englianhu/Documents/GitHub/Coursera-Mastering-Software-Development-in-R/05 Mastering Software Development in R Capstone
pandoc	2.14.0.3 @ /usr/lib/rstudio/bin/pandoc/ (via rmarkdown)	rsconnect	0.8.25
		Current time	2021-12-17 06:55:02 JST 🌏

6.3 Reference

Mastering Software Development in R (web-base). (or Mastering Software Development in R.pdf)

Coursera - An Online Learning Platform

Capstone - Assignment 02

®γσ, ξηg Lιαη Ημ 🇪🇺® 新

2021-12-17