mrchypark

#cloud-config

bootcmd:
  - mkdir -p /etc/systemd/system/walinuxagent.service.d
  - echo "[Unit]\nAfter=cloud-final.service" > /etc/systemd/system/walinuxagent.service.d/override.conf
  - sed "s/After=multi-user.target//g" /lib/systemd/system/cloud-final.service > /etc/systemd/system/cloud-final.service
  - systemctl daemon-reload

apt:
  sources:

mrchypark

library(curl)
library(httr)
library(dplyr)
library(purrr)
library(tictoc)
tar <- "http://work-sample-tests.stibee.com:7777"

tem <- modify_url(tar, path = "hello")

POST(tem, body = list(id = "mrchypark@gmail.com")) %>%

mrchypark

tar %>% 
  mutate(speech_id = 1:nrow(.)) %>% 
  unnest_tokens(senten, content, 
                token="sentences") %>% 
  select(speech_id, senten) %>% 
  mutate(sentence_id = 1:nrow(.)) %>% 
  unnest_tokens(morph, senten,
                token = pos) %>% 
  filter(str_detect(morph, "/n|/v(v|a)")) %>% 
  mutate(

mrchypark

library(readxl)
library(dplyr)
library(tidyr)
library(stringr)

tem <- read_excel("myCabinetExcelData (2).xls", col_names = F)
tem %>% 
  distinct(...1) %>% 
  pull(...1) -> col_order
  

mrchypark

library(httr)
library(rvest)
library(dplyr)
library(magrittr)
library(stringr)
library(jsonlite)
library(purrr)
library(tibble)
library(openssl)
library(crul)

mrchypark

library(httr)
library(rvest)
library(dplyr)

tar <- "https://finance.naver.com/marketindex/exchangeList.nhn"

Sys.setlocale("LC_ALL", "C")

read_html(tar, encoding = "euc-kr") %>% 
  html_nodes("table.tbl_exchange") %>% 

mrchypark

library(rvest)
library(writexl)
library(dplyr)
library(stringr)

body <- c()
case_no <- c()

for (j in 1:3){
  print(j)

mrchypark

library(httr)
library(dplyr)
library(purrr)
library(writexl)

tar <- "https://kreditjob.com/api/dashboard/filter"

body <- list("bjd_code"= F,
             "data_ym"= "1903",
             "industry"= F,

mrchypark

library(httr)
library(magrittr)
library(dplyr)
library(stringr)
library(jsonlite)

tar <- "https://www.pubgesports.kr/front/team/roundChange?matchApiId=954976a0-b74d-4c2a-9ddf-6c1b7e8cac84&leagueNo=13&teamNo=4"

GET(tar) %>% 
  content("text") %>% 

mrchypark

library(randomForestSRC)
library(dplyr)
library(ROCR)
library(doParallel)

data(pbc, package="randomForestSRC")

data_na <- na.omit(pbc)
data_na <- data_na %>% dplyr::select(-days)