在Shiny中添加一列

huangapple
go评论96阅读模式
英文:

adding a column in shiny

问题

I would like to add an ID column to a data set using Shiny. And this ID column can be as long as the dataset dat$my.ID <- (max(dat$ID) + 1):(max(dat$ID) + nrow(dat)) and should not limit the user who is entering a starting ID number. many thanks in advance.

ui.r

  1. navbarPage(
  2.   title = 'Benvenuti',
  3.   tabPanel('read.me', column(3,
  4.                              
  5.                              h3("Daily Data Manipulation"),
  6.                           
  7.                              h3("title1"),
  8.                              tags$a("Upload data.xlsx")
  9.   )),
  10.   
  11.   tabPanel(title = "title2", 
  12.            sidebarPanel( width = 2, fileInput('file1', 'Choose xlsx file',
  13.                                               accept = c(".xlsx")),
  14.                          numericInput("ID", "enter the id number to increment", THERE SHOULD BE NO LIMIT IN MIN AND MAX )
  15.            ), 
  16.            
  17.            mainPanel(tableOutput(outputId = "mytable"))
  18.   ) )

server.r

  1. library(shiny)
  3. server <- function(input, output) {
  4.   
  5.   ########################################
  6.   ### title1
  7.   ########################################  
  8.   
  9.   data.Consenso <- reactive({
  10.     inFile <- input$file1
  11.     if(!is.null(inFile)) {
  12.       readxl::read_excel(inFile$datapath)
  13.       #read.csv(inFile$datapath, header = TRUE, stringsAsFactors = FALSE)    
  14.     }
  15.   })
  16.   
  17.   
  18.   output$mytable <- renderTable({
  19.     
  20.     dat <- data.Consenso()
  21.     if(!is.null(dat))
  22.     {
  23.       dat$Tipo <- 3
  24.       dat$my.ID <- (max(dat$ID) + 1):(max(dat$ID) + nrow(dat)) 
  25.       dat
  26.     }
  27.   }) 
  28.   
  29.   
  30.   
  31. }
英文:

I would like to add an ID column to a data set using Shiny. And this ID column can be as long as the dataset dat$my.ID &lt;- (max(dat$ID) + 1):(max(dat$ID) + nrow(dat)) and should not limit the user who is entering a starting ID number. many thanks in advance.

ui.r

  1.  navbarPage(
  2.   title = &#39;Benvenuti&#39;,
  3.   tabPanel(&#39;read.me&#39;, column(3,
  4.                              
  5.                              h3(&quot;Daily Data Manipulation&quot;),
  6.                           
  7.                              h3(&quot;title1&quot;),
  8.                              tags$a(&quot;Upload data.xlsx&quot;)
  9.   )),
  10.   
  11.   tabPanel(title = &quot;title2&quot;, 
  12.            sidebarPanel( width = 2, fileInput(&#39;file1&#39;, &#39;Choose xlsx file&#39;,
  13.                                               accept = c(&quot;.xlsx&quot;)),
  14.                          numericInput(&quot;ID&quot;, &quot;enter the id number to increment&quot;, THERE SHOULD BE NO LIMIT IN MIN AND MAX )
  15.            ), 
  16.            
  17.            mainPanel(tableOutput(outputId = &quot;mytable&quot;))
  18.   ) )

server.r

  1. library(shiny)
  3. server &lt;- function(input, output) {
  4.   
  5.   ########################################
  6.   ### title1
  7.   ########################################  
  8.   
  9.   data.Consenso &lt;- reactive({
  10.     inFile &lt;- input$file1
  11.     if(!is.null(inFile)) {
  12.       readxl::read_excel(inFile$datapath)
  13.       #read.csv(inFile$datapath, header = TRUE, stringsAsFactors = FALSE)    
  14.     }
  15.   })
  16.   
  17.   
  18.   output$mytable &lt;- renderTable({
  19.     
  20.     dat &lt;- data.Consenso()
  21.     if(!is.null(dat))
  22.     {
  23.       dat$Tipo &lt;- 3
  24.       dat$my.ID &lt;- (max(dat$ID) + 1):(max(dat$ID) + nrow(dat)) 
  25.       dat
  26.     }
  27.   }) 
  28.   
  29.   
  30.   
  31. }

答案1

得分: 1

这应该可以工作：

在 ui 中进行了更改：tabPanel(title = "title2",...
以及在 server 中：starting_id <- input$ID 从用户获取输入并创建一个以用户输入为起点，逐步增加1的ID序列。

ui.r

  1. library(shiny)
  3. navbarPage(
  4.   title = 'Benvenuti',
  5.   tabPanel('read.me', column(
  6.     3,
  7.     
  8.     h3("Daily Data Manipulation"),
  9.     
  10.     h3("title1"),
  11.     tags$a("Upload data.xlsx")
  12.   )),
  13.   
  14.   tabPanel(
  15.     title = "title2",
  16.     sidebarPanel(
  17.       width = 2,
  18.       fileInput('file1', 'Choose xlsx file', accept = c(".xlsx")),
  19.       numericInput(
  20.         "ID",
  21.         "Enter the starting ID number:",
  22.         value = 1,
  23.         min = -Inf,
  24.         max = Inf
  25.       )
  26.     ),
  27.     mainPanel(tableOutput(outputId = "mytable"))
  28.   )
  29. )

server.r

  1. server <- function(input, output) {
  2.   data.Consenso <- reactive({
  3.     inFile <- input$file1
  4.     if (!is.null(inFile)) {
  5.       readxl::read_excel(inFile$datapath)
  6.     }
  7.   })
  8.   
  9.   output$mytable <- renderTable({
  10.     dat <- data.Consenso()
  11.     if (!is.null(dat)) {
  12.       dat$Tipo <- 3
  13.       starting_id <- input$ID
  14.       dat$my.ID <- starting_id:(starting_id + nrow(dat) - 1)
  15.       dat
  16.     }
  17.   })
  18. }
英文:

This should work:

Made changes in ui: tabPanel(title = &quot;title2&quot;,...
and in server: starting_id &lt;- input$ID takes the input from the user and makes a sequence of IDs starting from the user input and incrementing by 1.

ui.r

  1. library(shiny)
  3. navbarPage(
  4.   title = &#39;Benvenuti&#39;,
  5.   tabPanel(&#39;read.me&#39;, column(
  6.     3,
  7.     
  8.     h3(&quot;Daily Data Manipulation&quot;),
  9.     
  10.     h3(&quot;title1&quot;),
  11.     tags$a(&quot;Upload data.xlsx&quot;)
  12.   )),
  13.   
  14.   tabPanel(
  15.     title = &quot;title2&quot;,
  16.     sidebarPanel(
  17.       width = 2,
  18.       fileInput(&#39;file1&#39;, &#39;Choose xlsx file&#39;, accept = c(&quot;.xlsx&quot;)),
  19.       numericInput(
  20.         &quot;ID&quot;,
  21.         &quot;Enter the starting ID number:&quot;,
  22.         value = 1,
  23.         min = -Inf,
  24.         max = Inf
  25.       )
  26.     ),
  27.     mainPanel(tableOutput(outputId = &quot;mytable&quot;))
  28.   )
  29. )

server.r

  1. server &lt;- function(input, output) {
  2.   data.Consenso &lt;- reactive({
  3.     inFile &lt;- input$file1
  4.     if (!is.null(inFile)) {
  5.       readxl::read_excel(inFile$datapath)
  6.     }
  7.   })
  8.   
  9.   output$mytable &lt;- renderTable({
  10.     dat &lt;- data.Consenso()
  11.     if (!is.null(dat)) {
  12.       dat$Tipo &lt;- 3
  13.       starting_id &lt;- input$ID
  14.       dat$my.ID &lt;- starting_id:(starting_id + nrow(dat) - 1)
  15.       dat
  16.     }
  17.   })
  18. }

huangapple
  • 本文由 发表于 2023年5月21日 16:01:58
  • 转载请务必保留本文链接：https://go.coder-hub.com/76298861.html
  • data-manipulation
  • r
  • shiny
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定