请问如何才能消除shiny中input参数中的引号？

Question

我在用shiny做线性回归的可视化分析的时候，有底下一段代码，
output$lm <- renderPrint({summary(
lm(input$x1~ input$x2,data = sleep))})
其中input$x1和input$x2引用的是selectinput里的参数，请问如何才能消除input参数中的引号？

Answer 1

你可以尝试用apply函数和as.numeraic,对数据框转换一下。或者使用gsub函数替换再强制转换，参考这里：https://blog.csdn.net/Yann_YU/article/details/107212363

x=data.frame(a=c(1,2,3),b=c('108','206','332'))
x1=as.data.frame(lapply(x,as.numeric))
x1
typeof(x1$b)
#[1] "double"