R 如何在窗口中呈现集中的文本输入并保存?客户注册示例
我试图通过按下按钮来打开一个窗口,写入一些文本输入并提交到MySql表,如下面的示例,但我不知道如何集中文本输入 企图R 如何在窗口中呈现集中的文本输入并保存?客户注册示例,r,shiny,R,Shiny,我试图通过按下按钮来打开一个窗口,写入一些文本输入并提交到MySql表,如下面的示例,但我不知道如何集中文本输入 企图 库(shinyWidgets) 图书馆(闪亮) 图书馆(shinyjs) 图书馆(RMariaDB) shinyApp( ui=fluidPage( 使用shinyjs(),#设置shinyjs 操作按钮(“btn”、“客户注册”), ), 服务器=功能(输入、输出、会话){ #连接到MySQL #localuserpassword=“PASSW” #myconnect在您的
库(shinyWidgets)
图书馆(闪亮)
图书馆(shinyjs)
图书馆(RMariaDB)
shinyApp(
ui=fluidPage(
使用shinyjs(),#设置shinyjs
操作按钮(“btn”、“客户注册”),
),
服务器=功能(输入、输出、会话){
#连接到MySQL
#localuserpassword=“PASSW”
#myconnect在您的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")),
)
)
})
})
你说的中央集权是指这样的东西?是的,就是那样
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")),
)
)
})
})