R 代码和 Sweave 输出-编辑

Question

更新问题 1在 KnitR 的最新更新中，输出如我预期的那样清晰。也许进行了更新。

新的输出：

更新前

我正在尝试使用 Sweave 和 R 代码获取特定输出。目前我有以下代码：

\documentclass[11pt,french]{report}
  \usepackage{babel} %%french
  \usepackage{amsmath,amsfonts,amssymb} %%maths
  \usepackage[utf8]{inputenc}   % LaTeX
  \usepackage[T1]{fontenc}      % LaTeX
  \usepackage[dvipsnames,table,xcdraw]{xcolor}
  %% Background code chunk
  \usepackage{listings}
  \usepackage{color}

  \definecolor{codegreen}{rgb}{0,0.6,0}
  \definecolor{codegray}{rgb}{0.5,0.5,0.5}
  \definecolor{codepurple}{rgb}{0.58,0,0.82}
  \definecolor{backcolour}{rgb}{0.95,0.95,0.92}
 %% background code chunk listing
  \lstset{
    language=R}
\lstdefinestyle{mystyle}{
    backgroundcolor=\color{backcolour},   
    commentstyle=\color{codegreen},
    keywordstyle=\color{magenta},
    numberstyle=\tiny\color{codegray},
    stringstyle=\color{codepurple},
    basicstyle=\footnotesize,
    breakatwhitespace=false,         
    breaklines=true,                 
    captionpos=b,                    
    keepspaces=true,                 
    numbers=left,                    
    numbersep=5pt,                  
    showspaces=false,                
    showstringspaces=false,
    showtabs=false,                  
    tabsize=2
}

\lstset{style=mystyle}

女巫来自这里地点。

我尝试实现的 R 代码是：

%% script R
\begin{lstlisting}[linerange=\\begin\{Sinput\}-\\end\{Sinput\},includerangemarker=false, caption = Code source en R pour l'exemple]
<<eval =FALSE>>=
# dataset
x <- c(2,3,6,9,12); y <- c(2,5,3,6,5)

# Estimations des parametres
reg <- lm(y ~ x)

# Resume de l'estimation
summary(reg)

# Valeurs de Yt
fitted(reg)

# Residus 
residuals(reg)
@
\end{lstlisting}

输出 ：

我的问题：

1-如何才能获得~符号的更好的输出？

2-有没有办法在不获取和输出的情况下评估代码？

Answer 1

问题2的解决方案。

<<eval = TRUE, echo=FALSE, fig=TRUE, height=4,width=4.5>>=
[...] precedent code
@

解决方案只是添加echo=false和eval=false以防止\begin{Schunk}和其他 Tex 命令。