Question

使用包openxlsx准备将数据帧写入excel工作簿，我能够使用每列的方式在openxlsx's vignette中运行示例来更改变量{{1 }}

class

为了使用我自己的数据集，我想使用## data.frame to write df <- data.frame("Date" = Sys.Date()-0:4, "Logical" = c(TRUE, FALSE, TRUE, TRUE, FALSE), "Currency" = paste("$",-2:2), "Accounting" = -2:2, "hLink" = "http://cran.r-project.org/", "Percentage" = seq(-1, 1, length.out=5), "TinyNumber" = runif(5) / 1E9, stringsAsFactors = FALSE) ## Below comes the custom class assignation used for excel formatting class(df$Currency) <- "currency" class(df$Accounting) <- "accounting" class(df$hLink) <- "hyperlink" class(df$Percentage) <- "percentage" class(df$TinyNumber) <- "scientific" ## Works ! class(df$Percentage) [1] "percentage"来更改名称与给定字符串匹配的列类（如下所示）。

到目前为止我尝试过：

dplyr

我觉得函数require(tidyverse) fn_toPercentage <- function(x){class(x)<-"percentage"} df2 <- df %>% mutate_at(vars(starts_with("Percent")),funs(fn_toPercentage)) ## Check: lapply(df2,class) $Date [1] "Date" $Logical [1] "logical" $Currency [1] "character" $Accounting [1] "integer" $hLink [1] "character" ## Failed ! $Percentage [1] "character" $TinyNumber [1] "numeric"可能与我的问题有关，但我无法弄清楚如何使用它。

感谢您的帮助

Answer 1

void updateConfigParams( void ) { char buffer [512]; int i = 0; while (( c = readFromWireless ()) != NULL) { buffer [ i ] = c; i += 1; } writeConfigParams ( buffer ); }看起来有错误。它应该是这样的：

 $scope.data = [
 {
    "check1": {
      "condition": true,
      "syntax": 7,
      "prod_value": "dimdim",
      "dimensioncheck": "color",
      "hide":false
    }
}]

<div class="colWrapper" ng-hide="inside_values.hide" ng-repeat="(inside_key, inside_values) in val">

<button ng-click="header.hide=!header.hide;$scope.data[0].check1.hide!=$scope.data[0].check1.hide">

以编程方式将类更改为自定义类

1 个答案: