Создайте фрейм данных, используя ввод текста в Shiny
Попытка создать фрейм данных как ниже;
X Y
20 30
Использование textInput для создания фрейма данных.
Но значения, введенные в текстовую область, не назначаются должным образом фрейму данных.
Не могли бы вы мне помочь?
ui.R
library(shiny)
shinyUI(pageWithSidebar(
headerPanel( "", ""),
sidebarPanel(
wellPanel(
textInput('datavalues', "variable values",""),
actionButton("submit","Apply")
)
),
mainPanel(
verbatimTextOutput('datatable')
)
))
server.R
library(shiny)
shinyServer(function(input,output,session){
data1= reactive({
if(input$submit!=0){
isolate({
data.frame(paste(input$datavalues))
})
}
})
output$datatable<-renderPrint(function(){
if(!is.null(data1())){
d<-data1()
print(d)
}
})
})