Как напечатать ввод текста через окно модального диалога на TabPanel? - PullRequest
Новая
       18

Как напечатать ввод текста через окно модального диалога на TabPanel?

0 голосов
/ 25 января 2019

Ввод текста не может быть отображен на TabPanel

Я пишу блестящее приложение, в котором я хотел бы, чтобы пользователь нажимал кнопку действия и вводил какой-то текст в поле ModalDialog. Затем, нажав кнопку Сохранить в окне ModalDialog, введенный текст отобразится на соответствующей вкладке в TabPanel. Я получил ошибку «Ошибка: объект« вход »не найден. Я совершенно новичок в R, так что надеюсь, что люди здесь помогут мне.

Ниже приведены мои коды: 

library(shiny)


ui <- fluidPage (

sidebarLayout(
sidebarPanel(

actionButton("CommentaryButton","Enter Commentary")


),

mainPanel(
tabsetPanel(
tabPanel("Commentary",textOutput('CommentaryOutput'))

)
)
)
)

server <- function(input,output,session) {
observeEvent(input$CommentaryButton,
showModal(modalDialog(
textAreaInput("CommentaryInput",label = "Commentary", width= "550px", 
row= 10,placeholder = "Please enter commentary...."),



footer=tagList(actionButton("SaveCommentary","Save"),modalButton("Cancel")
)
)
)

)#observeEvent

observeEvent(input$SaveCommentary,{
output$CommentaryOutput <- renderText({paste(Input$CommentaryInput)})
removeModal()  
}
)
}


shinyApp(ui,server)
...