Nothing
context("text_to_columns")
result = sheet(
a = 1:3,
b = c(1.5, 2.5, 3),
c = c("a", "b", "c")
)
test = text_to_columns("
a b c
\t 1 1.5 a
# commented line
2 2.5 b
3 3 c
")
expect_identical(test, result)
test = text_to_columns_csv("
a,b,c
\t 1,1.5,a
# commented line
2,2.5,b
3,3,c
")
expect_identical(test, result)
test = text_to_columns_csv2("
a;b;c
\t 1;1,5;a
# commented line
2;2,5;b
3;3;c
")
expect_identical(test, result)
test = text_to_columns_tab("
a\tb\tc
\t 1\t1.5\ta
# commented line
2\t2.5\tb
3\t3\tc
")
expect_identical(test, result)
test = text_to_columns_tab2("
a\tb\tc
\t 1\t1,5\ta
# commented line
2\t2,5\tb
3\t3\tc
")
expect_identical(test, result)
test = text_to_columns_tab("
a b c
1 1.5 a
2 2.5 b
3 3 c
")
expect_identical(test, result)
test = text_to_columns("
a b c
1 1.5 a
2 2.5 b
3 3 c
")
expect_identical(test, result)
result = sheet(
V1 = 1:3,
V2 = c(1.5, 2.5, 3),
V3 = c("a", "b", "c")
)
test = text_to_columns("
\t 1 1.5 a
# commented line
2 2.5 b
3 3 c
", header = FALSE)
expect_identical(test, result)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.