■ Rstudio  한글 깨짐 메세지  관리자권으로 euc-kf로 설정으로 정상화 진행

https://backgomc.tistory.com/39

================================

ȣ��: sourceWithProgress ... <Anonymous> -> force -> <Anonymous> -> shiny_prerendered_app

�߰�����: ����޽���(��): 

1: parse(file = script, keep.source = TRUE, encoding = encoding)����:

  argument encoding="UTF-8" is ignored in MBCS locales

2: strsplit(html, "\n", fixed = TRUE)����:

  �� �����Ͽ����� �Է¹��ڿ� 1�� ��ȿ���� �ʽ��ϴ�

������ �����Ǿ����ϴ�

관리자권한으로 실행

일반으로 실행 설정후 //다시 관리권한으로 설정저장 하세요

 설정은 관리자 권한으로 실행  저장 합니다

 sample 실행 점검

 #라이브러리 불러오기
library(httr)
library(rvest)
library(dplyr)
url ='https://www.melon.com/chart/'
get_url = GET(url)
my_html=read_html(get_url,encoding='utf-8')
pick1=html_nodes(my_html,'.ellipsis.rank01') %>% html_nodes('a') %>%html_text()
pick1

결과

R version 4.1.0 (2021-05-18) -- "Camp Pontanezen"
Copyright (C) 2021 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
[Workspace loaded from ~/r_code/home/.RData]
> #라이브러리 불러오기
> library(httr)
> library(rvest)
> library(dplyr)
다음의 패키지를 부착합니다: ‘dplyr’
The following objects are masked from ‘package:stats’:
    filter, lag
The following objects are masked from ‘package:base’:
    intersect, setdiff, setequal, union
> url ='https://www.melon.com/chart/'
> get_url = GET(url)
> 
> my_html=read_html(get_url,encoding='utf-8')
> 
> pick1=html_nodes(my_html,'.ellipsis.rank01') %>% html_nodes('a') %>%html_text()
> pick1
  [1] "Butter"                                              
  [2] "헤픈 우연"                                           
  [3] "Next Level"                                          
  [4] "Dun Dun Dance"                                       
  [5] "Peaches (Feat. Daniel Caesar & Giveon)"              
  [6] "롤린 (Rollin')"                                      
  [7] "라일락"                                              
  [8] "운전만해 (We Ride)"                                  
  [9] "Celebrity"                                           
 [10] "ASAP"                                                
 [11] "Dynamite"                                            
 [12] "상상더하기"                                          
 [13] "상상더하기"                                          
 [14] "안녕 (Hello)"                                        
 [15] "Alcohol-Free"                                        
 [16] "Timeless"                                            
 [17] "사이렌 Remix (Feat. UNEDUCATED KID, Paul Blanco)"    
 [18] "내 손을 잡아"                                        
 [19] "멜로디"                                              
 [20] "마.피.아. In the morning"                            
 [21] "밝게 빛나는 별이 되어 비춰줄게"                      
 [22] "라라라"                                              
 [23] "LOVE DAY (2021) (바른연애 길잡이 X 양요섭, 정은지)"  
 [24] "밤하늘의 별을(2020)"                                 
 [25] "내사람"                                              
 [26] "Coin"                                                
 [27] "Savage Love (Laxed - Siren Beat) (BTS Remix)"        
 [28] "On The Ground"                                       
 [29] "Lovesick Girls"                                      
 [30] "잠이 오질 않네요"                                    
 [31] "Dolphin"                                             
 [32] "Blueming"                                            
 [33] "취기를 빌려 (취향저격 그녀 X 산들)"                  
 [34] "에잇(Prod.&Feat. SUGA of BTS)"                       
 [35] "VVS (Feat. JUSTHIS) (Prod. GroovyRoom)"              
 [36] "어푸 (Ah puh)"                                       
 [37] "어떻게 이별까지 사랑하겠어, 널 사랑하는 거지"        
 [38] "작은 것들을 위한 시 (Boy With Luv) (Feat. Halsey)"   
 [39] "추억은 만남보다 이별에 남아"                         
 [40] "나랑 같이 걸을래 (바른연애 길잡이 X 적재)"           
 [41] "흔들리는 꽃들 속에서 네 샴푸향이 느껴진거야"         
 [42] "12:45 (Stripped)"                                    
 [43] "그냥 안아달란 말야"                                  
 [44] "그날에 나는 맘이 편했을까"                           
 [45] "Life Goes On"                                        
 [46] "2002"                                                
 [47] "METEOR"                                              
 [48] "봄날"                                                
 [49] "Off My Face"                                         
 [50] "오래된 노래"                                         
 [51] "모든 날, 모든 순간 (Every day, Every Moment)"        
 [52] "체념"                                                
 [53] "Memories"                                            
 [54] "살짝 설렜어 (Nonstop)"                               
 [55] "이 밤을 빌려 말해요 (바른연애 길잡이 X 10CM)"        
 [56] "아로하"                                              
 [57] "너의 번호를 누르고 (Prod. 영화처럼)"                 
 [58] "어떻게 지내 (Prod. By VAN.C)"                        
 [59] "추적이는 여름 비가 되어"                             
 [60] "오늘도 빛나는 너에게 (To You My Light) (Feat.이라온)"
 [61] "살다가"                                              
 [62] "사실 나는 (Feat.전건호)"                             
 [63] "힘든 건 사랑이 아니다"                               
 [64] "How You Like That"                                   
 [65] "이렇게 좋아해 본 적이 없어요"                        
 [66] "늦은 밤 너의 집 앞 골목길에서"                       
 [67] "Dance Monkey"                                        
 [68] "너의 발걸음에 빛을 비춰줄게 (Prod. 조영수)"          
 [69] "이제 나만 믿어요"                                    
 [70] "마음을 드려요"                                       
 [71] "If You Love Me (Feat. 주헌 (몬스타엑스))"            
 [72] "내 입술 따뜻한 커피처럼"                             
 [73] "Love poem"                                           
 [74] "아이와 나의 바다"                                    
 [75] "너를 만나"                                           
 [76] "Paris In The Rain"                                   
 [77] "내 마음이 움찔했던 순간 (취향저격 그녀 X 규현)"      
 [78] "When We Disco (Duet with 선미)"                      
 [79] "만약에"                                              
 [80] "시작"                                                
 [81] "고백 (바른연애 길잡이 X 허각)"                       
 [82] "봄 안녕 봄"                                          
 [83] "Don't Start Now"                                     
 [84] "우리 왜 헤어져야 해"                                 
 [85] "처음처럼 (Feat. 개리)"                               
 [86] "함께 했는데 이별은 나 혼자인 거야"                   
 [87] "우린 어쩌다 헤어진 걸까"                             
 [88] "기다릴게"                                            
 [89] "Downtown Baby"                                       
 [90] "Maniac"                                              
 [91] "맛 (Hot Sauce)"                                      
 [92] "안녕"                                                
 [93] "내일이 오면 (Feat. 기리보이, BIG Naughty (서동현))"  
 [94] "거짓말이라도 해서 널 보고싶어"                       
 [95] "서면역에서"                                          
 [96] "서울의 잠 못 이루는 밤 (Feat. 이수현)"               
 [97] "Don't fight the feeling"                             
 [98] "벌써일년"                                            
 [99] "Je T′aime"                                          
[100] "I Love U"                                            

> 

> 

▶ ☞ 정보찾아 공유 드리며 출처는 링크 참조 바랍니다 ♠ . ☞ 본자료는 https://11q.kr 에 등록 된 자료 입니다♠.