</table>
    </div>
    <h3><?php 
echo Language::string(696);
?>
</h3>
    <div>
        <table class='fullWidth'>
            <?php 
$count = 0;
$sql = "SELECT `" . Ini::$db_master_name . "`.`" . RDocFunction::get_mysql_table() . "`.`id`,\r\n                            `" . Ini::$db_master_name . "`.`" . UserFunction::get_mysql_table() . "`.`id`\r\n                            FROM `" . Ini::$db_master_name . "`.`" . UserFunction::get_mysql_table() . "` \r\n                            LEFT JOIN `" . Ini::$db_master_name . "`.`" . RDocFunction::get_mysql_table() . "` \r\n                                ON `" . Ini::$db_master_name . "`.`" . RDocFunction::get_mysql_table() . "`.`id`=`" . Ini::$db_master_name . "`.`" . UserFunction::get_mysql_table() . "`.`RDocFunction_id`\r\n                            WHERE `" . Ini::$db_master_name . "`.`" . UserFunction::get_mysql_table() . "`.`User_id`=" . $logged_user->id . "\r\n                            ORDER BY `" . Ini::$db_master_name . "`.`" . RDocFunction::get_mysql_table() . "`.`name` ASC";
$z = mysql_query($sql);
while ($r = mysql_fetch_array($z)) {
    $func = RDocFunction::from_mysql_id($r[0]);
    $count++;
    $doc = RDoc::from_mysql_id($func->RDoc_id);
    $lib = RDocLibrary::from_mysql_id($func->RDocLibrary_id);
    $doc_html = "";
    if ($doc != null) {
        $doc_html = $doc->HTML;
    }
    ?>
                <tr onmouseover='Test.uiMouseOverFunctionToolbarTr(<?php 
    echo $count;
    ?>
)'>
                    <td class='tdFunctionToolbarIcon'>
                        <span class="spanIcon ui-icon ui-icon-help tooltipDocDescription" title="<?php 
    echo Language::string(708);
    ?>
" onclick='Test.uiDocDialog(Test.getDocContent($(this).next().val()))'></span>
 public function get_RDoc()
 {
     return RDoc::from_mysql_id($this->RDoc_id);
 }
 Copyright (C) 2011-2013, The Psychometrics Centre, Cambridge University

 This program is free software; you can redistribute it and/or
 modify it under the terms of the GNU General Public License
 as published by the Free Software Foundation; version 2
 of the License, and not any of the later versions.

 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
*/
if (!isset($ini)) {
    require_once '../../Ini.php';
    $ini = new Ini();
}
$logged_user = User::get_logged_user();
if ($logged_user == null) {
    echo json_encode(array());
    exit;
}
$sql = "SELECT `" . Ini::$db_master_name . "`.`" . RDoc::get_mysql_table() . "`.`HTML`\r\n    FROM `" . Ini::$db_master_name . "`.`" . RDoc::get_mysql_table() . "`\r\n    LEFT JOIN `" . Ini::$db_master_name . "`.`" . RDocFunction::get_mysql_table() . "` ON `" . Ini::$db_master_name . "`.`" . RDocFunction::get_mysql_table() . "`.`RDoc_id` = `" . Ini::$db_master_name . "`.`" . RDoc::get_mysql_table() . "`.`id`\r\n    WHERE `" . Ini::$db_master_name . "`.`" . RDocFunction::get_mysql_table() . "`.`name` = '" . $_POST['func'] . "'";
$z = mysql_query($sql);
while ($r = mysql_fetch_array($z)) {
    echo json_encode(array("html" => $r[0]));
    break;
}
示例#4
0
 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
*/
if (!isset($ini)) {
    require_once __DIR__ . '/../Ini.php';
    $ini = new Ini();
}
$path = Ini::$path_data . session_id() . ".Rc";
$sql = sprintf("TRUNCATE TABLE `%s`.`%s`", Ini::$db_master_name, RDoc::get_mysql_table());
mysql_query($sql);
$sql = sprintf("TRUNCATE TABLE `%s`.`%s`", Ini::$db_master_name, RDocLibrary::get_mysql_table());
mysql_query($sql);
$sql = sprintf("TRUNCATE TABLE `%s`.`%s`", Ini::$db_master_name, RDocFunction::get_mysql_table());
mysql_query($sql);
include __DIR__ . "/../SETTINGS.php";
$code = "\r\n        library(RMySQL)\r\n        library(tools)\r\n        unlink('{$path}')\r\n        drv <- dbDriver('MySQL')\r\n        con <- dbConnect(drv, user = '******', password = '******', dbname = '{$db_master_name}', host = '{$db_host}', port = {$db_port}, client.flag=CLIENT_MULTI_STATEMENTS)\r\n        dbSendQuery(con,statement = 'SET NAMES \"utf8\";')\r\n        dbSendQuery(con,statement = 'SET time_zone=\"{$mysql_timezone}\";')\r\n            \r\n        adm <- c()\r\n        for(package in sort(.packages(T))){\r\n\r\n            dbSendQuery(con,paste('INSERT INTO `RDocLibrary` SET `name`=\"',package,'\" ; SELECT last_insert_id();',sep=''))\r\n            rs1 <- dbNextResult(con)\r\n            lid <- fetch(rs1, n=-1)[1,1]\r\n            library(package,character.only=T)\r\n            db <- Rd_db(package)\r\n\r\n            for(doc in db){\r\n                fileConn<-file('{$path}',open='a+')\r\n                tools::Rd2HTML(doc,out=fileConn)\r\n                HTML <- dbEscapeStrings(con,paste(readLines(fileConn),collapse='\n'))\r\n                dbSendQuery(con,paste('INSERT INTO `RDoc` SET `HTML`=\"',HTML,'\"; SELECT last_insert_id();',sep=''))\r\n                rs2 <- dbNextResult(con)\r\n                did <- fetch(rs2, n=-1)[1,1]\r\n                unlink('{$path}')\r\n\r\n                aliases <- tools:::.Rd_get_metadata(x=doc,kind='alias')\r\n                sql <- 'INSERT INTO `RDocFunction` (`name`,`RDocLibrary_id`,`RDoc_id`) VALUES '\r\n                first <- T\r\n                insert <- F\r\n                for(alias in aliases) {\r\n                    if(!grepl('^[a-zA-Z0-9_.]*\$',alias,perl=T) || alias %in% adm || !exists(alias) || !is.function(get(alias))){\r\n                        next\r\n                    }\r\n                    adm <- c(adm,alias)\r\n                    if(!first) {\r\n                        sql <- paste(sql,',',sep='')\r\n                    }\r\n                    alias <- dbEscapeStrings(con,alias)\r\n                    sql <- paste(sql,'(\"',alias,'\", \"',lid,'\", \"',did,'\") ',sep='')\r\n                    first <- F\r\n                    insert <- T\r\n                }\r\n                if(insert){\r\n                    dbSendQuery(con,sql)\r\n                }\r\n            }\r\n        }\r\n        ";
$fh = fopen($path, "w");
fwrite($fh, $code);
fclose($fh);
$rscript_path = Ini::$path_r_script;
`{$rscript_path} {$path}`;
if (file_exists($path)) {
    unlink($path);
}