Shiny

问题 I'm having trouble replicating a datatable object in Shiny. Currently, I can display what I want when I run the data table portion of the code outside of a Shiny environment. However, when I run the entire code, it's not displaying the child table. library(DT) library(data.table) library(shiny) shinyApp( ui = fluidPage(DT::dataTableOutput('tbl')), server = function(input, output) { output$tbl = DT::renderDataTable( datatable({ #Transform dataframe to data.table and turn the dataframe rowname

问题 I am trying to add a column of icons to a data table that is shown in a Shiny app. Essentially I just want an up arrow when the data has gone up, and a down arrow when it has gone down. However, I'm not sure how to display an icon. When I add a column just using for e.g. icon("arrow-up") , I get the following error: Error: default method not implemented for type 'list' I can see that if I try this approach outside of Shiny, it is displaying the data about the icon rather than displaying the

问题 I am trying to add a column of icons to a data table that is shown in a Shiny app. Essentially I just want an up arrow when the data has gone up, and a down arrow when it has gone down. However, I'm not sure how to display an icon. When I add a column just using for e.g. icon("arrow-up") , I get the following error: Error: default method not implemented for type 'list' I can see that if I try this approach outside of Shiny, it is displaying the data about the icon rather than displaying 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,

问题 I am trying to add a box to a shiny R app at the top to house a short description and a logo. I have been unable to find any code that works. My thinking was to include a horizontal box and pass some text/image for the logo into it, but have not found any solutions. Any help appreciated. Some structural code below. header <- dashboardHeader(title = "May 2017", titleWidth = 525) sidebar <- dashboardSidebar(disable = TRUE) frow2 <- fluidRow( box( title = "" ,status = "primary" ,solidHeader =

问题 I am trying to add a box to a shiny R app at the top to house a short description and a logo. I have been unable to find any code that works. My thinking was to include a horizontal box and pass some text/image for the logo into it, but have not found any solutions. Any help appreciated. Some structural code below. header <- dashboardHeader(title = "May 2017", titleWidth = 525) sidebar <- dashboardSidebar(disable = TRUE) frow2 <- fluidRow( box( title = "" ,status = "primary" ,solidHeader =

问题 I am trying to add a box to a shiny R app at the top to house a short description and a logo. I have been unable to find any code that works. My thinking was to include a horizontal box and pass some text/image for the logo into it, but have not found any solutions. Any help appreciated. Some structural code below. header <- dashboardHeader(title = "May 2017", titleWidth = 525) sidebar <- dashboardSidebar(disable = TRUE) frow2 <- fluidRow( box( title = "" ,status = "primary" ,solidHeader =

问题 Is it possible to load offline/local leaflet map tiles within a Shiny app? I am able to load the tiles in an interactive R session as shown here, but I now want to try and load them for use in a Shiny app. Here's an example of what I have so far. I'm thinking it has something to do with Shiny running through an IP and port and needing to load the tiles through an IP and port as well. I've tried a few things to change IPs and ports (making them the same) as explained here but haven't figured

问题 Is it possible to load offline/local leaflet map tiles within a Shiny app? I am able to load the tiles in an interactive R session as shown here, but I now want to try and load them for use in a Shiny app. Here's an example of what I have so far. I'm thinking it has something to do with Shiny running through an IP and port and needing to load the tiles through an IP and port as well. I've tried a few things to change IPs and ports (making them the same) as explained here but haven't figured

问题 My shiny app allows user to upload a csv by using fileInput and stored as an reactive object df_data. I then created a numericInput for user to enter a row number to delete from the data frame. However, I got an error about evaluation nested too deeply: infinite recursion / options(expressions=)? . Below is my code for ui.R. shinyUI(fluidPage( titlePanel("amend data frame"), mainPanel( fileInput("file", "Upload file"), numericInput("Delete", "Delete row:", 1, step = 1), actionButton("Go",