shiny-server

问题 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 trying to save a file on the server side of where I am running the shiny app but for some reason I don't see the path when I try to save it. Here is the code that I have it currently in the shiny app library(shinyFiles) shinySaveButton(id = 'download.scores', label = 'Save scores', title = "Save file as...", filetype = "csv") observe({ volumes <- c("wd"="/home/rstudio/data") shinyFileSave(input, "download.scores", roots=volumes, session=session) fileinfo <- parseSavePath(volumes, input

问题 I'm using the renderPrint function in a ShinyApp to show calculation results. The results come with a [1],[2] etc in front. Is there a way to get rid of that? Also, can one change fonts of the output? 回答1: You could use renderText instead of renderPrint . Or maybe withMathJax() could also be an option? For styling your app, there are several ways to do that. You can read about that here. I include the css directly in the app in the following example. For small adaptations thats maybe the

问题 While trying to pass an user entered input (empId) from Shiny UI into a sql query on shiny server.r not sure how to debug this error. Error in as.vector(x, "character") : cannot coerce type 'closure' to vector of type 'character' UI.r library(shiny) shinyUI(fluidPage( titlePanel("Employee Table (AdventureWorks)"), sidebarLayout( sidebarPanel((""), textInput("idnumb", "Employee ID number",""), submitButton("Ok")), mainPanel(tableOutput("emptitle"))))) Server.r shinyServer(function(input,

问题 Our analysis tool uses R and Shiny server for visualization, Want it to host on Windows server Ready to move to Python if it can be hosted on Windows? (Please Don't recommend for VM) 来源： https://stackoverflow.com/questions/38217942/option-for-rshiny-on-windows-server

问题 I'm new to using Shiny and having some problems with adding reactive values to an existing data frame. I would like to plot a scatter plot with a regression line using some preexisting data and update it with user clicks. I found a helpful example, but I can't figure out how to store the reactive values in a data frame in order to update the regression line. Here is what I tried. Thank you. library(shiny) ui <- basicPage( plotOutput("plot1", click = "plot_click"), verbatimTextOutput("info"),

问题 I'm developing an app in which I use modules to display different tab's ui content. However it seems like the module does not communicate with the main (or parent) app. It displays the proper ui but is not able to execute the observeEvent function when an actionButton is clicked, it should update the current tab and display the second one. In my code I have created a namespace function and wrapped the actionButton 's id in ns() , however it still does not work. Does anyone knows what's wrong?

问题 I have a form with an active button, the problem is that I want reset the button in this form output$exampleFasta = 0 but it throw a exception, how can I change the data of variable? or if exist something like renderImage that can give info to specific attribute like the id. index.html <form class="span12 menu-med-upload"> <div class="row-fluid"> <h3>Upload File .fasta</h3> <div class="custom-input-file btn btn-inverse"> <input type="file" size="1" name="fileFasta" id="fileFasta" class="input

问题 I am creating a dashboard using Shinydashboard package, where I need to change the background color based on the selected Tab. I have tried the following code, but it is not working as intended. library(shiny) library(shinydashboard) library(dplyr) ui <- dashboardPage(dashboardHeader(dropdownMenuOutput("notificationMenu")), dashboardSidebar(sidebarMenu(menuItem("Page 1", tabName = "page1"), menuItem("Page 2", tabName = "page2"))), dashboardBody(tags$style(".content {background-color: #f7f7f7;