Saat ini saya sedang mengembangkan aplikasi yang mengkilap. Saya menghadapi masalah dalam menempatkan elemen secara horizontal.

RCode yang digunakan adalah sebagai berikut:

ui <- fluidPage( 
  fluidRow(
  column(3, 
         selectizeInput("proj1", NULL,
                        choices = Dummy$Project_1, width = "300px",
                        options = list(
                          placeholder = "Additional Projects",
                          onInitialize = I('function() { this.setValue(""); }')
                        )
         )),
  column(3, textAreaInput("col11","", width = "200px", height = "43px")),
  column(3, textAreaInput("col12","", width = "200px", height = "43px")),
  column(3, textAreaInput("col13","", width = "200px", height = "43px"))
)
)
server <- function(input, output){}

shinyApp(ui = ui, server = server)

Outputnya adalah sebagai berikut:

enter image description here

Adakah yang bisa membantu saya dengan masalah ini?

1
Nevedha Ayyanar 27 November 2017, 11:20

1 menjawab

Jawaban Terbaik

Di Input pilih Anda alih-alih NULL, jika Anda memberikan beberapa tajuk, maka itu akan berfungsi dengan baik. Di bawah ini adalah kode:

ui <- fluidPage( 
  fluidRow(
    column(3, 
           selectizeInput("proj1", "Choose value",
                          choices = c("A","B"), width = "300px",
                          options = list(
                            placeholder = "Additional Projects",
                            onInitialize = I('function() { this.setValue(""); }')
                          )
           )),
    column(3, textAreaInput("col11","", width = "200px", height = "43px")),
    column(3, textAreaInput("col12","", width = "200px", height = "43px")),
    column(3, textAreaInput("col13","", width = "200px", height = "43px"))
  )
)
server <- function(input, output){}

shinyApp(ui = ui, server = server)
0
Rahul Agarwal 27 November 2017, 10:03