Question

我是闪亮的R和googleVis的新手。我有一个名为explore（...）的方法，它根据作为参数传递的变量的数据类型在单独的窗口上创建googleVis图表（条形图，饼图等）。它还检查用户是否已选中Visualize选项（ui上的checkBox）。如果是真的，它会将图形与gVisTable一起呈现，该gVisMerge()包含集中趋势和离散值。我可以使用gVisTable来完成此操作。但是，如果未选中Visualize checkBox，则它仅在单独的页面上显示gVisTable。在后一种情况下，我需要给explore()一个标题。

按钮点击时会发生这种情况。调用名为observeEvent(input$exploreButton, { print(input$variableInput) options <- list() options$variableName <- input$variableInput options$visualize <- input$visualizeCheckBox options$centralTendency <- input$centralTendencyCheckBox options$dispersion <- input$measureDispersionCheckBox explore(dataset[, input$variableInput], options) })的方法来生成绘图。

informationTable <- gvisTable(as.data.frame.matrix(valuesTable), options=list(height=300, width=200))
    if(options$visualize)
    {
      barChart <- getSimpleBarChart(table(x), paste("Bar Chart for ", options$variableName), "bottom", 1500, 600)
      plot(gvisMerge(barChart, informationTable, horizontal=FALSE))
    }
    else {
      plot(informationTable)
    }

这是一个探索方法的代码，它合并了绘图和表格。或者只是显示gvisTable。

getSimpleBarChart(...)

这里getSimpleBarChart <- function(data, title, legend_location='bottom', width=400, height=400) { options <- list(title=title, legend=legend_location, tooltip="{isHtml:'True'}", bar="{groupWidth:'90%'}", width=width, height=height) g <- gvisBarChart(as.data.frame(data), options=options) g }是另一种用于生成BarChart的方法，即

gVisTable

有没有办法像我们在googleVis图表的其余部分一样为- (BOOL)textFieldPhoneDigit:(UITextField *)textField shouldChangeCharactersInRange:(NSRange)range replacementString:(NSString *)string { @try { NSString *filter = @"(###) - (###) - (####)"; //Change Fileter As Per requirement. if(!filter) return YES; // No filter provided, allow anything NSString *changedString = [textField.text stringByReplacingCharactersInRange:range withString:string]; if(range.length == 1 && // Only do for single deletes string.length < range.length && [[textField.text substringWithRange:range] rangeOfCharacterFromSet:[NSCharacterSet characterSetWithCharactersInString:@"0123456789"]].location == NSNotFound) { // Something was deleted. Delete past the previous number NSInteger location = changedString.length-1; if(location > 0) { for(; location > 0; location--) { if(isdigit([changedString characterAtIndex:location])) { break; } } changedString = [changedString substringToIndex:location]; } } textField.text = filteredPhoneStringFromStringWithFilter(changedString, filter); return NO; } @catch (NSException *exception) { NSLog(@"Exception shouldChange %@",[exception description]); }提供标题？请帮忙......

Answer 1

这可以通过首先获取gvis表的标题

来实现

myGvisTable$html$header

因此，它是html，可以使用paste（）方法轻松地将标题附加到

informationTable$html$header <- paste("<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\"\n  \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\ ......", "<h2>Your title of table</h2>", "</head>\n<body>\n")

如何在闪亮的R

1 个答案: