관리-도구
편집 파일: r.cpython-38.pyc
U ,�e� � @ s� d dl mZ d dlZd dlZd dlZd dlZd dlZd dlZd dlm Z d dlm Z d dl m Z d dl mZ d dl mZ d dl mZ d d lmZ d d lmZ d d lmZ d Zd Ze jZe jZej ddd�dd��Z ddd�dd�Z ej dddd�dd��Z d dd d d �d d!�Z dd"�d#d$�Z!d d%d&�d'd(�Z"ddd d d)d*�d+d,�Z#ddd d%d-�d.d/�Z$ddd�d0d1�Z%ddd d d d d d2d3�d4d5�Z&dS )6� )� annotationsN)� Generator)�Sequence)� lang_base)� envcontext)�PatchesT)�UNSET)�Prefix)� cmd_output_b)�win_exe�renv)z --no-savez --no-restorez--no-site-filez --no-environ�strzGenerator[str, None, None])�code�returnc c sV t �� �D}tj�|d�}t|d��}|�tt� | ��� W 5 Q R X |V W 5 Q R X dS )z� To avoid quoting and escaping issues, avoid `Rscript [options] -e {expr}` but use `Rscript [options] path/to/file_with_expr.R` zscript.R�wN) �tempfile�TemporaryDirectory�os�path�join�open�write�_inline_r_setup�textwrap�dedent)r Ztmpdir�fname�f� r �D/opt/hc_python/lib/python3.8/site-packages/pre_commit/languages/r.py�_r_code_in_tempfile s r r )�venvr c C s dt j�| d�fdtffS )NZR_PROFILE_USERz activate.RZ RENV_PROJECT)r r r r )r r r r � get_env_patch' s �r! r z Generator[(None, None, None)])�prefix�versionr c c s0 t �| t|�}tt|��� d V W 5 Q R X d S )N)r �environment_dir�ENVIRONMENT_DIRr r! )r" r# Zenvdirr r r �in_env. s r& z list[str]�boolz Sequence[str])�entryr" �is_localr c C s0 | d dks|r | dd � S |� | d �fS d S )N� �-e)r )r( r" r) r r r �_prefix_if_file_entry5 s r, )r c C s0 t j�d�} | d krdS t j�| dtd��S d S )NZR_HOME�Rscript�bin)r �environ�getr r r )Zr_homer r r � _rscript_execA s r1 �None)r( r c C sN | d dkrt d��| d dkr6t| �dkrJt d��nt| �dkrJt d ��d S ) zK Allowed entries: # Rscript -e expr # Rscript path/to/file r r- z entry must start with `Rscript`.r* r+ � z&You can supply at most one expression.� zLThe only valid syntax is `Rscript -e {expr}`or `Rscript path/to/hook/script`N)� ValueError�len)r( r r r �_entry_validateI s �r7 ztuple[str, ...])r" r( �argsr) r c C s2 t �|�}t|� t|| |d�}|d ft||�S )N�r) r )�shlex�splitr7 r, � RSCRIPT_OPTS)r" r( r8 r) �cmdZcmd_partr r r �_cmd_from_hook\ s r> )r" r# �additional_dependenciesr c C s� t �d|� t �| t|�}tj|dd� t�| �d�|� t� | �d�tj� |d�� d| j �d�}t |��}t t� d||d � W 5 Q R X |r�d }t| |��6 t |��"}t t� ft|f|�d |i� W 5 Q R X W 5 Q R X d S ) N�rT)�exist_okz renv.lockr z prefix_dir <- a3 options( repos = c(CRAN = "https://cran.rstudio.com"), renv.consent = TRUE ) source("renv/activate.R") renv::restore() activate_statement <- paste0( 'suppressWarnings({', 'old <- setwd("', getwd(), '"); ', 'source("renv/activate.R"); ', 'setwd(old); ', 'renv::load("', getwd(), '");})' ) writeLines(activate_statement, 'activate.R') is_package <- tryCatch( { path_desc <- file.path(prefix_dir, 'DESCRIPTION') suppressWarnings(desc <- read.dcf(path_desc)) "Package" %in% colnames(desc) }, error = function(...) FALSE ) if (is_package) { renv::install(prefix_dir) } z --vanilla)�cwdz/renv::install(commandArgs(trailingOnly = TRUE))rB )r Zassert_version_defaultr$ r% r �makedirs�shutil�copyr �copytreer Z prefix_dirr r r1 r& r< )r" r# r? Zenv_dirZr_code_inst_environmentr Zr_code_inst_addr r r �install_environmentj s, ����rG c C s t �d�| g}d�|�S )z� Some behaviour of R cannot be configured via env variables, but can only be configured via R options once R has started. These are set here. z~ options( install.packages.compile.from.source = "never", pkgType = "binary" ) � )r r r )r Z with_optionr r r r � s � r ztuple[int, bytes])r" r( r8 � file_argsr) �require_serial�colorr c C s" t | |||d�}tj||||d�S )Nr9 )rJ rK )r> r Z run_xargs)r" r( r8 rI r) rJ rK r= r r r �run_hook� s �rL )'� __future__r � contextlibr r: rD r r �typingr r Z pre_commitr Zpre_commit.envcontextr r r Zpre_commit.prefixr Zpre_commit.utilr r r% r< Zbasic_get_default_versionZget_default_versionZbasic_health_checkZ health_check�contextmanagerr r! r& r, r1 r7 r> rG r rL r r r r �<module> s> 8