This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(XML) | |
library(RCurl) | |
library(tidyverse) | |
# DaumMap APIKEY | |
APIKey <- "" | |
# Request Parameters | |
getUrls <- function(address, type){ | |
url <- "http://apis.daum.net/local/geo/addr2coord?apikey=" |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
################################ | |
# 와플차트 만들기 메뉴얼 | |
################################ | |
library(tidyverse) | |
df <- read_csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSoQVUDDcKYstVCn5l6h4JJmtoWWb7NmxaJFNCL-u3rUBaAqKfLO6cPPEAwWDOD1ZfIC8UOv31cgZAn/pub?gid=0&single=true&output=csv") | |
# 사각형 칼러 메뉴얼 지정 | |
pallete <- c("#E53D36", "#FFA644", "#998A2F", "#295949", "#002D40", |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(googlesheets) | |
library(tidyverse) | |
# Each Google Spreadsheet has a limit of 400,000 cells, with a maximum of 256 columns per sheet. | |
# There are also other limitations: Number of Formulas: 40,000 cells containing formulas. | |
# Number of Tabs: 200 sheets per workbook | |
################################################## | |
# gs_auth로 계정 인증 받기 | |
################################################## |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
####################################################################### | |
# 방법1 | |
# 프로젝트 경로에 특정 폴더를 생성하고 그 안에 csv파일을 한번에 가져오고자 한다면 | |
# 'data'란 이름의 폴더 안에 파일을 생성했음 | |
####################################################################### | |
devtools::install_github("andrewbtran/muckrakr") | |
library(muckrakr) | |
df <- bulk_csv(folder = "data") |