Shiny

问题 I'm having extreme difficulty trying to make a character string spread out across multiple columns in a DT:datatable header & in the table itself. I found these solutions: Extend a table cell across multiple columns, merge columns in DT:datatable but can't seem to get them to work for my own purposes. This is what I am getting: This is what I want: Sample Data: df<-structure(list(`AQS ID` = c(NA, "AQS ID", "340071001", "340170006", "340010006", "340070002", "340273001", "340150002",

问题 I'm trying to insert a shinyAmBarCharts chart within a flexdashboard with Shiny runtime. The final goal would be to use the modifiable chart as an input to other charts/models. So far I've been unsuccessful, because the amBarChart does not render in the dashboard. This is a sample code: --- title: "shinyAmBarCharts" output: flexdashboard::flex_dashboard: orientation: columns vertical_layout: fill runtime: shiny --- ```{r setup, include=FALSE} library(flexdashboard) library(shiny) library

问题 I'm trying to insert a shinyAmBarCharts chart within a flexdashboard with Shiny runtime. The final goal would be to use the modifiable chart as an input to other charts/models. So far I've been unsuccessful, because the amBarChart does not render in the dashboard. This is a sample code: --- title: "shinyAmBarCharts" output: flexdashboard::flex_dashboard: orientation: columns vertical_layout: fill runtime: shiny --- ```{r setup, include=FALSE} library(flexdashboard) library(shiny) library

问题 I'm trying to insert a shinyAmBarCharts chart within a flexdashboard with Shiny runtime. The final goal would be to use the modifiable chart as an input to other charts/models. So far I've been unsuccessful, because the amBarChart does not render in the dashboard. This is a sample code: --- title: "shinyAmBarCharts" output: flexdashboard::flex_dashboard: orientation: columns vertical_layout: fill runtime: shiny --- ```{r setup, include=FALSE} library(flexdashboard) library(shiny) library

问题 I have a requirement to show 2 datatables in 2 different tabs in a shiny application. One is a simple datatable whereas the other uses the rowgroup extension of DT package. When I'm using tabs to display both the datatables, the rowgroup function doesnt seem to work. library(shiny) library(DT) library(shinyjs) ui <- fluidPage( dashboardBody( fluidRow( tabBox(width = "100%", tabPanel("Table 1", fluidRow( column(12, withSpinner(DTOutput("my_table2",height="600px"))) ) ), tabPanel("Table 2",

问题 I have a requirement to show 2 datatables in 2 different tabs in a shiny application. One is a simple datatable whereas the other uses the rowgroup extension of DT package. When I'm using tabs to display both the datatables, the rowgroup function doesnt seem to work. library(shiny) library(DT) library(shinyjs) ui <- fluidPage( dashboardBody( fluidRow( tabBox(width = "100%", tabPanel("Table 1", fluidRow( column(12, withSpinner(DTOutput("my_table2",height="600px"))) ) ), tabPanel("Table 2",

问题 I am new to R Shinyapps, hence, my question may sound a bit stupid. Please accept my apologies for this. I am struggling to get the data into a table according to the required column format. Currently, the table looks like below: So I have 11 columns in the table, I want the columns to formatted as below: "Col-2 to Col-7" all having a 1 digit decimal place. "Col-8 to Col-10" all having 0 digit decimal place (no decimal). "Col-11" having 2 digit decimal place. Any suggestions on how to do this

问题 I am new to R Shinyapps, hence, my question may sound a bit stupid. Please accept my apologies for this. I am struggling to get the data into a table according to the required column format. Currently, the table looks like below: So I have 11 columns in the table, I want the columns to formatted as below: "Col-2 to Col-7" all having a 1 digit decimal place. "Col-8 to Col-10" all having 0 digit decimal place (no decimal). "Col-11" having 2 digit decimal place. Any suggestions on how to do this

问题 I have the below sample code from an application to genarate a plot and render to UI. library(shiny) ui <- fluidPage( selectInput("choice", "Choose", choices = names(mtcars)), actionButton("run", "Run"), plotOutput("some_ui") ) server <- function(input, output, session) { output$some_ui <- renderPlot({ if(input$run==0) return() withProgress(message = paste("Drawing heatmap, please wait."),{ heatmap_render(x,y) ##custom function to generate plot### }) }) } This is not a working example as it

问题 Hello I want to find the correlation coefficient of two columns of my dataset. If I use cor(subset(iris, select=c("Sepal.Length")),subset(iris, select=c("Sepal.Width"))) the correlation is being found but I cannot subset with my actual dataset which comes as a CSV file input and is in a reactive expression. cor(subset(rt(), select=c("Sepal.Length")),subset(rt(), select=c("Sepal.Width")))` So how could I subset a data frame of this reactive form? rt<-reactive({ req(input$file1) csvdata <- read