如何将字符串输入（带空格的数字）转换为Shiny（R）中的数据帧？

Posted 2021-05-03

对不起[R

textInput("numbers","New try")
# Example input, 2345 654774 647

在server.R中

x = as.numeric(unlist(strsplit(input$numbers, '')))

输出是

2 3 4 5 NA 6 5 4 7 7 4 NA 6 4 7

这是将数字转换为原子矢量。我希望将数字转换为数据帧并保留数字。例如，数据帧中的2345 654774 647。

答案

我们可以使用正则表达式来搜索字符串中的整数而不是分成单个数字。由此可以将所有匹配放入数据帧中。

library(stringr)

input<-"2345 654774 647"

Match<-str_match_all(input, "\d+")

DF<-as.data.frame(Match)

names(DF)<-("Test")
DF
    Test
1   2345
2 654774
3    647