| # install.packages("ordinalForest") | |
| library(ordinalForest) | |
| # | |
| # start by naming my method to pass to train | |
| # | |
| ordinalForest <- list(type = "Classification", | |
| library = "ordinalForest", | |
| loop = NULL) | |
| # | |
| # define the tuning parameters |
I am looking forward to meeting you at the Tuesday AM (10th of July) tutorial session at useR2018!. We will be discussing a subject that I am very passionate about: Web Scraping!
The slides can be found here:
To ensure that we can be immediately productive on Tuesday morning, I would like you to get the following set up on your machines beforehand:
| chk_init <- function(is_initialized, i, check = c("both", "running")){ | |
| while(!all(is_initialized)) { | |
| for(ii in seq_along(i)) { | |
| # Current instance | |
| i_ii <- instance_status(i[[ii]]) | |
| # Initially, we don't get any information | |
| if(length(i_ii) == 0) { |
| ########################################################## | |
| # | |
| # HANJO ODENDAAL | |
| # hanjo.oden@gmail.com | |
| # www.daeconomist.com | |
| # @UbuntR314 | |
| # https://github.com/HanjoStudy | |
| # | |
| # | |
| # ██████╗ ███████╗███████╗██╗ ███████╗███╗ ██╗██╗██╗ ██╗███╗ ███╗ |
| #!/usr/bin/env Rscript | |
| args = commandArgs(trailingOnly=TRUE) | |
| library(purrr) | |
| if (length(args)==0) { | |
| stop("At least one argument must be supplied", call.=FALSE) | |
| } | |
| num_containers <- args[1] |
| library(tidyverse) | |
| library(RMySQL) | |
| library(DBI) | |
| library(dbplyr) | |
| db_insert_table <- function(db_name, table_name, df){ | |
| db_user <- Sys.getenv("server_user") | |
| db_password <- Sys.getenv("server_pass") | |
| db_host <- "XXX" | |
| db_dbname <- db_name |
| # Get the multiclass obs and prop | |
| xtract_multiclass <- function(ctree_res){ | |
| tab <- sapply(1:length(ctree_res), function(id) { | |
| y <- data_party(ctree_res[id]) | |
| y <- y[["(response)"]] | |
| table(y) | |
| }) | |
| #' @noRd | |
| #' @export | |
| split_df <- function(df, number){ | |
| n <- number | |
| nr <- nrow(df) | |
| split(df, rep(1:ceiling(nr/n), | |
| each = n, length.out = nr)) | |
| } |
| FROM openjdk:8-jre | |
| RUN mkdir -p /opt/shinyproxy/ | |
| RUN wget https://www.shinyproxy.io/downloads/shinyproxy-2.3.0.jar -O /opt/shinyproxy/shinyproxy.jar | |
| COPY application.yml /opt/shinyproxy/application.yml | |
| WORKDIR /opt/shinyproxy/ | |
| CMD ["java", "-jar", "/opt/shinyproxy/shinyproxy.jar"] |
| function docker_rm_exits(){ | |
| sudo docker ps -a | grep Exit | cut -d ' ' -f 1 | xargs sudo docker rm | |
| } | |
| function docker_stop_rm(){ | |
| docker stop $1 | |
| docker rm $1 | |
| } |