title: Select columns that endswith() and include main column R
body: <p>I have a large data frame that I am trying to subset, now for this case I am sub-setting columns that ends with <em>_old</em> but now I want this subset to come with column <em>v1</em> which has rows of columns that ends with <em>_old</em>. Here is my data frame sample:</p>
  
  <pre><code>dput(df)
  structure(list(v1 = c("c3", "c4", "c6"),
                 v2_diff = c("Jacy","Jane", "Orange"),
                 v3_old = c("Jack","Janet", "petere"),
                 v4_new = c("Jack","Janet", "petere"),
                 v4_old = c("Jack","Janet", "petere")),
            class = "data.frame", row.names = c(NA,  -3L))
  </code></pre>
  
  <p>here is what I tried but I only get columns that endswith <em>_old</em> without column *v*1. How can I add this </p>
  
  <pre><code>df_old &lt;- df %&gt;% select(ends_with("_old"))
  </code></pre>
  
  <p>Expected output</p>
  
  <pre><code>dput(df)
  structure(list(v1 = c("c3", "c4", "c6"),
                 v3_old = c("Jack","Janet", "petere"),
                 v4_old = c("Jack","Janet", "petere")),
            class = "data.frame", row.names = c(NA,  -3L))
  </code></pre>