使用R在所需位置並排定位textareaInput（3列）使用R

Question

我正在運行R代碼。我已經動態地顯示了textareaInput。但是我有一個定位問題。

我得到的輸出是： Desired Output

我期望的輸出是分別顯示當前的星期，下週和接下來的2周以下textareaInput。

的R代碼裏面：

observeEvent(input$view,{ 
output$inputGroup = renderUI({ 
    input_list <- lapply(1:(nrow(df())*3), function(i) { 
    # for each dynamically generated input, give a different name 
    inputName <- paste("input", i, sep = "") 
    textInputRow<-function (inputId,value) 
    { 
     div(style="display:inline-block", 
      textAreaInput(inputName,"", width = "200px", height = "40px") 
    ) 
    } 

    column(4, 
    textInputRow(inputName, "")) 

    }) 
    do.call(tagList, input_list) 
}) 

誰能幫我這個代碼？

Answer 1

爲了進一步闡述我的評論使用fluidRow和column我下面張貼的示例代碼：

ui <- fluidPage(
    fluidRow(
     column(3, h3("Total Time Spent:")), 
     column(3, numericInput("num1", "Current Week:", value = 1)), 
     column(3, numericInput("num2", "Next Week:", value = 1)), 
     column(3, numericInput("num3", "Next 2 Week:", value = 1)) 

    ), 
    fluidRow(
     column(3), 
     column(9,uiOutput("inputGroup")) 
    ) 

    ) 



    server <- function(input,output){ 

    output$inputGroup = renderUI({ 
     input_list <- lapply(1:9, function(i) { 
     # for each dynamically generated input, give a different name 
     inputName <- paste("input", i, sep = "") 
     textInputRow<-function (inputId,value) 
     { 
      div(style="display:inline-block", 
       textAreaInput(inputName,"", width = "200px", height = "40px") 
      ) 
     } 

     column(4, 
       textInputRow(inputName, "")) 

     }) 
     do.call(tagList, input_list) 
    }) 

    } 


    shinyApp(ui, server) 

此代碼生成的輸出如下：

希望它能幫助！