如何在窗口中呈现集中的文本输入并保存？客户注册示例

Question

我试着通过按一个按钮打开一个窗口，写一些文本输入并提交到MySql表格，就像下面这个例子，但我不知道如何集中文本输入。

​

​

尝试

library(shinyWidgets)
library(shiny)
library(shinyjs)
library(RMariaDB)
shinyApp(
  ui = fluidPage(
    useShinyjs(), # Set up shinyjs
    actionButton("btn", "Costumer Registration"),
   
    
  ),
  server = function(input, output,session) {
#connect to MySQL
#localuserpassword= "PASSW"
#myconnect <- dbConnect(RMariaDB::MariaDB(), user='user', password=localuserpassword, dbname='name', host='localhost')
    

    observeEvent(input$btn, {  # open a window by pressing the "btn" button
      
      confirmSweetAlert(
        btn_labels = c("Cancel","Submit"),
        session = session,
        inputId = "SubmitCostumertoSQL",
        type = "info",
        title = paste0("Customer Registration"),
        danger_mode = F,
        closeOnClickOutside = T,
        showCloseButton =T,
        text = tags$div(
                        renderUI(textInput("name", "Name")),
                        renderUI(textInput("NRLE", "National Registry of Legal Entities")),
                        renderUI(textInput("address", "Address")),
        )
      )

    } )
    observeEvent(input$SubmitCostumertoSQL, {
#Send to MySQL    

      #querycostumer= paste("insert into TABLENAME(Name,NRLE,Addres)
      #      values('",input$name,"','",
       #     input$NRLE,"','",
        #    input$address,
         #   "')" ,sep = '') 
     
     #dbSendQuery(myconnect,querycostumer)
     
    })
    }
)

如何将文本输入集中保存到一个对象中？

​

Answer 1

在您的div中包含align = 'center'，例如text = tags$div(align = 'center',

如果您希望与示例更接近，textInput还可以包含占位符文本。

最小工作示例

library(shinyWidgets)
library(shiny)
library(shinyjs)

shinyApp(
    
ui = fluidPage(
    useShinyjs(),
    actionButton("btn", "Costumer Registration"),
),
    
server = function(input, output,session) {

    observeEvent(input$btn, {
        
        confirmSweetAlert(
            btn_labels = c("Cancel","Submit"),
            session = session,
            inputId = "SubmitCostumertoSQL",
            type = "info",
            title = paste0("Customer Registration"),
            danger_mode = F,
            closeOnClickOutside = T,
            showCloseButton =T,
            text = tags$div(align = 'center',
                renderUI(textInput("name", "Name")),
                renderUI(textInput("NRLE", "National Registry of Legal Entities")),
                renderUI(textInput("address", "Address")),
            )
        )
        
    })

})