mrchypark

library(rvest)

root<-"http://www.ts-hikaku.com/clist/a0/v1s22t0p" 
tail<-".html"
options(stringsAsFactors = F)
dat<-c()
for(i in 1:34){
  print(i)
  tar<-read_html(paste0(root,i,tail))
  company <- 

mrchypark

library(dplyr)
library(ggplot2)

# showtext는 윈도우에서 출력시 폰트 문제가 발생하는걸 고칠 수 있게 도와줍니다.
# https://github.com/yixuan/showtext
library(showtext)
font.add.google("Noto Sans")
# q1에서 차용했습니다. 유용한 코드 공유 감사합니다!
format.percent <- function(x) paste(floor(x),'%',se1p='')

mrchypark

library(googleCloudStorageR)
library(dplyr)
library(bigrquery)
library(dbplyr)

# 필요 데이터를 다운로드 받습니다.
# dabrp_classnote3 프로젝트 폴더일 때를 기준으로 했습니다.

chk<-file.info("./data/recomen/tran.csv")
if(is.na(chk$size)){

mrchypark

library(rvest)
library(stringr)

dat<-c()
for (i in 1:2005){
  url<-paste0("http://www.bobaedream.co.kr/cyber/CyberCar.php?gubun=K&page=",i)
  usedCar <- read_html(url)
  title <-
    usedCar %>% 
    html_nodes("td.carinfo a.title") %>% 

mrchypark

function(input, output, session) {

  # Combine the selected variables into a new data frame
  selectedData <- reactive({
    iris[, c(input$xcol, input$ycol)]
  })

  clusters <- reactive({
    kmeans(selectedData(), input$clusters)
  })

mrchypark

library(shiny)
library(ggplot2)
library(gapminder)
library(dplyr)

ui <- fluidPage(

  titlePanel("ggplot test"),

  sidebarPanel(

mrchypark

grade <- 
    as.data.frame(cbind(
        ID = c(LETTERS[1:5]),
        GPA = list('A+','F', c('C-','B','A+'), c('A','A+'), 'D')
    ))

unstack <- function(grade){
    do.call(rbind, apply(grade, 1, function(x)
        data.frame(ID = x$ID, GPA = x$GPA)))
}

mrchypark

Docker on WSL (Windows 10 Home / Docker Toolbox) (Virtualbox instead Hyper-V)

Docker on WSL communicates with Docker on Windows from Docker Toolbox.

Install VirtualBox and Docker Toolbox on Windows.

Docker on Windows uses VM for Linux based docker containers.

mrchypark

#!/bin/bash

# install CUDA Toolkit v9.0
# instructions from https://developer.nvidia.com/cuda-downloads (linux -> x86_64 -> Ubuntu -> 16.04 -> deb)
CUDA_REPO_PKG="cuda-repo-ubuntu1604-9-0-local_9.0.176-1_amd64-deb"
wget https://developer.nvidia.com/compute/cuda/9.0/Prod/local_installers/${CUDA_REPO_PKG}
sudo dpkg -i ${CUDA_REPO_PKG}
sudo apt-key adv --fetch-keys http://developer.download.nvidia.com/compute/cuda/repos/ubuntu1604/x86_64/7fa2af80.pub
sudo apt-get update
sudo apt-get -y install cuda

mrchypark

# remove sheet protection in Excel
# Sample file: https://www.dropbox.com/s/4ul0kowrscyr8cz/excel_protected.xlsx?dl=0
 
library(stringr)
library(zip)

# file with protected sheets
file <- "data/excel_protected.xlsx"

# file name and path after removing protection