fork download
copy 
  1. vec1 <- c("Internet-Devices Used to Access Internet Past 30 Days [Desktop Computer-Owned by Self]", 
  2.      "Internet-Devices Used to Access Internet Past 30 Days [Tablet-Owned by Other HH Member]", 
  3.      "Internet-Devices Used to Access Internet Past 30 Days [Laptop Computer-Made Available by Your Employer]",
  4.      "Radio Stations-Listened to Past Week-Quebec City [FM-CFEL-102.1 (blvd 102.1)]")
  5. gsub("(Past 30 Days\\s*)([^-]*)([^]]+)", "\\1\\3\\2", vec1)
Success #stdin #stdout 0.2s 175424KB
comments ()
stdin
copy 
Standard input is empty
stdout
copy 
[1] "Internet-Devices Used to Access Internet Past 30 Days -Owned by Self[Desktop Computer]"                 
[2] "Internet-Devices Used to Access Internet Past 30 Days -Owned by Other HH Member[Tablet]"                
[3] "Internet-Devices Used to Access Internet Past 30 Days -Made Available by Your Employer[Laptop Computer]"
[4] "Radio Stations-Listened to Past Week-Quebec City [FM-CFEL-102.1 (blvd 102.1)]"
https://ideone.com/gU6Xwq
language:
R (R 3.5.2)
created:
7 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!