fork download
copy 
  1. library(stringi)
  2.  
  3.  
  4. df <- data.frame(municipio = c("520050 Agua Clara", "520051 Ribas do Rio Pardo", "", "520052 Canoas"))
  5.  
  6. df <- as.data.frame(do.call(rbind,  stri_split_fixed(df$municipio , " ", 2)))
  7. colnames(df) <- c("cod", "municipio")
  8.  
  9. df
Success #stdin #stdout 0.31s 42776KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
     cod          municipio
1 520050         Agua Clara
2 520051 Ribas do Rio Pardo
3                          
4 520052             Canoas
https://ideone.com/DCq8wN
language:
R (R 3.5.2)
created:
2 years ago
visibility:
secret

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!