我正在做一个闪亮的应用,遇到了一个很小但很恼人的问题。我生成的部分输出是使用DT::renderDataTable
输出的。只有两列,第一列的宽度将取决于输入数据集,所以我不想将宽度绝对固定为任何值。我见过this线程,其中一个答案中的代码在某种程度上是有效的。但是,如果我再次按下actionButton,表会自动调整大小以填充输出窗口的整个宽度。
有没有办法防止表格在再次按下操作按钮后自动调整大小?我知道只使用renderTable
和tableOutput
就可以解决这个问题,但我喜欢dataTableOutput
,并且更喜欢使用该函数。
对于MWE:
library("shiny")
library("DT")
mwe_ui <- shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
titlePanel("Example"),
sliderInput(inputId = "df",
label = "Degrees of Freedom:",
min=1 , max=50 , value=1 , step=1
),
actionButton(inputId = "compute1",
label = "Sample"
)
),
mainPanel(
dataTableOutput( outputId = "summary" )
)
)))
mwe_server <- function(input, output) {
temp01 <- reactive({
compute1 <- input$compute1
if( compute1 > 0 ){
isolate({
aa <- round( runif(6, 4,20 ) )
bb <- character()
for( ii in 1:6 ){
bb[ii] <- paste0(sample(letters, size=aa[ii]), collapse="")
}
xx <- matrix( round(rt(6, df=input$df), 4), nrow=6, ncol=1 )
return( data.frame(xx) )
})
}
})
##############
output$summary <- DT::renderDataTable({
temp02 <- temp01()
}, rownames=FALSE,
options = list(autoWidth = TRUE,
columnDefs = list(list(width = "125px", targets = "_all"))
)
)
}
runApp( list(ui=mwe_ui, server=mwe_server) )
发布于 2018-05-22 19:04:54
您可以只在ui函数中添加width
参数,而不是在服务器的columnDefs
中吗?
library("shiny")
library("DT")
mwe_ui <- shinyUI(fluidPage(
sidebarLayout(
sidebarPanel(
titlePanel("Example"),
sliderInput(inputId = "df",
label = "Degrees of Freedom:",
min=1 , max=50 , value=1 , step=1
),
actionButton(inputId = "compute1",
label = "Sample"
)
),
mainPanel(
dataTableOutput( outputId = "summary" , width="125px")
)
)))
mwe_server <- function(input, output) {
temp01 <- reactive({
compute1 <- input$compute1
if( compute1 > 0 ){
isolate({
aa <- round( runif(6, 4,20 ) )
bb <- character()
for( ii in 1:6 ){
bb[ii] <- paste0(sample(letters, size=aa[ii]), collapse="")
}
xx <- matrix( round(rt(6, df=input$df), 4), nrow=6, ncol=1 )
return( data.frame(xx) )
})
}
})
##############
output$summary <- DT::renderDataTable({
temp02 <- temp01()
}, rownames=FALSE,
options = list(autoWidth = TRUE)
)
}
runApp( list(ui=mwe_ui, server=mwe_server) )
https://stackoverflow.com/questions/32955610
复制相似问题