HyoJin Song lovetoken

인자 기본값을 input data 에 따라 상호적으로 설정되는 함수 정의 방법에 대해 질문드립니다.

질문이 있습니다.
질문내용은 객체지향 프로그래밍과 조금이라도 관련된 질문이지 않을까 싶습니다.
(객체지향 프로그래밍 대단하면서도 참 어려운 것 같습니다. ㅜㅜ)

윗첨자는 ^ string ^
아랫첨자는 ~ string ~
으로 하면 됩니다.

종종 호환이 안될 경우가 많은데, 이럴때는 그대로
HTML tag 인 <sup>, <sub> 를 쓰면 됩니다.

	# 관심 검색키워드 입력
	search_word <- "토트넘"

	# 해당키워드의 다음 검색쿼리 URL 생성, 네이버 검색쿼리 URL 생성
	search_url_daum <- sprintf("https://search.daum.net/search?nil_suggest=btn&w=tot&DA=SBC&q=%s", search_word)
	search_url_naver <- sprintf("https://search.naver.com/search.naver?sm=tab_hty.top&where=nexearch&query=%s", search_word)

	# 작업디렉토리의 data 폴더에 금일자 해당키워드 다음 검색화면 PNG 파일 스냅샷 저장, 네이버 검색화면 PNG 파일 스냅샷 저장
	webshot(search_url_daum, file = sprintf("data/daum_%s_%s.png", search_word, Sys.Date()), delay = 0.5)
	webshot(search_url_naver, file = sprintf("data/naver_%s_%s.png", search_word, Sys.Date()), delay = 0.5)

	# pacman 패키지가 설치되어 있어야 Gist 코드가 R에서 동작합니다. pacman 설치되어 있지 않다면 바로 아래 주석의 코드를 실행시켜서 pacman 패키지를 설치하세요. (온라인 상태이어야 하며, 주석을 해제하고 직접 실행해야 합니다.)
	# install.packages("pacman")

	# 현 Gist 에 올려진 R코드를 바로 실행하고 싶으시다면 아래 주석의 코드를 실행시키세요. (온라인 상태이어야 하며, 주석을 해제하고 직접 실행해야 합니다.)
	# source("https://gist.githubusercontent.com/lovetoken/16f862394a7f541faafde067cee0bf77/raw/4c5ec3ff8b1ea8d1eaa9a058a3e227ff8152c2a9/R_packages_install_for_myself")

	pacman::p_load(
	aws.s3,
	bigrquery,
	BiocManager,

	myfun1 <- function(input){
	# 함수 실행 조건
	stopifnot(input %>% is.numeric)
	stopifnot(attributes(input)$div %>% is.numeric)

	# 함수 본문
	div <- attributes(input)$div
	return(sum(input)/div)
	}

	readr::read_tsv(pipe("pbpaste"))
	read.table(pipe("pbpaste"), header = T, sep = "\t")

	x <- 1:5
	attr(x, "div") <- 2