Hi,
I have been struggling to build a numeric table that the user defines the number of rows and can edit all the fields (note that the fields must be numeric). I could create this table but my fields from column 2 to 7 are converted to checkbox format.
Does anyone know why this happens and how to change to number al the columns?
library(shiny)
library(datasets)
library(shinysky)
ui <- shinyUI(fluidPage(
tags$style(HTML("
input[type=number] {
-moz-appearance:textfield;
}
input[type=number]::{
-moz-appearance:textfield;
}
input[type=number]::-webkit-outer-spin-button,
input[type=number]::-webkit-inner-spin-button {
-webkit-appearance: none;
margin: 0;
}
", "hr {border-top: 1px solid #000000;}")), #do not use the spin button comand line
tabPanel("Well data",
titlePanel("Enter well basic data information"),
mainPanel(
fluidRow(
column(6,
numericInput(inputId = "NumberFlowZones",
label = "Number of flow zones",
value = 3,
width = "200px")
)))),
mainPanel(
fluidRow(
column(12,
hotable("InterpFlowZones"),br(),hotable("SimulFlowZones")
)))))
server <- shinyServer(function(input, output, session) {
output$InterpFlowZones <- renderHotable({(data.frame(matrix(nrow = input$NumberFlowZones, ncol = 7)))}, readOnly = FALSE)})
shinyApp(ui, server)
Thanks!