title: How to get all words which starts with capital letter?
body: <p>Given:</p>
  
  <p><code>text &lt;- "fsfs blabla Honda t Asus"</code></p>
  
  <p>I want to get result:</p>
  
  <p><code>[1] "Honda" "Asus"</code></p>
  
  <p>I have done it by this function:</p>
  
  <pre><code>foo &lt;- function(txt){
    txtNew &lt;- txt
    txtNew2 &lt;- txt
    txtMemory &lt;- ""
    while(txtNew != txtMemory){
      txtNew &lt;- txtNew2
      txtMemory &lt;- txtNew2
      txtNew &lt;- gsub("\\s[a-z]","",txtNew)
      txtNew2 &lt;- paste0(" ", txtNew)
    }
    txtNew &lt;- sub("^\\s+", "", txtNew)
    strsplit(txtNew, " ")
  }
  foo("fsfs blabla Honda t Asus")
  </code></pre>
  
  <p>but I guess there is much easier way in R?</p>