Shiny

How to remove the first column (index) from data table in R Shiny

你说的曾经没有我的故事 提交于 2020-08-27 22:12:29
问题 I am wondering if there is a way to remove the index column (1st column) from the data table in Shiny. For example, column of (1, 2, 3) before Name column as shown in the screenshot below: Below is my code: header <- dashboardHeader( title = "Test" ) sidebar <- dashboardSidebar( ) body <- dashboardBody( box(title = "Test", width = 7, status = "warning", DT::dataTableOutput("df")) ) # UI ui <- dashboardPage(header, sidebar, body) # Server server <- function(input, output, session) { output$df

focusing the cursor in textArea after clicking an action button in shiny

本小妞迷上赌 提交于 2020-08-27 06:55:05
问题 I am not an expert in html or JavaScript by any means. So, I hope for you assistance with this issue. I thought I should provide a smaller version of my app in order to be able to explain the problem. Here is the app.R of a simple app that allows the user to write, let's say a word, in the textArea. The first letter of the word will appear automatically as the label of the action button, if the user clicks on the action button, the contents of the textArea will be updated stating whether the

How to use shiny app as a target in drake

断了今生、忘了曾经 提交于 2020-08-26 10:12:06
问题 How to pass previous target ( df ) to ui and server functions that I use in the next command shinyApp . My plan looks like this: plan <- drake_plan( df = faithful, app = shinyApp(ui, server) ) ui and server are copied from the shiny tutorial. There's only one difference - I changed faithful to df (data in the previous target). Now I'm getting an error: Warning: Error in $: object of type 'closure' is not subsettable [No stack trace available] How to solve this? What's the best practice? 回答1:

Knit word document from Shiny App with template.docx

落爺英雄遲暮 提交于 2020-08-26 10:01:15
问题 I'm trying to knit a word document from a shiny app using a template.docx file. I get the following error message: pandoc.exe: template.docx: openBinaryFile: does not exist (No such file or directory) The following 3 files were all currently located in the same directory. app.R: library(shiny) library(rmarkdown) ui <- fluidPage( titlePanel("Word template"), sidebarLayout( sidebarPanel(), mainPanel( downloadButton("download", "Download Report") ) ) ) server <- function(input, output) { output