fork download
copy 
  1. library(magrittr) # %>% pipe
  2. txt = 
  3.   c("20220404,板橋,38,40,0.1,4288,120,20220404,三重,25,60,0.2,4286,125",
  4.     "20220404,板橋,38,40,0.1,4288,120,20220404,三重,25,60,0.2,4286,125",
  5.     "20220404,板橋,38,40,0.1,4288,120,20220404,三重,25,60,0.2,4286,125",
  6.     "20220404,板橋,38,40,0.1,4288,120,20220404,三重,25,60,0.2,4286,125")
  7. strsplit(txt, ",") %>%
  8.   do.call("c", .) %>%
  9.   matrix(byrow = T, ncol = 7)
  10. #      [,1]       [,2]   [,3] [,4] [,5]  [,6]   [,7] 
  11. # [1,] "20220404" "板橋" "38" "40" "0.1" "4288" "120"
  12. # [2,] "20220404" "三重" "25" "60" "0.2" "4286" "125"
  13. # [3,] "20220404" "板橋" "38" "40" "0.1" "4288" "120"
  14. # [4,] "20220404" "三重" "25" "60" "0.2" "4286" "125"
  15. # [5,] "20220404" "板橋" "38" "40" "0.1" "4288" "120"
  16. # [6,] "20220404" "三重" "25" "60" "0.2" "4286" "125"
  17. # [7,] "20220404" "板橋" "38" "40" "0.1" "4288" "120"
  18. # [8,] "20220404" "三重" "25" "60" "0.2" "4286" "125"
  19.  
Success #stdin #stdout 0.26s 39344KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
     [,1]       [,2]   [,3] [,4] [,5]  [,6]   [,7] 
[1,] "20220404" "板橋" "38" "40" "0.1" "4288" "120"
[2,] "20220404" "三重" "25" "60" "0.2" "4286" "125"
[3,] "20220404" "板橋" "38" "40" "0.1" "4288" "120"
[4,] "20220404" "三重" "25" "60" "0.2" "4286" "125"
[5,] "20220404" "板橋" "38" "40" "0.1" "4288" "120"
[6,] "20220404" "三重" "25" "60" "0.2" "4286" "125"
[7,] "20220404" "板橋" "38" "40" "0.1" "4288" "120"
[8,] "20220404" "三重" "25" "60" "0.2" "4286" "125"
https://ideone.com/4oDHom
language:
R (R 3.5.2)
created:
1 year 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!