小编SJB*_*SJB的帖子

我有一个大文件,必须在R中导入.我用于fread此目的.fread将数字字段中的空格识别为NA,但不识别字符和整数64字段中的空格为NA.

fread 将空格识别为字符字段的空单元格,并将整数64字段的空格识别为0.

当我使用导入相同的数据时read.table,它将所有空格都识别为NA.

请找一个可重复的例子,

library(data.table)
x1 <- c("","","")
x2 <- c("1006678566","","1011160152")
x3 <- c("","ac","")
x4 <- c("","2","3")
df <- cbind.data.frame(x1,x2,x3,x4)
write.csv(df,"tr.csv")

tr1 <- fread("tr.csv", header=T, fill = T,
             sep= ",", na.strings = c("",NA), data.table = F,
             stringsAsFactors = FALSE)

tr2 <- read.table("tr.csv", fill = TRUE, header=T, 
                  sep= ",", na.strings = c(""," ", NA), 
                  stringsAsFactors = FALSE)

详细输出:

Input contains no \n. Taking this to be a filename to open
[01] Check arguments
  Using …

我想显示一个表,显示重复计数以及用户定义的列.我在闪亮的应用程序中有selectinput选项,用户可以通过该选项选择多个列来检查重复的组合.

但是,当用户选择第一列时,将显示不正确的列名称.选择两列时,列名称是正确的.

请帮我找到解决这个问题的方法.当用户选择第一列时,应显示正确的列.

码,

library(shiny)
library(shinydashboard)

ui <- dashboardPage(skin = "black",
                    dashboardHeader(title = "test"),
                    dashboardSidebar(
                      sidebarMenu(
                        menuItem("Complete", tabName = "comp"))),
                  dashboardBody(useShinyjs(),
                    tabItems(
                    tabItem(tabName = "comp",
                      fluidRow(
                      box(selectInput("dup_var", "Variable", multiple = TRUE, c("1"="1","2"="2")), 
                          width = 3, status = "primary")),
                      fluidRow(
                      box(title = "Duplicate Records", width = 12, solidHeader = TRUE, status = "primary", 
                      collapsible = TRUE, DT::dataTableOutput("dup_data")))))))

server <- function(input, output, session) {
  observe({
    cname <- c("Select All", names(mtcars))
    col_options <- list()
    col_options[ cname] <- cname

    updateSelectInput(session, "dup_var",
                      label = "", …

我想在闪亮的应用程序中冻结数据表的页眉和页脚。我已经研究并找到了这个链接https://datatables.net/examples/basic_init/scroll_xy.html。但是当我从上面的链接中包含脚本时，数据表并没有被冻结。请帮我解决这个问题。

library(shiny)
library(shinydashboard)

ui <- dashboardPage(skin = "black",
                    dashboardHeader(title = "test"),
                    dashboardSidebar(
                      sidebarMenu(
                        menuItem("Complete", tabName = "comp"))),
                    dashboardBody(useShinyjs(),
                      tabItems(
                        tabItem(tabName = "comp",
                                  fluidRow(
                                    box(title = "data", width = 12, solidHeader = TRUE, status = "primary", 
                                        collapsible = TRUE, dataTableOutput("tbe")))))))

server <- function(input, output, session) { 

  output$tbe <- renderDataTable(mtcars)

  observe({
    runjs("
          $(document).ready(function() {
          $('#DataTables_Table_0').DataTable( {
          \"scrollY\": 200,
          \"scrollX\": true
          } );
          } );

          ")

          })

}
shinyApp(ui, server)

谢谢，SJB。