Studying-on-Addins_Snippets.R

In SeungmanLEEmago/Making-Addins: Mago's Private R Extension for Additional Functions or Add-ins

# 현재 source 문서에서 커서가 위치한 또는 선택된 text가 있는 줄에서 첫 번째 character 확인하기. ----


thisSourceDocument <- getSourceEditorContext()

thisSourceDocument$selection[[1]]$range$start["row"]

thisSourceDocument$contents[thisSourceDocument$selection[[1]]$range$start["row"]]

substr(thisSourceDocument$contents[thisSourceDocument$selection[[1]]$range$start["row"]], 1, 1)

identical(thisSourceDocument$contents[thisSourceDocument$selection[[1]]$range$start["row"]], "#")


# 현재 활성화되어 있는 문서(source, console, terminal 등) 에서 커서가 위치한 또는 선택된 text가 있는 줄에서 첫 번째 character 확인하기.----


thisActiveDocument <- getActiveDocumentContext()

thisActiveDocument$selection[[1]]$range$start["row"]

thisActiveDocument$contents[thisActiveDocument$selection[[1]]$range$start["row"]]

substr(thisActiveDocument$contents[thisActiveDocument$selection[[1]]$range$start["row"]], 1, 1)

identical(thisActiveDocument$contents[thisActiveDocument$selection[[1]]$range$start["row"]], "#")


# RegExplain 에드인 설치 ----


# devtools::install_github("gadenbuie/regexplain") # 설치됐음.